Herbers Excel-Forum - das Archiv

Daten auslesen aus Access klappt nicht! HILFE



Excel-Version: 9.0 (Office 2000)
nach unten

Betrifft: Daten auslesen aus Access klappt nicht! HILFE
von: Stefan


Geschrieben am: 21.05.2002 - 19:03:53

Folgenden Quelltext hab ich eingegeben


Sub ExcelTabellenErstellen()



Dim arrSI() As Variant

Dim CRSPVerbindung As New ADODB.Connection

Dim CRSPtabSI As New ADODB.Recordset


CRSPVerbindung.Provider = "Microsoft.Jet.OLEDB.4.0"

CRSPVerbindung.Open ("E:\CRSP\CRSP-MFDB-200112.MDB")

CRSPtabSI.Open "tabSI", CRSPVerbindung, adOpenDynamic, adLockOptimistic


arrSI = CRSPtabSI.GetRows(CRSPtabSI.RecordCount)

MsgBox ("SI enthält " & CRSPtabSI.RecordCount & " Einträge")

CRSPVerbindung.Close
Set CRSPVerbindung = Nothing

End Sub

Ich will aus der CRSP-Datenbank mit dem oben angegebenen Pfad aus einer in der Datenbank enthaltenen Tabelle mit dem Namen tabSI alle Werte in das array arrSI schreiben.
Wenn ich mir (als Test) dann die Anzahl der Einträge ansehen will, erhalte ich immer -1, d.h. offenbar hat das einlesen nicht geklappt. Kann mir jemand helfen - wo liegt der Fehler?

nach oben   nach unten

Re: Daten auslesen aus Access klappt nicht! HILFE
von: Michael Stefan


Geschrieben am: 22.05.2002 - 11:30:16

Hallo Stefan,

ich habe Dir funzenden Sourcecode gepostet.

Dein Connection-String sollte sinnvollerweise schon ein SQL-Kommand enthalten. Außerdem sagt die Hilfe zu .count, dass wenn dort -1 steht, das auch mit dem verwendeten Cursor zu tu haben kann.

Gruß

Micha


 nach oben

Excel-Beispiele zum Thema "Daten auslesen aus Access klappt nicht! HILFE"
Mehrfachauswahl aus ListBox auslesen Dateien aus Listbox auslesen und öffnen
Bereich in RefEdit-Element eingeben und auslesen Auslesen der Arbeitsmappeneigenschaften
UserName aus der Windows-Registry auslesen Eintrag aus der Win.ini auslesen
Einzelnes Zeichen aus einer InputBox-Eingabe auslesen Ausgewählte Arbeitsblätter auslesen
Mehrfachauswahl in ListBox auslesen Access-Datenbank öffnen und deren Makro starten