Office: SQL-Tabelle mittels VBA Verknüpfen

Hallo Access-Experten:

Die Link Table Funktion (s.u.) klappt prächtig mit MDB Datenbanken (danke an www.access-im-unternehmen.de) - gibt allerdings fehler bei SQL Datenbanken über ODBC raus

Wenn ich versuche das wie folgt zum laufen zu bringen:

strstr = "ODBC;UID=xxx;PWD=xxx;DSN=xxx;"
Set dbSource = DBEngine.Workspaces(0).OpenDatabase(strstr)

Gibt als Fehler raus "Datei nicht gefunden". Was muss man denn angeben, damit es mit ODBC klappt?`

Habt ihr Tipps für mich? DANKE!


****
Public Function LinkTable(strDatabaseSource As String, _

strTableSource As String, strTableDestination As String)

Dim dbSource As DAO.Database

Dim dbTarget As DAO.Database

Dim tdf As DAO.TableDef

On Error GoTo LinkTable_Err

Set dbSource = DBEngine.Workspaces(0).OpenDatabase(strDatabaseSource)

Set dbDestination = CurrentDb

Set tdf = dbDestination.CreateTableDef(strTableDestination)

tdf.Connect = ";DATABASE=" & strDatabaseSource

tdf.SourceTableName = strTableSource

dbDestination.TableDefs.Append tdf

LinkTable = True

LinkTable_Exit:

dbSource.Close

Set dbSource = Nothing

Set dbDestination = Nothing

Set tdf = Nothing

Exit Function

LinkTable_Err:

LinkTable = False

Resume LinkTable_Exit

End Function

:)

 

' Die neue, verkn?pfte Tabelle in db2 soll "MeineLinkTabelle" hei?en.
Set tdf = db.CreateTableDef(temptable)

' Die Quelltabelle befindet sich db1.mdb
tdf.Connect = "ODBC;DATABASE=xx;UID=xx;PWD=xx;DSN=xx;"

' Dort hei?t sie in Wirklichkeit "MeineQuellTabelle"
tdf.SourceTableName = "dbo." & temptable

' Anf?gen. Danach kann nichts mehr ge?ndert werden.
db.TableDefs.Append tdf

'DB schließen

 

Tipp: Beim SQL-Server kommst du sehr gut ohne DSN aus.
Code:

Falls du das Passwort speichern willst, hilft das:
Code:

 

danke, das ist nochmal einen Tick besser - es kommt mir auch etwas schneller als die DSN-Variante vor...

 

Hi,

kannst Du mal deinen kompletten Finalen Code posten, ich habe ein ähnliches Problem.

Danke

 

\@all

für die die es interessiert so gehts pur:

Code:

Solltet Ihr das auch ohne DSN haben wollen dann sagt bescheid, ich brauchs im Moment nicht.

LG

NetAble

 

\@all

für die die es interessiert so gehts pur:

Code:

Solltet Ihr das auch ohne DSN haben wollen dann sagt bescheid, ich brauchs im Moment nicht.

LG

NetAble

 

Hi,
hab gerade deine Code bei mir eingabeit, einwandfrei.
hast du die variante ohne DNS , so das keine ODBC verbindung bestehen muss.

thx
dualpowerxxx

 

Hallo!

Unter www.connectionstrings.de bzw. www.connectionstrings.com kannst du dein DBMS auswählen.

mfg
Josef

PS: www.connectionstrings.com scheint derzeit nicht erreichbar zu sein.