---

Kann mir jemand dabei helfen, eine dBase Datenbank mit ACAD-VBA Makro zu öffnen und die Felder dieser Datenbank auszulesen

Danke
Erich

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

---

das wird nur mittels passendem ODBC-Treiber funktionieren.

Sind es wirklich DBase Dateien oder Clipper (haben die selbe Endung *.dbf, dBase hat Indexdateien *.ndx , Clipper hat Index-Dateien *.NTX)

Für dBase-Dateien sollte es eigentlich standardmässig ODBC-Treiber geben. Da richtest du dir einen ein, und taufst ihn z.B.: MyDBASEConnection

den kannst du dan in VBA z.B.: mittels DAO so einbinden

Set db = OpenDatabase("MyDBASEConnection", dbDriverPrompt, True, "ODBC")

------------------

Ing. Anton Fuchs
WWW.FFZELL.AT.TC

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

---

Danke Anton

Vielleicht gibt es auch noch etwas Programm-Code für mich?
Wäre ewig dankbar.

mfg
Erich

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

---

Hallo Erich,
das läuft auch über ADO. Hat den Vorteil das du jederzeit
eine andere Datenquelle z.B. Access oder Oracle oder ...
einbinden kannst. Da brauchts du nur den ConnectionString
wechseln.

Hier ein Beispiel:
.....
Dim adoCon As ADODB.Connection
Dim adoRs As ADODB.Recordset

Private Sub Form_Load()
Dim conStr As String
Dim field As ADODB.field

Set adoCon = New ADODB.Connection
conStr = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=dBASE-Dateien;Initial Catalog=e:\leg"
adoCon.CursorLocation = adUseClient
adoCon.ConnectionString = conStr
adoCon.Open

Set adoRs = New ADODB.Recordset
adoRs.Source = "analytik"
adoRs.ActiveConnection = adoCon.ConnectionString
adoRs.CursorType = adOpenDynamic
adoRs.CursorLocation = adUseClient
adoRs.Open

For Each field In adoRs.Fields
    Debug.Print field.Name
Next field

If adoRs.RecordCount > 0 Then
  adoRs.MoveFirst
  While Not adoRs.EOF
      Debug.Print adoRs(0).Value
      Debug.Print adoRs(1).Value
      adoRs.MoveNext
  Wend
End If

End Sub
....

Unter Verweisen muß "Microsoft ActiveX Data Objects 2.x .." angegeben
werden. Ich habe die Version 2.8.
Wenn die nicht vorhanden ist, gibts die im Internet bei MicroZoff.
MDACTYP.EXE oder so.

Viel erfolg
Stelli1

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

---

Danke für deine Mithilfe!!!!!

mfg
Erich

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