Eingabe mit Daten aus der Datenbank vergleichen

[Flo]

Hallo,
ich bin blutiger Anfänger in Sachen Delphi.

Ich möchte ein einfaches Vokabelprogramm programmieren. Ich hab mir soweit schon alles aufgebaut. Jetzt möchte ich aber, dass er mich die vorher eingeben Vokabeln (deutsch-englisch) abfragt. Das heißt: Es erscheint das deutsche Wort und ich muss dann das dazugehörige englische Wort eingeben. Anschließend soll er mir sagen, ob die Eingabe richtig oder falsch war.

Ich habe mir alles bis auf die Abfrage aufgebaut.

Hoffe ihr könnt mir helfen. Danke im voraus!

[Hansa]

Du mußt die eingegebenen Werte vergleichen. Also : Es muß überprüft werden, daß Edit1.Text in der Datenbank vorhanden ist. Jetzt weiß ich aber nicht, um welche DB es sich handelt :?:

[Flo]

Danke dür deine Antwort.

Es handelt sich um eine Paradox 7 Tabelle.

[czapie]

ich kenn mich zwar nicht mit paradox aus, aber
vom Prinzip her guckst du nur noch ob ein Eintrag vorhanden ist, bei dem Deutsch gleich deiner "Abfrage-Vokabel" und englisch gleich deiner "Eingabe-Vokabel" ist, wenn ja richtig und wenn nicht dann eben nicht ;-)

Czapie.

[Flo]

Danke für deine Antwort.

Mein Problem ist ja, dass ich den code nicht habe.
Ich hab auch keinen Ansatz, wie ich anfangen könnte.
Hat vielleicht einer'n Tipp ???

[Flo]

Kann mir denn keiner helfen :cry:
Hab noch nicht einmal ne Ahnung, wie ich anfangen soll (code,...)
Ich hab schon das halbe Inet durchsucht, aber nichts gefunden. :(

Bitte helft mir :oops:

[Garby]

Hallo,

ich hoffe du erwartest nicht, dass dir hier jemand den Source eines kompletten Programms postet. :wink:

Mal angenommen du hast eine Tabelle in Paradox die folgedermassen ausschaut:

ENGLISCH_DEUTSCH
ENLFNR // laufende Nummer
ENENGLISCH // englischer Text
ENDEUTSCH // deutscher Text

Die Abfrage schaut dann so aus:

Delphi-Quellcode:

with qryAbfrage do begin
  Close;
  SQL.Text := 'Select Count(*) as ANZAHL From ENGLISCH_DEUTSCH';
  SQL.Add('Where ENENGLISCH = :Englisch and ENDEUTSCH = :Deutsch');
  ParamByName('Englisch').AsString := edtEnglisch.Text; // Parameterwerte aus 2 Edit-Feldern
  ParamByName('Deutsch').AsString := edtDeutsch.Text;
  Open;
  if FieldByName('ANZAHL').AsInteger > 1 then
    ShowMessage('Richtig')
  else
    ShowMessage('leider Falsch');

  Close;
end;

Hoffentlich hilft es dir :mrgreen:

[Flo]

Danke !!!
Ich hoffe die Frage führt nicht zu weit.
Wie bau ich den denn ein ??? :oops:
Bin halt noch Anfänger :mrgreen:

[Garby]

Versteh ich jetzt nicht :spin:

Es wär vielleicht besser, wenn du mal schreiben würdest, was du bereits hast.

Die Datenbank, und die Verbindung dazu über Delphi ist vorhanden?

[Flo]

Ich habe alles, bis auf die Abfrage. Also die DB-Felder,Datenbanken und ich kann neue Datensätze in die Datenbank übernehmen.

Die Verbindung habe ich mit DataSource und TTable hergestellt.