перенос данных из dbgrid в dbgrid

[Obnx]

Добрый вечер.
Есть программа, в которой необходимо скопировать импортированные из Excel данные из DBGrid'a в уже существующую таблицу, не удаляя при этом существующие в ней данные. Импорт данных работает хорошо, а вот как перенести данные не пойму. Пролистал уже существующие темы - не помогло.
Пробовал сделать так:

begin
ADOQuery2.Active:=false;
ADOQuery2.SQL.Clear;
ADOQuery2.SQL.Add('INSERT INTO KlientTable');
ADOQuery2.SQL.Add('SELECT *');
ADOQuery2.SQL.Add('FROM ''ADOQuery1''');
ADOQuery2.ExecSQL;
ADOQuery2.SQL.Text:='SELECT * FROM ''ADOQuery1''';
ADOQuery2.Active:=true;   
end;

[Аватар]

Позаписно читайте данные из ADOQuery1 и для каждой из них делайте INSERT

OFFTOP

FROM 'ADOQuery' еще видеть не приходилось

[Obnx]

Сообщение от Аватар

OFFTOP

FROM 'ADOQuery' еще видеть не приходилось

если подскажите другой способ буду только признателен. я уже всю голову сломал, и все равно не выходит.

[Yurk@]

Импорт данных работает хорошо

как-то не видно в коде чтобы эти данные брались для записи. где они?

если подскажите другой способ буду только признателен

не "другой", а "правильный" т.к. твой в принципе не жизнеспособный.

[Obnx]

procedure TImportForm.ConnectToExcel;
var strConn: widestring;
begin
strConn:='Provider=Microsoft.Jet.OLEDB.4.0;' +
'Data Source=' +Edit1.Text+ ';' +
'Extended Properties=Excel 8.0;';
AdoConnection1.Connected:=False;
AdoConnection1.ConnectionString:=strConn;
try
AdoConnection1.Open; 
except
ShowMessage('Нет связи с Excel книгой);
raise;
end;
end;

procedure TImportForm.FetchData;
begin
ConnectToExcel;
AdoQuery1.Close;
AdoQuery1.SQL.Text:=Edit2.Text;
try
AdoQuery1.Open;
except
ShowMessage( 'Не могу выполнить Sql запрос ' + Edit1.Text +'!');
raise;
end;
end;

вот импорт.

[Yurk@]

...
ConnectToExcel;
AdoQuery1.Close;
AdoQuery1.SQL.Text:=Edit2.Text;
try
AdoQuery1.Open;
...

а вот щас вобще в ступор вогнал

ConnectToExcel; // коннект к книге
AdoQuery1.Close; // закрыл кверю
AdoQuery1.SQL.Text:=Edit2.Text; // закинул в кверю запрос из Эдита (кстати, где текст запроса?)
AdoQuery1.Open; // открыл кверю

а где импорт? О_о
куда ты данные с экселя кидаешь?

[Obnx]

данные из экселя кидаются в дбгрид по нажатию кнопки. запрос самый элементарный, select * from [Лист1$], данные в экселе текст и цифры, мне необходимо скопировать их в таблицу с такими же полями не заменяя старые данные. т.е. это будет микро-справочник

[Yurk@]

ладно ... допустим в ADOQuery1 у тебя данные в экселя. тогда добавление будет выглядеть примерно так:

ADOQuery2.Close;
ADOQuery.SQL.Text := 'INSERT INTO table1 (pole1, pole2, pole3) VALUES (:pole1, :pole2, :pole3)';
ADOQuery1.Open;
while not ADOQuery1.Eof do
begin
  ADOQuery2.Parameters.ParamByName('pole1').Value := ADOQuery1.FieldByName('pole1').Value;
  ADOQuery2.Parameters.ParamByName('pole2').Value := ADOQuery1.FieldByName('pole2').Value;
  ADOQuery2.Parameters.ParamByName('pole3').Value := ADOQuery1.FieldByName('pole3').Value;
  ADOQuery2.ExecSQL;
  ADOQuery1.Next;
end;

[Obnx]

Сообщение от Yurk@

ладно ... допустим в ADOQuery1 у тебя данные в экселя. тогда добавление будет выглядеть примерно так:

ADOQuery2.Close;
ADOQuery.SQL.Text := 'INSERT INTO table1 (pole1, pole2, pole3) VALUES (:pole1, :pole2, :pole3)';
ADOQuery1.Open;
while not ADOQuery1.Eof do
begin
  ADOQuery2.Parameters.ParamByName('pole1').Value := ADOQuery1.FieldByName('pole1').Value;
  ADOQuery2.Parameters.ParamByName('pole2').Value := ADOQuery1.FieldByName('pole2').Value;
  ADOQuery2.Parameters.ParamByName('pole3').Value := ADOQuery1.FieldByName('pole3').Value;
  ADOQuery2.ExecSQL;
  ADOQuery1.Next;
end;

Вы не представляете как я благодарен) все работает. Большое спасибо)