Abfrage via Access

Apo95 · Verfasst: So 29.07.12 14:14

Hallo,Leute,

ich versuche, ein Datenbankprogramm zu bauen. Der Nutzer gibt den Suchbegriff in eine Editfeld ein und in einer DBGrid soll das Ergebnis markiert werden. Der Quellcode allerdings tut nicht das, was ich will; es erscheint immer eine Fehlermeldung und/oder das Ergebnis wird nicht markiert.

Hier der Source:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

adoquery1.Active := true;
  adoquery1.ExecSQL;
  if adoquery1.RecordCount = 1
  then begin
     Edit1.Text :=ADOQuery1Identifier.Text;
     Edit1.Text := ADOQuery1INN.Text;
     cyDBAdvGrid1.Selection;
     cyDBAdvGrid1.Selection;
     cyDBAdvGrid1.SetFocus;
  end
  else
  Edit1.Clear;
    Application.MessageBox('Es stimmte kein Eintrag mit Ihrer Suchanfrage überein.','Kein Ergebnis/Suche fehlgegangen',mb_ICONSTOP or mb_OK);

Weiß jemand Rat? Ich habe mit Datenbankprogrammen nur sehr wenig Erfahrung.

Moderiert von Narses: Delphi-Tags hinzugefügt

_________________
Lette-Verein MIA

Ehemaliges Mitglied Erhaltene Danke: 1

Apo95 hat folgendes geschrieben :

Weiß jemand Rat? Ich habe mit Datenbankprogrammen nur sehr wenig Erfahrung.

Nein, ich rate noch:

1. Welche Fehlermeldung erscheint denn?
2. Wie sieht dein SQL-String aus?

Ohne diese Informationen kann kein Mensch der Welt eine sinnvolle Antwort auf deine Frage geben. Wieso verschweigst du sie dennoch?

Apo95 · Verfasst: Di 31.07.12 15:12

Danke für den Tipp: Das hatte ich völlig verpennt...

SELECT *FROM care_icd10_de

Fehlermeldung:

'Es konnte kein passender Eintrag gefunden werden.' Diese Fehlermeldung habe ich eingefügt, falls tatsächlich kein Eintrag übereinstimmt. Diese erscheint aber immer .

_________________
Lette-Verein MIA

bummi · Verfasst: Di 31.07.12 15:51

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

  adoquery1.Active := true;
  //adoquery1.ExecSQL;  >> ExecSQL brauchst Du wenn Du einen Befehl ohne Ergebnismenge ausführen willst
  if adoquery1.RecordCount = 1 // was wenn mehr als ein Satz zurückkommt
   then 
    begin
     Edit1.Text :=ADOQuery1Identifier.Text;
     Edit1.Text := ADOQuery1INN.Text;
     cyDBAdvGrid1.Selection;
     //cyDBAdvGrid1.Selection; >>> Doppelt
     cyDBAdvGrid1.SetFocus;
    end
  else
    begin // ohne begin - end wid die Nachricht immer angezeigt
      Edit1.Clear;
      Application.MessageBox('Es stimmte kein Eintrag mit Ihrer Suchanfrage überein.','Kein Ergebnis/Suche fehlgegangen',mb_ICONSTOP or mb_OK);
    end;

Moderiert von Narses: Code- durch Delphi-Tags ersetzt

_________________
Das Problem liegt üblicherweise zwischen den Ohren H₂♂
DRY DRY KISS

Ehemaliges Mitglied Erhaltene Danke: 1

Apo95 hat folgendes geschrieben :

Danke für den Tipp: Das hatte ich völlig verpennt...
SELECT *FROM care_icd10_de
Fehlermeldung: 'Es konnte kein passender Eintrag gefunden werden.' Diese Fehlermeldung habe ich eingefügt, falls tatsächlich kein Eintrag übereinstimmt. Diese erscheint aber immer .

Tja, einen Befehl *FROM gibt es nicht ...

bummi · Verfasst: Di 31.07.12 20:24

@Perlsau

??? :gruebel:

_________________
Das Problem liegt üblicherweise zwischen den Ohren H₂♂
DRY DRY KISS

Narses · Verfasst: Di 31.07.12 21:12

Moin!

@ user profile icon

bummi: Ich schätze er meint, dass da ein Space fehlt. :idea:

cu
Narses

_________________
There are 10 types of people - those who understand binary and those who don´t.

Ehemaliges Mitglied Erhaltene Danke: 1

Narses hat folgendes geschrieben :

@

bummi: Ich schätze er meint, dass da ein Space fehlt. :idea:

@ Narses: Exakt erkannt. Wenn der TE diesen SQL-Befehl direkt in den Foren-Editor kopiert hat, ist das der Fehler, der dafür sorgt, daß " kein passender Eintrag gefunden werden" konnte. Ansonsten hat er sich nur vertippt ...

Moderiert von Narses: Beiträge zusammengefasst

bummi hat folgendes geschrieben :

@Perlsau

??? :gruebel:

Ich hätte auch schreiben können: Eine Spalte *from gibt es nicht ...

bummi · Verfasst: Di 31.07.12 23:00

Ich hatte das fehlende Leerzeichen tatsächlich übersehen, wenn ich eine Abfrage in der Art in einem Adodataset verwende wird es erstaunlicherweise aber trotzdem problemlos geöffnet.

_________________
Das Problem liegt üblicherweise zwischen den Ohren H₂♂
DRY DRY KISS

Ehemaliges Mitglied Erhaltene Danke: 1

bummi hat folgendes geschrieben :

Ich hatte das fehlende Leerzeichen tatsächlich übersehen,

Kommt in den besten Familien vor :wink:

bummi hat folgendes geschrieben :

wenn ich eine Abfrage in der Art in einem Adodataset verwende wird es erstaunlicherweise aber trotzdem problemlos geöffnet.

Das ist ja der Hammer :!:

Intelligentes AdoDataset ... Dann wird der Fehler beim TE wohl woanders liegen ...

bummi · Verfasst: Di 31.07.12 23:15

Ich denke es ist das fehlende Begin .. End im Else Zweig, die Fehlermeldung wird er inzwischen geändert haben .... :glaskugel:

_________________
Das Problem liegt üblicherweise zwischen den Ohren H₂♂
DRY DRY KISS

Ehemaliges Mitglied Erhaltene Danke: 1

bummi hat folgendes geschrieben :

Ich denke es ist das fehlende Begin .. End im Else Zweig

Das ist es mit Sicherheit:

markieren

Delphi-Quelltext

1:
2:
3:

else
  Edit1.Clear;
    Application.MessageBox ...

Logischerweis wird die Messagebox immer angezeigt.

bummi hat folgendes geschrieben :

die Fehlermeldung wird er inzwischen geändert haben .... :glaskugel:

Die Fehlermeldung sollte heißen: "Ich bin eine sinnlose Messagebox ..."

Du hast eine Glaskugel? Wow! :lol:

DannyVapid · Beiträge: 38 Delphi 5 Enterprise

markieren

Delphi-Quelltext

1:
2:

if not ADOQuery1.Locate('Identifier', Edit1.Text, [loPartialKey])
   then ShowMessage('Nix gefunden');

das sollte gehen

Moderiert von Martok: Delphi-Tags hinzugefügt

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme