Thema: Delphi Abfrage Prob

Einzelnen Beitrag anzeigen

the7

Registriert seit: 21. Apr 2005
16 Beiträge
 
#1

Abfrage Prob

  Alt 26. Jul 2005, 23:07
Datenbank: MySQL • Version: 4.1 • Zugriff über: Zeosdbo
Hallo, ich benutze Delphi 4 und die Zeoslibs um auf meine MySQL DB zuzugreifen.
Folgendes Prob.: dazu der CODE:


Delphi-Quellcode:
Form4.qrMain.Sql.Text:='SELECT * FROM kunden WHERE Nachname LIKE "'+k+'%" OR Nachname LIKE "'+l+'%"';
 showmessage(Form4.qrMain.Sql.Text);
 Form4.qrMain.Open;
 
 i:=1;
      while not Form4.qrMain.Eof do
       begin
       StringGrid1.RowCount:=i;
       StringGrid1.Cells[1,i]:=qrMain.FieldByName('ID').AsString;
       StringGrid1.Cells[2,i]:=qrMain.FieldByName('Vorname').AsString;
       StringGrid1.Cells[3,i]:=qrMain.FieldByName('Nachname').AsString;

       i:=i+1;
        Form4.qrMain.Next;
       end;
Ich frage die komplette Tabelle "kunden" aus, und möchte diese in mein StrinGrid schreiben. KLappt soweit auch, jedoch fehlt immer der letzte Eintrag, habe ich z.B. 4 Einträge die mit "h" beginnen, werden nur 3 angezeigt. Jemand ne Idee wieso???

Die Variable "k" und "l" sind jeweils der Anfangsbuchstabe des Nachnamens einmal in groß, einmal in klein.

Danke im Vorraus.

[edit=r_kerber]Delphi-Tags eingefügt. Beim nächsten Mal bitte selbsr daran denken. Mfg, r_kerber[/edit]
  Mit Zitat antworten Zitat