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?

[hasserwahn]

Die Eigenschaft .ParamCheck von dem ADOQuery hat true

[hasserwahn]

und wenn ich den Wert con ParamCheck auf false stelle, dann kommt eine
Fehlermeldung, dass er den Parameter 'Such' nicht gefunden hat.

[mkinzler]

Er muß True sein. Zeigt er noch mehr Parameter an?

[hasserwahn]

Ja hier sind alle Eigenschaften von ADOQuery:

• AutoCacheFields : true
  CacheSize: 1
  commndTimeout: 30
  ConnectionString:
  CursorLocation: clUseClient
  CursorType: ctKeyset
  Datasource:
  ExecuteOptions: []
  eoAsyncExecute: false
  eoAsyncFetch: false
  eoAsyncFetch: false
  eoExecuteNoRecords: false
  Filter:
  Filtered: false
  LockType: ltOptimistic
  MarshalOptions: moMarshalAll
  MaxRecords: 0
  Paramcheck: true
  Parameters:(TParameters)
  prepared: false
  SQl:(TWideStrings)
  Connection:DataModule2.ADOConnection1
  DataSource:
  Active: false
  EnableBCD: true
  Name: ADOQuery
  Tag:0

[mkinzler]

Delphi-Quellcode:

Parameters:(TParameters)

Gibt es hier noch weitere Parameter?

[hasserwahn]

nein da steht kein einziger parameter drin

[mkinzler]

Weise mal das Statement im OI zu

[hasserwahn]

welches statement zu was für einem 'OI' ?

[hasserwahn]

OI(Objektinspektor) is jetzt klar. aber was für ein statement meintest du?

[mkinzler]

Die SQL-Abfrage

[hasserwahn]

soll ich jetzt bei

Delphi-Quellcode:

SQl:(TWideStrings)

was eintragen?
wenn ja dann was?
und wenn nein dann wo?

[mkinzler]

Ja genau die Abfrage, die du bisher im Programm mit .SQL.Text eingetragen hast.

[hasserwahn]

also mein quelltext sieht so aus:

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;

und jetzt soll ich bei

Delphi-Quellcode:

SQl:(TWideStrings)

eintragen:
'select id from Test where memo = :such'
oder wie?

[mkinzler]

Genau

[hasserwahn]

Ok so habe ich das gemacht. Aber es kommt immernoch die Meldung, dass für mindestens einen erforderlichen Parameter kein Wert gesetzt wurde.
was tun?

[mkinzler]

Schau mal welche Parameter erzeugt wurden.

[hasserwahn]

ich weiß jetz grade nich, was du meinst. :gruebel:

in welchen parameter was reingeschrieben wurde oder wie?

[mkinzler]

Wenn ParamCheck True ist, wird beim Setzten eines Abfragestrings, die Parameter angelegt. Wenn du das im OI setzt, kannnst du sehen, welche Parameter aus der Abfrage resultieren.

[hasserwahn]

beim adoquery stehen in der params eigenschaft keine werte. dann starte ich das programm und drück den button. dann kommt eine meldung, dass er den parameter such nicht gefunden hat. wenn ich dann 'fortsetzten' drücke, und das projekt beende. dann steht in der eigenschaft params die parameter memo und ?. dann habe ich noch den parameter such
hinzugefügt, und wenn ich jetzt starte und den button drücke, dann kommt keine Fehlermeldung, aber auch sonst sehe ich nicht, dass irgendwas passiert. z.B. an dem memo-feld

[mkinzler]

Hat die Tabelle die Spalten ID und memo?

[hasserwahn]

die tabelle hat die spalten ID und test 1 bis test 12

[mkinzler]

Dann ersetze mal memo mit test1 (oder jeweiliges Memofeld)

[hasserwahn]

es is nix neues passiert.
was soll eig. passieren? is das eine prozedur zum durchsuchen einer datenbank?
wenn ja wie kann ich eingeben, was er suchen soll und wie kann ich ausgeben, ob er es gefunden hat?
und wenn nein was macht es dann?

[mkinzler]

Nein, aber man kann nur Felder einer tabelle durchsuchen, welche auch Teil dieser Tabelle sind.

[hasserwahn]

jetzt habe ich den text etw. geändert:

Delphi-Quellcode:

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

aber wie kann ich mir den inhalt von feld8 dann anzeigen lassen(z.B. in nem memo feld)?

[mkinzler]

Zitat:

aber wie kann ich mir den inhalt von feld8 dann anzeigen lassen(z.B. in nem memo feld)?

Delphi-Quellcode:

Memo.Text := Adoquery.FieldByName('feld8').Value;

oder eine DBMemo verwenden.

[hasserwahn]

und wie geht es mit nem DBMemo?

[mkinzler]

Zitat:

Zitat von hasserwahn

und wie geht es mit nem DBMemo?

dataSource auf AdoQuery setzten und dann das DBMemo mit der DataSource verbinden und Feld auswählen.

[hasserwahn]

also:
bei einem normalen memo sagt er, dass er den parameter servus nicht gefunden hat.

und bei nem dbmemo weis ich net, wie ich ein feld auswählen soll.

[mkinzler]

Versuch mal

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
    Adoquery.sql.Text := 'select feld8 from Test where feld1 = ?servus';
    AdoQuery.Parameters.ParamByName('servus').Value := Memo.Text;
    AdoQuery.Open;
end;

Zitat:

und bei nem dbmemo weis ich net, wie ich ein feld auswählen soll.

Über die Eigenschaft .DataField
BTW. Lese dir mal ein Tutorial über die Datenbankschnittstelle von Delphi durch