Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: ActiveX/СОМ/CORBA > Считавание с EXCEL через Jet.OLEDB

Автор: Sed0Y 5.6.2010, 01:57

Доброй ночи.
Есть у меня документ Excel в нем какие-то данные, которые обновляются каждую секунду - не вручную, а к примеру каким-то скриптом...

Код


procedure TFMain.ConnectToExcel;
var
  strConn: widestring;
begin
    DBGridEh1.DataSource.DataSet.DisableControls;
    AdoQuery1.Close;

    strConn := 'Provider=Microsoft.Jet.OLEDB.4.0;' +
          'Data Source=C:\test.xls;' +
          'Extended Properties=Excel 8.0;';
    AdoConnection1.Close;
    AdoConnection1.ConnectionString := strConn;
    AdoConnection1.Open;

    AdoQuery1.SQL.Text := 'SELECT * FROM [Лист1$]';  

    AdoQuery1.Open;
    DBGridEh1.DataSource.DataSet.EnableControls;
end;

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

КОроче, вопрос: Как лучше считывать значение с эксель в датасет, что бы это происходило каждую секунду.
Кто чем может помочь?