[lmikle]

Ну, с некоторыми ограничениями, можно сделать и через разные драйвера.

Код:

procedure MoveData(QFrom, QTo : TQuery); // обобщенные параметры
var
  I : Integer;
begin
  QFrom.First;
  While Not QFrom.EOF Do
      Begin
         QTo.Append;
         For I := 0 To QFrom.Fields.Count-1 Do
           QTo.FieldByName(QFrom.Fields[i].FieldName).Value := QFrom.Fields[i].Value;
         QTo.Post;
         QFrom.Next;
      End;
end;