Stechi Mitglied Informatiker

 Beiträge: 75 Registriert: 17.01.2008
|
erstellt am: 19. Mrz. 2008 15:39 <-- editieren / zitieren --> Unities abgeben:         
Hallo Forum ich habe folgenden Code: Ich brauche nochmal Deine Hilfe. Ich habe folgenden Code aus der Onlinehilfe herauskopiert und angepasst:
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 falsch? Danke schon mal für die Hilfe! Gruß Markus Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |