EDatabaseError - auslesen aus DB

[capo]

Hallo

ich versuche schon seit einiger Zeit aus einer *.dbf Datei alle Rechnungsnummern herauszusuchen die ihre Rechnung noch nicht bezahlt haben, das mache ich so:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
With Query1 do
 begin
  sql.add('select * from Rechnungen where BEZAHLT = BEZAHLT ');
Open;
  While not EOF do
  begin
  memo1.Lines.Add(FieldByName('N').AsString + ' => gefunden!');  // N = Nein
  Next;
 End;
 Close;
end;
end;

Klappt überhaupt nicht, erhalte folgende Fehlermeldung:

Zitat:

---------------------------
Benachrichtigung über Debugger-Exception
---------------------------
Im Projekt Rechnung.exe ist eine Exception der Klasse EDatabaseError aufgetreten. Meldung: 'Query1: Das Feld 'N' wurde nicht gefunden'. Prozess wurde angehalten. Mit Einzelne Anweisung oder Start fortsetzen.
---------------------------

Wollte es erstmal in einem Memo darstellen, soll später in ein DBGRID.
Da weiss ich auch noch nicht wie.


gruesse
capo

[DocE]

Hallo Capo,

dann scheint es das Feld "N" wohl nicht zu geben. Was meinst Du mit N = Nein?

Grüsse
...Doc

[hoika]

Hallo,

du wirfst hier etwas durcheinander.

ändere deine Query (vor dem 2. BEWZAHLT kommt ein Doppelpunkt).

Delphi-Quellcode:

sql.add('select N from Rechnungen where BEZAHLT = :BEZAHLT ');
ParamByName('BEZAHLT').AsString:= 'N'; // falls es ein Char ist
Open;
try
  while not EOF // usw.
finally
  Close;
end;

das select N geht davon aus, dass das Rechnungsnummer Feld N heisst,
falls nicht, ändern.


Heiko

[capo]

Hallo Heiko

Danke für deine Hilfe.
Ich verwechsel da glaub ich immer noch was:

Delphi-Quellcode:

procedure TFRechnung.Button1Click(Sender: TObject);
begin
With Query1 do
 begin
  sql.add('select RGNR from Rechnungen where BEZAHLT = :BEZAHLT ');
ParamByName('BEZAHLT').AsString:= 'N'; // falls es ein Char ist
Open;
try
  while not EOF do
  begin
  memo1.Lines.Add(FieldByName('N').AsString + ' => gefunden!');
  Next;
 End;
finally
  Close;
end;
end;
end;

Schau dir bitte mal die Struktur an:

[mkinzler]

Das Feld heißt BEZAHLt also muß es
memo1.Lines.Add(FieldByName('BEZAHLT').AsString + ' => gefunden!'); heißen.

[capo]

hi, irgendwie nicht, erhalte dann als Meldung:

Zitat:

---------------------------
Benachrichtigung über Debugger-Exception
---------------------------
Im Projekt rechnung.exe ist eine Exception der Klasse EDatabaseError aufgetreten. Meldung: 'Query1: Das Feld 'BEZAHLT' wurde nicht gefunden'. Prozess wurde angehalten. Mit Einzelne Anweisung oder Start fortsetzen.
---------------------------
OK Hilfe
---------------------------

gruss
capo

[mkinzler]

Du läßst dir ja auch nur ein Feld zurückgeben:

Zitat:

select RGNR from Rechnungen where BEZAHLT = :BEZAHLT

Erweitere die Feldliste dementsprechend.

[DocE]

Das liegt daran:


sql.add('select RGNR from Rechnungen where BEZAHLT = :BEZAHLT '); Du musst die Felder, auf die Du zugreifen möchtest auch abfragen, z.B. mit

sql.add('select RGNR,BEZAHLT from Rechnungen where BEZAHLT = :BEZAHLT '); oder

sql.add('select * from Rechnungen where BEZAHLT = :BEZAHLT '); Grüsse
...Doc

[capo]

Ich fang gerade erst damit an.
Danke das war es!

Gruss Capo

[capo]

Ich doch nochmal.
Was muss ich tun wenn ich alle Daten der Zeile in der (N) sich befindet in ein DBGrid bekommen will?
Oder hat jemand ein kleines Tutorial speziell für Delphi & Dbase?
gruss
capo