Копировать таблицу из БД dBase (*.dbf) в MS Access (*.mdb)

[andrey.vadimovich]

Здравствуйте уважаемые, суть вопроса состоим в том как из одной БД (dBase, подключение через компоненты BDE (Query)) - исходной, скопировать таблицу (полностью) в MS Access (ADOQuery) - целевая одним запросом, а не просто перебором инструкций INSERT.

Все что сам знал и нашел не принесло результата.
Пишу на Д2009, жду от Вас понимания, и если можно пример кода для его применения в своих нуждах.

Всем спасибо за участие.

[crazyPr0ger]

А почему бы не перебрать просто кодом
например

while not Query1.Eof do
 begin
 ADOTable1.Insert;
 AdoTable1.FieldByName('Name').AsString:=
          Query1.FieldByName('Name').AsString;
ADOTable1.Post;
Query1.Next;
end;

Или обязательно нужно именно SQL запросом

[crazyPr0ger]

Есть пример как делать наоборот из ADO в DBase

procedure TExportADOTable.ExportToDbase(FieldNames: string; FileName: string;
  IsamFormat: string);
begin
  {IsamFormat values
  dBase III
  dBase IV
  dBase 5.0
  }
  if not Active then
    Exit;

  FADOCommand.Connection := Connection;
  FADOCommand.CommandText := 'Select ' + FieldNames + ' INTO ' + '[' +
    ExtractFileName(FileName) + ']' +
    ' IN ' + '"' + ExtractFilePath(FileName) + '"' + '[' + IsamFormat +
    ';]' + ' From ' + TableName;
  if Filtered and (Filter <> '') then
    FADOCommand.CommandText := FADOCommand.CommandText + ' where ' + Filter;
  if (Sort <> '') then
    FADOCommand.CommandText := FADOCommand.CommandText + ' order by ' + Sort;
  FADOCommand.Execute;
end;

Вот полный код модуля.
Можно инсталировать в виде компонента в ДелфуKOSTYAN.rar
Может быть пригодится

У нас принято оформлять код специальным тегом. Кнопка #. Модератор