Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Daten aus Access importieren

Daten aus Access importieren
06.12.2006 17:07:30
pweksictul
Hallo,
ich versuche erfolglos Daten aus einer Access Datei nach Excel zu importieren. Innerhalb der Datenbank "Celex.mdb" (Access 2000 Format) gibt's eine Tabelle mit dem Namen "GermMorphWord" in der ich jeweils einen bestimmten Datensatz suchen möchte (Wort) und einen dazugehörigen Wert (Frequenz) auslesen möchte. Bisher habe ich den folgenden Code verwendet, scheitere aber an der OpenRecordset-Methode. Hier bekomme ich den Fehler "Typen unverträglich", kapiere aber nicht warum. Wäre prima, wenn mir jemand das Brett vom Kopf reißen könnte und vielleicht sogar noch einen Tipp geben könnte, wie's dann weiter gehen könnte.

Sub Frequenzen_nachsehen()
Dim Engine As Workspace
Dim Celex_DB As Database
Dim Datensatz As Recordset
Dim Wort As String, Frequenz as Long
Set Engine = DBEngine.Workspaces(0)
Set Celex_DB = Engine.OpenDatabase("..\Celex.mdb")
Set Datensatz = Celex_DB.OpenRecordset("GermMorphWord")
Celex_DB.Close
Engine.Close
End Sub

Dank im voraus,
Pwek
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Daten aus Access importieren
07.12.2006 00:05:39
Yal
Das Problem liegt bei der Unterscheidung zwischen Verwendung der DAO (alte Variante) und ADO (neue Variante) Bibliothek.
Wegen der Zeile "Set Datensatz = Celex_DB.OpenRecordset("GermMorphWord")" gehe ich davon aus, dass Du ADO verwenden will.
So soll das Coding aussehen (ob den Workspace noch notwendig ist, ist mir unklar):

Sub Frequenzen_nachsehen()
Dim Engine As Workspace
Dim Celex_DB As ADODB.Database
Dim RS As ADODB.Recordset
Dim Wort As String, Frequenz as Long
Set Engine = DBEngine.Workspaces(0)
Set Celex_DB = Engine.OpenDatabase("..\Celex.mdb")
Set RS = Celex_DB.OpenRecordset("GermMorphWord")
Do While Not RS.EOF
Debug.Print RS.Fields(0) & " / " & RS.Fields(1) '....
RS.MoveNext
Loop
RS.Close
Celex_DB.Close
Engine.Close
End Sub

Viel Erfolg
Yal
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige