Du hast vergessen das Arbeitsmappen-Objekt anzugeben. Der
Dateiname wird durch den Connection-String als
DataSource gesetzt. Der
Arbeitsmappen-Name (immer die erste) wird als
Tabellenname im
SQL angegeben.
Delphi-Quellcode:
TableNames := TStringList.Create;
with PatBehandlungData.qryAdo
do
begin
Active:=False;
// Einlesen der Arbeitsmappen-Namen
GetTableNames(TableNames);
SQL.Clear;
// Übergabe der ersten Arbeitsmappe als Tabellenname,
// das WHERE ist mal auskommentiert
SQL.Add('
SELECT * FROM ['+TableNames[0]+'
] --WHERE ID IS NOT NULL');
Active:=True;
Open;
//HIER knallt es
end;
TableNames.Free;