Warum funktioniert das oben nicht. Ich habe es probiert. Und Du bekommst genau die Daten die du willst. Für deinen Fall benötigst Du...
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
Tabellenname : String;
begin
if OpenDialog1.Execute then
begin
if OpenDialog1.Filename = '' then
Tabellenname := 'gesamt3'
else
Tabellenname := ExtractFileName(OpenDialog1.FileName);
end;
end;
ShowMessage(Tabellenname);
end;
und in deinem
SQL.Text müsste das dann so aussehen...
SQL.Text :='Select * from '+Tabellenname+' where Upper (feld001) Like Upper (:feld1.text)';
also...
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
Tabellenname :
String;
begin
if OpenDialog1.Execute
then
begin
if OpenDialog1.Filename = '
'
then
Tabellenname := '
gesamt3'
else
Tabellenname := ExtractFileName(OpenDialog1.FileName);
end;
end;
SQL.Text :='
Select * from '+Tabellenname+'
where Upper (feld001) Like Upper (:feld1.text)';
end;
Gruß Jens