---

Guten Morgen,

ich habe folgenden Code:

Code:

---

    Dim rstZC_AST As Recordset
    Dim sql As String
    Dim verbindung As Connection
    Dim AKKworkspace As Workspace
    Set AKKworkspace = CreateWorkspace("NewODBCWorkspace", "Stech", "rolli", dbUseODBC)
    Set verbindung = AKKworkspace.OpenConnection("Connection1", dbDriverCompleteRequired, _
        True, "ODBC;DATABASE=AKK;DSN=EKKECAD01;")
    ' Einlesen der AST-Benennungen in die einzelne Bereiche
    sql = "select * from ZCAST order by ZCASTBenennung"
    Set rstZC_AST = verbindung.OpenRecordset(sql)

---

Der Code läuft auch ohne Fehlermeldung durch! Wenn ich aber im RecordCount von rstZC_AST nachgucken, steht da -1 drin, obwohl die Table ZCAST gefüllt ist, warum?
Was mache ich falsch?
Danke schon mal für die Hilfe!

Gruß

Markus

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hat sich erledigt!
Danke!

Gruß

Markus

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Markus,

was war es denn?

------------------
Gruß
SEHER
www.inventor-tools.de

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Entschuldigung für die späte Antwort, aber ich hatte in der Zwischenzeit viel um die Ohren.
Ich mache es jetzt so:

Code:

---

    Dim rstZC_AST As Recordset
    Dim qdfZC_AST as Querydef
    Dim verbindung As Connection
    Dim AKKworkspace As Workspace
    Set AKKworkspace = CreateWorkspace("NewODBCWorkspace", "Stech", "rolli", dbUseODBC)
    Set verbindung = AKKworkspace.OpenConnection("Connection1", dbDriverCompleteRequired, _
        True, "ODBC;DATABASE=AKK;DSN=EKKECAD01;")
    ' Einlesen der AST-Benennungen in die einzelne Bereiche
    set qdfZC_AST = AKKWorkspace.CreateQuerydef("")
    qdfZC_AST.SQL = "select * from ZCAST order by ZCASTBenennung"
    Set rstZC_AST = qdfZC_AST.OpenRecordset()
    Do Until rstZC_AST.EOF
      .................
      .................
      .................
      rstZC_AST.MoveNext
    Loop

---

Gruß

Markus

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Markus,

kann es sein das du den Cursor serverseitig hast ?
Dann hat die Eigenschaft Recordcount immer -1.

Code:

---

Set RS_Flurstücke = New ADODB.Recordset
With RS_Flurstücke
    .Source = vlst_SQL
    .ActiveConnection = TB_connection.ConnectionString
    .CursorLocation = adUseClient
    .LockType = adLockOptimistic
    .CursorType = adOpenDynamic
    .Open
End With

---

Wenn der Cursor am Client ist wird sie korrekt abgefüllt. Das hat aber auch den Effekt das der komplette Recordset an den Client übertragen wird. Wenn der sehr gross ist, kann das ein wnig dauern.

Wilfried Stelberg

------------------
Warum lisp'eln wenn's auch anders geht.
www.ib-stelberg.de

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP