Возникла одна проблема, подскажите кто что может.
Есть код (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 ';
Суть в том, что пытаюсь скопировать строки из таблицы Excel (ADOTable) в Access (ADOTable_mdb). Пыталась в 'SELECT * FROM' поставить ADOTable, ругается, что неверный синтаксис FROM. Подскажите как исправить этот запрос или чем его можно заменить. За пример кода особая благодарность =).
Уважаемые авторы вопросов! Большая просьба сообщить о результатах решения проблемы на этой странице. Иначе, следящие за обсуждением, возможно имеющие аналогичные проблемы, не получают ясного представления об их решении. А авторы ответов не получают обратной связи. Что можно расценивать, как проявление неуважения к отвечающим от автора вопроса.
27-07-2006 06:55 | Вопрос к автору: запрос дополнительной информации
ADOQuery.SQL.Text := 'INSERT INTO Table SELECT * FROM [Sheet1$]';
Синтаксическая ошибка в FROM
(если нужно всю таблицу скопировать, это надо как-то указывать после INSERT INTO Table? (проблема ещё и в том, что неизвестно заранее какие поля и сколько их будет)).
Если вы заметили орфографическую ошибку на этой странице, просто выделите ошибку мышью и нажмите Ctrl+Enter. Функция может не работать в некоторых версиях броузеров.