SQL Tabellen automatisch verbinden

17/06/2008 - 09:23 von Diego Torres Zamora | Report spam
Hallo NG,

ich habe das Problem dass ich Tabellen aus einem SQL Server via ODBC
automatisch verbinden möchte / muss. Das Problem ist dass ich KEINE "Trusted
Connection" verwenden kann. Bei dem Server handelt es sich um einen 0815 PC
OHNE Verbindung zur Domàne / LDAP. Manuell kann ich ohne Probleme die
Verbindung herstellen, aber via VBA habe ich noch keinen Weg gefunden.
Wàre echt geil wenn mir jemand weiterhelfen könnte.

lg
Diego
 

Lesen sie die antworten

#1 Stefan Dase
17/06/2008 - 10:27 | Warnen spam
Hallo Diego!

(...)Manuell kann ich ohne Probleme die
Verbindung herstellen, aber via VBA habe ich noch keinen Weg gefunden.
Wàre echt geil wenn mir jemand weiterhelfen könnte.



Hier mal ein Beispiel für das Herstellen der Verbindung zu einem MS
SQL-Server ohne DSN-Eintrag. Es werden alle Tabellen durchlaufen und bei
allen verknüpften der Link erneuert:

Public Function reConnectDsnLess()

Dim dbs As DAO.Database
Dim tdf As DAO.TableDef
Dim sConnect As String

Set dbs = CurrentDb

sConnect = "ODBC;" & _
"DRIVER={SQL Server};" & _
"SERVER2.168.1.1;" & _
"DATABASE=DatenbankName;" & _
"UID=UserName;" & _
"PWD=Password;" & _
"APP=Microsoft Office 2003;" & _
"WSID=NB184;"

For Each tdf In dbs.TableDefs
If Len(tdf.Connect) > 0 Then
tdf.Connect = sConnect
tdf.RefreshLink
End If
Next tdf

Set tdf = Nothing
Set qdf = Nothing
Set dbs = Nothing

End Function

HTH,
Stefan

Ähnliche fragen