Доброе время суток!
Возникла одна проблема, подскажите кто что может.
Есть код (Delphi 6, Excel XP, Access XP) для перевода БД из Excel в Access:
...
with ADOConnection_mdb do try
ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+ path_open_mdb+';Mode=ReadWrite;Persist Security Info=False';
finally
ADOConnection_mdb.GetTableNames(SN, False);
if ADOTable_mdb.Active then ADOTable_mdb.Close;
ADOTable_mdb.TableName := SN[index];
ADOTable_mdb.Connection:= ADOConnection_mdb;
ADOTable_mdb.Open; end;
...
with ADOConnection_xls do try
ConnectionString :='Provider=Microsoft.Jet.OLEDB.4.0; Data Source='+path_open_xls +';Mode=Read; Extended Properties="Excel 8.0;HDR=Yes;"';
finally try
ADOConnection_xls.GetTableNames(SL, False);
ADOTable.Connection:= ADOConnection_xls;
ADOTable.TableName:=SL[0];
ADOTable.Open;
for index := 0 to (SL.Count - 1) do begin
ADOQuery.SQL.Text := 'SELECT * FROM ??????????';
ADOQuery.SQL.Text :=' INSERT INTO ADOTable_mdb ';
ADOQuery.ExecSQL; end;
ADOTable.Close;
ADOTable_mdb.Close;
...
Суть в том, что пытаюсь скопировать строки из таблицы Excel (ADOTable) в Access (ADOTable_mdb). Пыталась в 'SELECT * FROM' поставить ADOTable, ругается, что неверный синтаксис FROM. Подскажите как исправить этот запрос или чем его можно заменить. За пример кода особая благодарность =).
Заранее ОГРОМНОЕ спасибо всем откликнувшимся.
