Hallo Forum,

ich greife über iSeries Access ODBC Driver auf eine Datenbank zu. Aus der Tabelle TABTEST will ich erst Mal alle Sätze/ Alle Spalten ablesen (bevor ich Anfange mit WHERE zu suchen)
Die ODBC ist eingerichtet, Die Verbindung kommt zustande, das Recordset weist aber nur ein Record auf (erste Zeile der Tabelle, Inhalt ist korrekt), dabei hat die Tabelle ca. 600 Zeilen. Wo ist der Hund begraben?


----Sub SQL_Query()
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
conn.Open "Driver={iSeries Access ODBC Driver};System=xxx.xxx.x.xx; Uid=xxxx;Pwd=xxxx;"
'MsgBox conn.State
rs.Open "SELECT * FROM QU.TABTEST AS TABTEST ", conn
Dim Anzahl
Anzahl = rs.RecordCount
----

Vilelen Dank im Vorau!

David