TSQLQuery.Next gibt einen Fehler bei MSSQL-ODBC-Verbindung

[Painterxyz]

Nachdem ich nun eine ODBC_Verbindung zu einer ms sql 2005 Datenbankhergestellt, mit der TSQLConnection-Komponente hergestellt hatte, ist es möglich die Daten auszulesen mit der TSQLQuery-Komponente.

So war ich vorgegangen: http://www.delphipraxis.net/internal...ct.php?t=99598

Beim auslesen in einer While-Schleife kommt es zu Problemen.

Delphi-Quellcode:

procedure TForm1.sqlquery();
var c,r: Integer;
begin
  r:=0;
  with SQLQuery1 do
  begin
    Close;
    Open;
    First;
  end;
  with SQLQuery1 do begin
    if FieldList.Count > 0 then
    begin
      StringGrid1.ColCount := FieldList.Count;
      while not SQLQuery1.Eof do
      begin
        for c := 0 to FieldList.Count - 1 do
        begin
          StringGrid1.Cells[c,r] := Fields.Fields[c].AsString;
        end;
        Inc(r);
        SQLQuery1.Next;
      end;
    end;
  end;
end;

Die Ergebnismenge beträgt 4 Zeilen bei der Abrage, SELECT * FROM dbo.irgendwas

An sich funktioniert es, aber beim 4. SQLQuery1.Next kommt eine Fehlermeldung.

Datenbank-Server-Fehler: dbExpress for ODBC: Failed to get an error message

Weiss jemand, wo der Fehler liegt und wie kann man den beheben?

[haentschman]

Hallo...


als Tip versuche mal folgendes...

ersetze die while Schleife durch

Delphi-Quellcode:

repeat
  ....
until SQLQuery1.FindNext = False

vieleicht kommt er mit dem Eof nicht klar :gruebel:

[Painterxyz]

Danke für deine Antwort.

Jetzt kommt kein Fehler mehr, aber nur ein Datensatz.

[mkinzler]

Ist in der 4. Zeile ein NULL-Wert?

[haentschman]

... :wiejetzt:

ich benutze bei mir immer repeat/until... :roll:
...er müßte normal alle durchlaufen bis er keinen nächsten mehr findet...
...im Prinzip umgekehrt zu Deiner Lösung, welche eigentlich genauso funtionieren müßte.

Find.Next setzt normal immer auf den nächsten Datensatz (sofern vorhanden) ansonsten ist das Result 'False'.

... :gruebel:

[edit]
die Ergebnismenge hat nur 4 Zeilen--> Datensatzzeiger auf Zeile1...
d.h. nach 3 Next ist der Datensatzzeiger schon auf dem letzten.

Zitat:

beim 4. SQLQuery1.Next

... ist einfach ein Next / Schleifendurchlauf zu viel.
[/edit]

[alzaimar]

@haentschman: Wie funktioniert das, wenn die Datenmenge komplett leer ist?

[haentschman]

mit einer Überprüfung vorher... :-D
...hast ja Recht...

PS: Fehler suchen heißt Fehlerquellen ausschließen...oder ? :-D

[mkinzler]

das Problem schreit deshalb nach einer While-Schleife

[Painterxyz]

In der 4. Zeile steht kein NULL-Wert.

Im Quelltext beim FindNext ist mir eine Merkwüridkeit aufgefallen.

Bei TDataSet.FindNext steht:

Delphi-Quellcode:

Result := FindRecord(False, True);

und in FindRecord steht:

Delphi-Quellcode:

Result := false;

:shock: was ist das für ein murks?

[alzaimar]

@haentschman: In der Kürz' liegt die Würz'.

@mkinzler: Deine Ein-Satz-Antworten sind immer wieder zum Schmunzeln. :thumb:

[mkinzler]

Wenn man es in einem Satz Ausdrückem kann, warum nicht. Außerdem bin ich schreibfaul :mrgreen:

[haentschman]

if not Query.IsEmpty then

ist auch nicht viel länger als

while not Query.EoF then

...so viel zum Thema Stil beim Programmieren...jeder hat seine Macke :-D

[edit]
...das alles hilft aber dem Thema nicht. Ich denke immer noch, das die Schleife zu oft durchlaufen wird ( warum auch immer )
und der Fehler durch das Next aufläuft weil der Datensatzzeiger nicht positioniert werden kann.
[/edit]

[mkinzler]

Zitat:

Zitat von haentschman

if not Query.IsEmpty then

ist auch nicht viel länger als

while not Query.EoF then ...

Dazu kommt aber noch das Repeat..Until.

[Painterxyz]

Mit einer zusätzlichen WHERE-Klausel, die für eine leere Datenmenge sorgt, gab es einen Fehler. Abfrage eingegeben und die TSQLQuery-Komponente auf aktiv gesetzt, da kam sie, die gleiche Fehlermeldung.
Wenn mindestens ein Datensatz zurückgegeben wird, kommt keine Fehlermeldung.

[haentschman]

Zitat:

Die Ergebnismenge beträgt 4 Zeilen bei der Abrage, SELECT * FROM dbo.irgendwas

An sich funktioniert es, aber beim 4. SQLQuery1.Next kommt eine Fehlermeldung.

...falsche Vorraussetzungen für eine Fehlersuche :???:

:?: muß mit der Überprüfung mit Eof nicht mindestens ein Datensatz vorhanden sein ? :gruebel:

...ich meine mich erinnern zu können und habe dann auf repeat/until mit Überprüfung auf leere Datenmenge (IsEmpty) gewechselt.

...aber du hast ja den Fehler gefunden. :thumb:

[mkinzler]

Zitat:

muß mit der Überprüfung mit Eof nicht mindestens ein Datensatz vorhanden sein ? Grübelnd...

Eigentlich nicht. EOF sollte bei einer leeren Datenmenge von Anfang an True sein

[Painterxyz]

Schön wärs ja wenn das Programm soweit kommen würde. Es scheitert aber gleich am Anfang wenn man im Quelltext SQLQuery1.Open schreibt oder die query-Komp. in der IDE auf aktiv setzt, bei einer leeren Datenmenge.

[mkinzler]

Sind irgendwelche Komponenten mit dem DataSet verknüpft?

[Painterxyz]

Nein, es sind nur die TSQLConnection- und die TSQLQuery-Komponente auf dem Formular.

[Painterxyz]

Um das ganze besser zu veranschaulichen, gibt es jetzt ein Zip-Archiv mit den Projektdateien.

Ich weiß es ist umständlich, aber es wird noch eine ODBC-Verbindung und eine beliebige MSSQL-Datenbank benötigt.
Das Delphi-Projekt wurde so eingerichtet: http://www.delphipraxis.net/internal...ct.php?t=99598

Danke schon im vorraus für jede Hilfe, zu diesem schwierigen Problem. Es muss doch einen Weg geben es zu lösen. :wall: