Query gibt nur 1 Zeile zurück

[Sharky]

Hai theomega,

Zitat von theomega:

Delphi-Quellcode:

...
procedure TForm1.Button2Click(Sender: TObject);
var i:integer;
begin
execquery('SELECT * FROM sachbuch sb, gliederung gl WHERE (sb.sbid = gl.sbid)',true);
for i:= 0 to qrmain.RecordCount-1 do begin;
  qrmain.RecNo := i;
  showmessage(qrmain.fieldbyname('SBNR').asstring+'->'+qrmain.fieldbyname('GLNR').asstring);
end;
end;

Mit RecNo kannst Du glaube ich nur die Nummer des aktiven DS abfragen.

Probiere mal das:

Delphi-Quellcode:

...
procedure TForm1.Button2Click(Sender: TObject);
var i:integer;
begin
execquery('SELECT * FROM sachbuch sb, gliederung gl WHERE (sb.sbid = gl.sbid)',true);
while NOT (qrmain.eof) do
 begin
  showmessage(qrmain.fieldbyname('SBNR').asstring+'->'+qrmain.fieldbyname('GLNR').asstring);
  qrmain.next;
 end;
end;

Was mich noch wundert: Du möchtest die Felder "SBNR" und "GLNR" anzeigen hast sie aber nicht in der SELECT Anweisung stehen?