Hallo Markus,
danke für Deine schnelle Antwort.
Eine Dataset- Komponente habe ich gar nicht
?
Das hier ist die komplette Prozedur:
Delphi-Quellcode:
procedure TfmHaupt.btmitExcelConnectenClick(Sender: TObject);
begin
AdoConnection1.Connected:=False;
AdoConnection1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;' +
'Provider=Microsoft.Jet.OLEDB.4.0; ' +
'Data Source=C:\Mappe1.xls;' +
'Extended Properties=Excel 8.0; ' +
'Persist Security Info=False';
AdoConnection1.LoginPrompt := False;
AdoQuery1.Connection := AdoConnection1;
DataSource1.DataSet := AdoQuery1;
DBGrid1.DataSource := DataSource1;
DBNavigator1.DataSource := DataSource1;
try
AdoConnection1.Open;
except
ShowMessage('Fehler beim Öffnen der AdsConnection');
raise;
end;
AdoQuery1.Close;
AdoQuery1.SQL.Text:='SELECT * FROM [Tabelle1$]';
try
AdoQuery1.Open;
except
ShowMessage('Fehler beim Öffnen der AdsQuery');
raise;
end;
end;
Meiner Meinung nach werden die Daten von Excel über ADOConnection -> ADOQuery -> ADODatasource an das DBGrid 'durchgereicht'. Trotzdem sehe ich nur eine leere Tabelle.
Oder ist der Ansatz falsch?
Grüße - Phillip