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
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige