как копировать данные из одной таблоицы в другую

[MixanMM]

подскажите, как можно копировать данные из одной таблицы Acces в другую, на форме имеется 2 DBGrid которые подключены через 2 Query к 2ум таблицам , в одной отображаются данные магазина(дата, отдел , покупка, сумма) , а во второй только список товаров которые сделал покупатель (покупка, сумма), как можно скопировать данные из второй в первую? или хотя бы считать их в переменные.

[pobedin]

ну в переменные так

var
  p1, p2: string;
begin
  p1 := query1.FieldByName('pole').AsVariant;
  p2 := query1.FieldByName('pole').AsVariant;
  ...

из одного query в другой

  query2.insert;
  query2.FieldByName('pole').AsVariant := query1.FieldByName('pole').AsVariant;
  query2.FieldByName('pole').AsVariant := query1.FieldByName('pole').AsVariant;
  query2.post;

чтобы перенести все записи, то следует делать по циклу

      
query1.first;
while not query1.eof do
begin
  query2.insert;
  query2.FieldByName('pole').AsVariant:=query1.FieldByName('pole').AsVariant;          
  query2.FieldByName('pole').AsVariant:=query1.FieldByName('pole').AsVariant;
  query2.post;
  query1.next;
end;

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

[MixanMM]

Сообщение от pobedin

ну в переменные так

var
  p1, p2: string;
begin
  p1 := query1.FieldByName('pole').AsVariant;
  p2 := query1.FieldByName('pole').AsVariant;
  ...

из одного query в другой

  query2.insert;
  query2.FieldByName('pole').AsVariant := query1.FieldByName('pole').AsVariant;
  query2.FieldByName('pole').AsVariant := query1.FieldByName('pole').AsVariant;
  query2.post;

чтобы перенести все записи, то следует делать по циклу

      
query1.first;
while not query1.eof do
begin
  query2.insert;
  query2.FieldByName('pole').AsVariant:=query1.FieldByName('pole').AsVariant;          
  query2.FieldByName('pole').AsVariant:=query1.FieldByName('pole').AsVariant;
  query2.post;
  query1.next;
end;

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

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

[pobedin]

точно не уверен, но может потому что не через ado делаешь. с акцесс базой точно такое должно работать.