Импорт из Excel в БД Delphi

[xxbesoxx]

Здравствуйте ребята. Задача такой, что надо загрузить из Excel файле данных в БД . смотрел несколько пример и думал как это реализовать .
Я думаю решать это задача так .

1 . Подключиться через ADO в Excel
2. копировать все данных из одного Query на второе вот так

ADOTable2.insert;
ADOTable2.FieldByName('Фамилия').AsString :=ADOTable1.FieldByName('Фамилия').AsString;
ADOTable2.Post;

Начинаю делать.

А ) ADOConnection1 из свойстве ConnesctionString пишу

Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\test.xls;Extended Properties=Excel 8.0;

Б) ADOQuery1 из свойстве SQL пишу

SELECT * FROM [Лист1$]

Компоненти ( ADOConnection1, ADOQuery1, DataSource1) между собой подключены DBGrid отображает запись который в Excel . Но при запуске программа выдает такую ошибку , что ( Файл уже открыт ) пожалуйста помогите обойдись из этого ошибку, или Может вас есть пример, (импорт данных из Excel в БД ) Пожалуйста ребята помогите решать это задачу

[Аватар]

В строке соединения не хватает параметров, на днях была подобная тема, поищите

[Slym]

ексельку отрыли уже что не понятно? а открыл его сама (или сам?) дельфи, закрой дельфи запусти программу - проблема исчезла?

[xxbesoxx]

Огромное спасибо ребята . За ваш совет , За ваши поддержку Я люблю вас . Я помню, вы меня много раз ( поддерживали , подтолкнули )
// *********************************** **********************
Для формата xls Excel 97 - 2003 открываю так

procedure TfrmMain.Open_ExcelClick(Sender: TObject);
var
strConn: WideString;
begin
  if OpenDialog1.Execute then
  begin
   strConn:='Provider=Microsoft.Jet.OLEDB.4.0;' +  'Data Source=' + OpenDialog1.FileName + ';' + 'Mode=Share Deny None;Extended Properties=Excel 8.0;';
   ADOConnection1.Connected:=False;
   ADOConnection1.ConnectionString:=strConn;
  try
   ADOConnection1.Open;
   qryExcel.Open;
  except
    ShowMessage('Ошибка Excel '+OpenDialog1.FileName+' !');
  raise;
 end;
 end;
end;
end.

А для формата xlsx Excel 2007

procedure TfrmMain.Button1Click(Sender: TObject);
var
strConn: WideString;
begin
  if OpenDialog1.Execute then
  begin
   strConn:='Provider=Microsoft.ACE.OLEDB.12.0;' +  'Data Source=' + OpenDialog1.FileName + ';' + 'Mode=Share Deny None;Extended Properties="Excel 12.0 Macro;HDR=YES";;';
   ADOConnection1.Connected:=False;
   ADOConnection1.ConnectionString:=strConn;
  try
   ADOConnection1.Open;
   qryExcel.Open;
  except
    ShowMessage('Ошибка Excel '+OpenDialog1.FileName+' !');
  raise;
 end;
 end;

end;

qryExcel = это ADOQuery . из свойства SQL пишем

 SELECT * FROM [Лист1$]

Копировать из одного Query на второе знаем :D так решаю это задачу

[xxbesoxx]

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

Копировать из одного Query на второе знаем :D так решаю это задачу

Не все так просто как я думал.... Не как не получается копировать

qryExcel = это то Adoquery который открывает Excel

qryImpExcel = Это то Adoquery который подключение в БД в таблицу. делаю Insert но не хочет

1.

     if  qryExcel.Active = true  then
        begin
          qryImpExcel.Insert;
          qryImpExcel.FieldByName('nalichie').AsString := qryExcel.FieldByName('Дилер').AsString ;
          qryImpExcel.Post;
        end

2.

        qryImpExcel.Close;
        qryImpExcel.SQL.Text := ' INSERT INTO Таблица1 ( Поля1 ) SELECT Поля1 FROM  [Лист1$] ';
        qryImpExcel.Open;

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

SQL

INSERT INTO Таблица1 (Поля1) SELECT Поля1 FROM Таблица2

Вопрос : Как копировать пожалуйста помогите ребята

[Slym]

qryImpExcel.Close;
qryImpExcel.SQL.Text := ' INSERT INTO Таблица1 ( Поля1 ) VALUES (:nalichie)';
if  qryExcel.Active = true  then
        begin
          qryImpExcel.Parameters.ParamByName('nalichie').Value := qryExcel.FieldByName('Дилер').AsString ;
          qryImpExcel.ExecSQL;
        end

[xxbesoxx]

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

qryImpExcel.Close;
qryImpExcel.SQL.Text := ' INSERT INTO Таблица1 ( Поля1 ) VALUES (:nalichie)';
if  qryExcel.Active = true  then
        begin
          qryImpExcel.Parameters.ParamByName('nalichie').Value := qryExcel.FieldByName('Дилер').AsString ;
          qryImpExcel.ExecSQL;
        end

Огромное спасибо . Но я не понял где я допускаю ошибку . Пожалуйста ребята посмотрите . Как копировать это строки который получаем из Excel. Для теста создал проект Delphi 7 и БД Access . еще для пример

Лист Microsoft Office Excel.xls и Лист Microsoft Office Excel.xlsx

Пожалуйста ребята помогите .

[Slym]

ну как-то так

[xxbesoxx]

Slym Огромное спасибо ... Что работает я вижу . Здорова Буду код разбирать ....