Access Datenbank mit Eingegebenem Vergleichen

[hasserwahn]

Hi

ich will wissen, wie ich etwas, das ich z.B. in einem Memo-Feld eingegeben habe,
mit einzelnen Feldern einer Access-Datenbank vergleichen kann.

vielen Dank im voraus :-D

mfg

hasserwahn

[mkinzler]

Willst du wissen, ob die Eingabe in irgendeinem Record in der Tabelle vorkommt? Ist eine 100%ige Übereinstimmung erwümscht?

[hasserwahn]

Ich will ein Feld auslesen, und den Inhalt dann in ein anderes Memo-Feld schreiben.
Außerdem will ich auch eine Suchfunktion einbauen, bei der aber eine 100%ige Übereinstimmung erforderlich ist.

[mkinzler]

Eine genau Suche sieht in SQL so aus:

SQL-Code:

Select <feldliste> from <tabelle> where <feld> = <wert>;

als

Delphi-Quellcode:

Adoquery.sql.Text := 'select id from Tabelle where memo = '+QuotedStr( memo.text);
AdoQuery.Open;

oder noch besser unter Verwendung von Parametern:

Delphi-Quellcode:

Adoquery.sql.Text := 'select id from Tabelle where memo = :such'; 
...
AdoQuery.Parameters.ParamByName('such').Value : Memo.Text;
AdoQuery.Open;

[hasserwahn]

:wiejetzt:

also ich hab das so gemacht:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
 Adoquery.sql.Text := 'select id from Tabelle where memo = :such';
 AdoQuery.Parameters.ParamByName('such').Value := Memo.Text;
 AdoQuery.Open;
end;

aber wenn ich den Button dann klicke, dann kommt diese Meldung:
'Im Projekt Projekt1.exe ist eine Exception der Klasse EOleException mit der Meldung 'Das Microsoft Jet-Datenbankmodul findet die Eingngstabelle oder Abfrage 'Tabelle' nicht. Stellen Sie sicher, dass sie existiert und der Nme richtig geschrieben ist' aufgetreten'

kann mir einer helfen?

[mkinzler]

Tabelle war auch als Platzhalter gedacht, habe es nicht richtig markiert. Du mußt hier den Namen deiner Tabelle einfügen.

[hasserwahn]

ok durch was muss ich 'tabelle' denn ersetzten? durch den namen wie XY.mdb oder wie?

[mkinzler]

Nein, xy.mdb ist ja die Datenbank, diese besteht aus Tabellen.

[hasserwahn]

ja ich habs gecheckt
jetzt hab ich das so eingegeben:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
begin 
Adoquery.sql.Text := 'select id from Test where memo = :such'; 
AdoQuery.Parameters.ParamByName('such').Value := Memo.Text; 
AdoQuery.Open; 
end;

aber dann kommt eine meldung,dass für mindestens einen erforderlichen parameter der wert fehlt.

was jetzt?

[mkinzler]

Was für einen Wert hat .ParamCheck?