So Sieht mein Quellcode aus ... und die Fehlermeldungen dazu ^^
Delphi-Quellcode:
procedure TfPostbuchUebersicht.eSuchbegriffChange(Sender: TObject);
var
sSearchType:
String;
sSearchItem:
String;
begin
case cbSuchkriterium.ItemIndex
of
1: sSearchType := '
Firma';
sSearchItem := eSuchbegriff.Text + '
%';
with Query do
begin
Close;
SQL.Clear;
SQL.Add('
Select * From TKunde Where ' + sSearchType + '
Like ' + QuotedStr (theSearchItem));
Open;
end;
end;
end;
Fehlermeldungen
Kann meine
query nicht aktivieren ;(
Doof Doof Doof ... Ich fang ma an Buch über
SQL an zu lesen ...