Форум программистов
 
Регистрация на форуме тут, о проблемах пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

Как купить рекламу на форуме


Вернуться   Форум программистов > Delphi программирование > БД в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail


Ответ
 
Опции темы
Старый 07.03.2012, 20:40   #1
demiancz
Форумчанин
 
Регистрация: 28.09.2010
Сообщений: 244
По умолчанию Перенос данных из одной БД в другую

Есть 2 формы на обоих формах есть DBGrid.
Нужно что бы при нажатии в контекстном меню на "Добавить" данные из одной Базы данных перенеслись в другую.
Пробую так, но ничего не получается
Код:
procedure TForm1.N1Click(Sender: TObject);
var
m : Integer;
begin
m:=1;
while m <= 100 do
if  (sTabSheet7.Visible) and
(PopupMenu1.PopupComponent is TDBGrid) then begin
DataModule2.ADOQuery5.Insert;
DBGrid1.SetFocus;
break;
end;
Смотреть фильмы HD Фильмы для планшетов
demiancz вне форума Ответить с цитированием
Старый 11.03.2012, 17:53   #2
Bit_Man
Пользователь
 
Регистрация: 11.03.2012
Сообщений: 29
По умолчанию

Просто insert?
можно типа такого
ADOConnection1.BeginTrans;
тут цикл по ADOQuery1 с начала по конец
Код:
    ADOQuery2.Insert;
    ADOQuery2.FieldValues['1'] := ADOQuery1.FieldValues['1'];
    ADOQuery2.Post;
после цикла
ADOConnection1.CommitTrans;

Последний раз редактировалось Stilet; 11.03.2012 в 18:49.
Bit_Man вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме 20000 рублей в месяц

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Перенос данных из одной базы в другую Brother Abbat Помощь студентам 1 03.11.2011 16:10
Перенос данных из одной таблицы в другую D.O.G БД в Delphi 3 07.10.2010 11:23
перенос данных из одной таблицы в другую peq Microsoft Office Excel 5 28.08.2010 07:16
Изменение данных и перенос данных из одной таб в другую Kot9ra Microsoft Office Access 13 02.07.2010 11:22


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS