---

Hallo,
kann man mit VBA eine dBase (dbf) auslesen und in der idw einfügen. Hat jemand schon mal einen ODBC Treiber mittels VBA genutzt?
Gruß
Seher

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Seher,

beim Zugriff auf eine Datenbank über ODBC ist jeder Typ möglich (sofern ein Treiber installiert wurde).
Die Datenbank selbst muß bei der ODBC Datenbank-Verwaltung angemeldet werden(über Eigenschaften/Datenquellen(ODBC)). Falls dort die Datenquelle "dBase" unbekannt ist, muß der Treiber nachinstalliert werden. Dieser sollte für dBase in jeder Windows Version enthalten sein.
Der eigentliche Zugriff mit VBA ist sehr auführlich mit Beispielen in der EXCEL VBA Hilfe beschrieben. Weiterhin gibt es ein sehr gutes Buch (Achtung Werbung) von M. Kofler "VBA Programmierung EXCEL 2000" u.A. zu diesem Thema. Die Befehle sind in Inventor VBA und EXCEL die gleichen.
Hinweis: um die Beispiele sinnvoll nutzen zu können, sollte man in der VBA Umgebung unter "Extras/Verweise" die aktuelle DAO-Bibliothek anwählen (Microsoft DAO 3.xxx Object Library). Damit werden alle Konstanten und Objekte bekannt gemacht.

Grüße

Mario 2

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo mario2,
vielen Dank für die schnelle Reaktion, werde es nächste Woche mal in Angriff nehmen.
Gruß
Seher

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Forum,
also bei excel kann folgendermaßen auf eine access datei zugreifen.

Sub intro()
  Dim conn As New Connection
  Dim rec As New Recordset
  Dim ws As Worksheet
  Dim sql$, i&
  Set ws = ThisWorkbook.Worksheets("intro")
  conn.Open "Provider=microsoft.jet.oledb.4.0;" + _
    "Data Source=" + ThisWorkbook.Path + "\nwind.mdb;"
  sql = "SELECT LastName, FirstName " & _
        "FROM employees ORDER BY LastName, FirstName"
  rec.Open sql, conn
  While Not rec.EOF
    i = i + 1
    ws.[a1].Cells(i) = rec!LastName + ", " + rec!FirstName
    rec.MoveNext
  Wend
  rec.Close: conn.Close
End Sub

Was muß ich alles beim inventor ändern und wie würde der provider angesprochen wenn ich dies mittels microsoft odbc-treiber machen müßte?

Gruß
Seher

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP