Tabelle aus externer DB in aktuelle DB mit VBA verknüpfen

[tocotronicx]

Hallo.
Ich möchte gerne eine Tabelle aus einer externen DB in mein aktuelles Projekt verknüpfen.
Eine Lösung mittels DAO hab ich schon ich bräuchte aber eine mittels ADO.
Hier noch der CODE:

Public Function LinkedTableAll(strSourceDBdpfad As String, strSourceTableName As String) As Boolean
On Error GoTo LinkedTableAll_err

Dim strTargetTableName As String

Dim dbsource As DAO.Database
Dim dbtarget As DAO.Database
Dim tdf As DAO.TableDef

strTargetTableName = "tbl_Anlage"

Set dbsource = OpenDatabase(strSourceDBdpfad)
Set dbtarget = CurrentDb
Set tdf = dbtarget.CreateTableDef(strTargetTableName)
    tdf.Connect = ";DATABASE=" & strSourceDBdpfad
    tdf.SourceTableName = strSourceTableName
    dbtarget.TableDefs.Append tdf
dbsource.Close
dbtarget.Close
Set dbsource = Nothing
Set dbtarget = Nothing

LinkedTableAll_99:
  Exit Function

LinkedTableAll_err:
  msgbox "LinkedTableAll_err:" + Err.Description
  Resume LinkedTableAll_99
End Function

Schon mal recht herzlichen Dank

MfG Bernhard

 

[Norbert Eder]

Und was genau willst jetzt? Dass Dir das jemand programmiert? Wirds wohl nicht spielen ... aber hier hast Du einen Link mit einem Beispiel. Damit sollte es Dir ein Leichtes sein, die notwendigen Änderungen durchzuführen:

Klick

 

[tocotronicx]

Danke schön

Herzlichen Dank mehr wollt ich nicht.