TQuery variabel

[Jens Hartmann]

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