Дининамический пеброс данных

[ilich]

Как организовать динамичную переброску данных из Excel в Delppi (в реальном режиме времени)

[vovk]

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

Как организовать динамичную переброску данных из Excel в Delppi (в реальном режиме времени)

Подключится к экселевскому файлику с помощью ADO
нужен ADOConnection и ADODataSet

както так не идеал но работает (в коннекте можкет быть лишнего много содрал из автоматически сгенерированого)

procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute
  then begin
adoconnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;'+
'Password="";'+'User ID=Admin;'+'Data Source='+opendialog1.FileName+';'+
'Mode=Read;'+'Extended Properties=Excel 8.0;'+'Jet OLEDB:System database="";'+
'Jet OLEDB:Registry Path="";'+'Jet OLEDB:Database Password="";'+
'Jet OLEDB:Engine Type=35;'+'Jet OLEDB:Database Locking Mode=0;'+
'Jet OLEDB:Global Partial Bulk Ops=2;'+'Jet OLEDB:Global Bulk Transactions=1;'+
'Jet OLEDB:New Database Password="";'+'Jet OLEDB:Create System Database=False;'+
'Jet OLEDB:Encrypt Database=False;'+'Jet OLEDB:Don'+''+'t Copy Locale on Compact=False;'+
'Jet OLEDB:Compact Without Replica Repair=False;'+'Jet OLEDB:SFP=False';
 adoconnection1.GetTableNames(ListBox1.Items,false);
 end;
 end;

а тут выбераем лист из документа

procedure TForm1.ListBox1Click(Sender: TObject);
 begin
ADODataSet1.Active:=false;
ADODataSet1.CommandText:=ListBox1.Items.Strings[ListBox1.ItemIndex];
ADODataSet1.Active:=true;
 end;

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