Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
Anzeige
Archiv - Navigation
824to828
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
824to828
824to828
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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

308 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige