Die Lösung aber nicht für jeden Einsatzweck optimal.
Solange du die Daten "nur" komplett und ReadOnly benötigst ist das OK.
Sonst würde ich anstatt der AdoTable lieber eine TAdoQuery verwenden und mit
SQL drauf zugreifen.
Um mal bei dem Beispiel zu bleiben ...
Delphi-Quellcode:
// Opendialog öffnen und AdoConnection verbinden
Adoconn.ConnectionString := '
Provider=Microsoft.Jet.OLEDB.4.0;' +
'
Provider=Microsoft.Jet.OLEDB.4.0; ' +
'
Data Source=' + Opendialog.Filename + '
;' +
'
Extended Properties=Excel 8.0; ' +
//<< immer Excel 8.0 !!!
'
Persist Security Info=False';
Adoconn.open;
// Eine Combobox (xlsWorksheets mit den Arbeitsbereichsseiten der Excel Arbeitsmappe füllen
xlsWorksheets.Enabled := Adoconn.Connected;
if Adoconn.Connected
then
begin
Adoconn.GetTableNames(xlsWorksheets.Items, true);
end;
// Wenn es mindestens eine Arbeitsbereichsseite gibt > Auswählen und Öffnen
...
User die gewünschte Arbeitsbereichsseite wählen lassen
ggf. automatisch xlsWorksheets.Items[0] verwenden, falls es nur eine Arbeitsbereichsseite gibt
...
if xlsWorksheets.items.count =0
then
begin
Showmessage('
In der gewählten Arbeitsmappe sind keine Arbeitsbereichsseiten verfügbar');
exit;
end
else begin
Tabelle:='
['+xlsWorksheets.items[xlsWorksheets.itemindex] +'
]';
// die eckigen Klammern sind nötig weil der Tabellenname Sonderzeichen enthält ("$")
With AdoQueryXLS
do
begin
close;
Connection:=Adoconn;
// Beispiel "Select"
SQL.Text:='
SELECT * FROM '+Tabelle+'
WHERE Anrede like ''
'+'
Herr'+'
''
';
open;
// Beispiel "Insert"
SQL.Text:='
INSERT INTO '+Tabelle+'
(Vorname,Name) VALUES (''
Paul''
,''
Testmann''
)';
execute;
// Beispiel "Update"
SQL.Text:='
UPDATE '+Tabelle+'
SET Anrede = ''
'+'
Herr'+'
''
WHERE Vorname LIKE ''
'+'
Paul'+'
''
';
execute;
end;
end;
Mit
SQL funktioniert das "Bearbeiten" der Excel Arbeitsseiten-Tabelle wesentlich stabiler.
Filtern ist mit
SQL auch leichter als mit AdoTable.filter ...
Schöne Grüße,
Jens
