Hier nochmal der Source:
Delphi-Quellcode:
with qryAbfrage
do begin
Close;
SQL.Text := '
Select Count(*) as ANZAHL From (1)ENGLISCH_DEUTSCH(1)';
SQL.Add('
Where (2)ENENGLISCH(2) = (P):Englisch(P) and (3)ENDEUTSCH(3) = (P):Deutsch(P)');
ParamByName('
Englisch').AsString := (4)edtEnglisch.Text(4);
// Parameterwerte aus 2 Edit-Feldern
ParamByName('
Deutsch').AsString := (5)edtDeutsch.Text(5);
Open;
// (PE)
if FieldByName('
ANZAHL').AsInteger > 1
then
ShowMessage('
Richtig')
else
ShowMessage('
leider Falsch');
Close;
end;
Oben habe ich die Stellen die du ersetzen musst mit Zahlen oder Buchstaben eingeschlossen(bitte nicht drinlassen, sonst gehts sicher nicht).
(1) = dein Tabellenname
(2) = der Feldname in dem der Englische Text in der Tabelle steht
(3) = der Feldname des Deutschen Textes
(4) = Irgendwo in deinem Formular wirst du eine Variable oder ein Edit haben, wo der englische Text steht --> hier einsetzen
(5) = das selbe mit dem vom User eingegebenen deutschen Text
(P) sind Parameter. Die kannst du benennen wie du willst. Sie dienen nur als Platzhalter für die Werte, die du dann unter
(PE) den Parametern zuweisen musst.
So, einfacher krieg ichs nicht hin. Experimentier doch einfach mal damit herum, dann kommst du bestimmt drauf.
Etwas hab ich noch vergessen. Dein TQuery-Objekt muss natürlich auch
qryAbfrage heissen
