Moin Ati,
Lege Dich nicht zu sehr mit usnerem
DP-Hai an, sonst wirft er mit (frischen) Heringen...
Ja Firebird hat so seine Starttücken und diese Phasen habe ich auch ausgiebig geniessen dürfen...
Nehme mal an das Meckern Deiner Routine beginnt bei Open. Je nach Zeos und Firebirdversion gibt es zumindest eine Kombination, die das Semikolon in der
Query nicht mag. Nimm es mal raus und melde was passiert. Zum Probieren würde ich als User 'SYSDBA' und Passwort 'masterkey' eintragen um keine Rechtebeschränkung zu haben. Zum Eintragen von einigen Datensätzen nimm
IB-Expert.
Nach dem Open würde ich das übrigens folgend machen:
Delphi-Quellcode:
while not qrMain.EOF do
begin
for i := 0 to Pred(qrMain.Fieldcount) do
begin
if i = 0 then
begin
ListItem := ListView1.items.Add;
ListItem.caption:=qrMain.fieldbyname('nummer').asString;
end;
else
begin
listItem.SubItems.Add(qrMain.fieldbyname('name').asString);
end;
end;
qrMain.Next
end;
So long ( bei mir ist heute Debugtag, bleibt spannend ..) // Grüße Martin