Tabelle verknüpfen mit VBA

[Markus Weber]

Ich hab wie in einem Beispiel folgendes Versucht um eine ODBC Tabelle
in Access hinzuzufügen:

Set objTable =
CurrentDb.CreateTableDef(objCon.rdoTables(lngI).Name)
objTable.Connect = conConnect
objTable.SourceTableName = objCon.rdoTables(lngI).Name
objTable.Attributes = dbAttachSavePWD
CurrentDb.TableDefs.Append (objTable)

Ich erhalte allerdings die Meldung: 3251: Operation is not supported
for this type of object. wieso ich gehe genau so for wie im Beuspiel
in der Hilfe

[Elmar Boye]

Hallo Markus,

"Markus Weber" <m.w...@megalith-software.de> schrieb ...

ich weiss nicht, wo Du das Beispiel her hast.
Aber mit den RDO-Objekten möchte DAO nichts zu tun haben.
Hier mal etwas Code für DAO:

Private Sub LinkODBCDatabase()
' Verknüpfungen mit den einer ODBC-Datenquelle erstellen
Dim dbs As DAO.Database
Dim tdf As DAO.TableDef
Dim dbsODBC As DAO.Database
Dim tdfODBC As DAO.TableDef
Dim strLocalName As String
Const ODBCConnect = "ODBC;DSN=DSNAME;DATABASE=DBNAME;UID=;PWD="

' Lokale Datenbank (oder Access CurrentDB()
Set dbs = DBEngine(0).OpenDatabase("F:\DB1.MDB")
' ODBC-Datenbank in Jet öffnen
' NAME hier ident zum DSN-Namen!
Set dbsODBC = DBEngine.OpenDatabase("DSNNAME", dbDriverNoPrompt, True,
ODBCConnect)

dbsODBC.TableDefs.Refresh
' Alle Tabellen verknüpfen
For Each tdfODBC In dbsODBC.TableDefs
' Hier entfällt dbo. ggf. "." durch "_" via Replace ersetzen
strLocalName = Mid(tdfODBC.NAME, InStr(1, tdfODBC.NAME, ".") + 1)
Set tdf = dbs.CreateTableDef(strLocalName, 0&, tdfODBC.NAME,
dbsODBC.Connect)
dbs.TableDefs.Append tdf
Next tdfODBC
dbs.TableDefs.Refresh
dbsODBC.Close
dbs.Close
End Sub

Gruss
Elmar

[Markus Weber]

Vielendank, das war genau das, was ich gesucht hab!

On Fri, 24 Nov 2000 00:31:56 +0100, "Elmar Boye" <eb...@my-deja.com>
wrote: