Ich habe folgendes Problem mit dem einfach nicht weiter komme.
Ich habe ein Form mit meheren Editfeldern, ich will nun das wenn in einem der Felder einen Namen Einträg, nach diesem in der
DB gesucht wird.
Ich habe es mit einer Case .. of Einweisung versucht, was ja funktioniert, wenn man "SortDs(0)" in die Abfrage hinschreibt aber das bringt mich ja nicht weiter. Ich müßte diesen Wert ja irgendwie übergeben bekommen.
Zum Bsp. ich klicke auf das Edit1 und der dann sucht er nach er Nummer oder ich klicke in Edit2 und er sucht nach dem Namen.
Ich hoffe ihr habt verstanden, was ich hinaus will.
Delphi-Quellcode:
begin
Saved:= True;
Form1.Query1.Close;
Form1.Query1.SQL.Clear;
If DBKuNr.GetTextLen = 0 Then
Form1.Query1.SQL.Add('SELECT * FROM "'+Pfad+'"')
else
//Form1.Query1.SQL.Add('Select * FROM "'+Pfad+'" WHERE DB_KuNr ='+DBKuNr.Text);
SortDS(Sort)); Hier sollte die Anweisung übergeben
Form1.Query1.Active:= true;
DBAnrede.Text:= Form1.Query1.FieldByName('DB_Anrede').AsString;
DBTitel.Text:= Form1.Query1.FieldByName('DB_Titel').AsString;
DBVorName.Text:= Form1.Query1.FieldByName('DB_VorName').AsString;
Ich dachte mir, ich übergebe den Wert, wenn ich auf das entsprechende Feld klicke aber da kommt es zu einem Fehler wegen Bytew und String.
Hier noch die Case .. of
Delphi-Quellcode:
begin
Case m of
0: Begin
Sort:= 'Select * FROM "'+Pfad+'" WHERE DB_KuNr ='+DBKuNr.Text+'';
end;
1: Begin
Form1.Query1.SQL.Add('Select * FROM "'+Pfad+'" WHERE DB_Vorname Like ''%'+DBVorname.Text+'%''');
end;
end;
end;
[edit=Daniel B]Delphi-Tags eingefügt. MfG Daniel B.[/edit]