SQL-Serververbindung via DAO und DSN-Verbindung Dieser Code zeigt, wie man per DAO auf eine SQL-Serverdatenbank zugreifen kann.
Autor:   Dieter Otter	Bewertung:     [ Jetzt bewerten ]	Views:  26.685
https://www.tools4vb.com	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 10 Bewertung insgesamt: sehr gut Durchschnittliche Bewertung: 4.7 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Der Zugriff auf den MS-SQL Server via ADO ist vielen bekannt. Wie sieht es aber aus, wenn man noch den DAO-Datenbankzugriff verwendet?

In diesem Fall muss man beim Aufruf der "OpenDatabase"-Methode einen korrekten Connection-String mit Angabe eines DSN-Verbindungseintrags angeben:

Dim sConn As String
sConn = "ODBC;DSN=DSN_NAME;uid=sa;pwd=password"
Set oDB = DBEngine.OpenDatabase("DSN_NAME", dbDriverNoPrompt, False, sConn)

Für den Zugriff auf den MS-SQL Server via DAO muss also immer ein DSN-Verbindungseintrag im ODBC-Datenquellen-Manager existieren. Dieser kann natürlich manuell erstellt werden, was jedoch nicht immer dem Anwender zugemutet werden kann.

Über die RegisterDatabase-Methode von DAO lässt sich der DSN-Verbindungseintrag auch bequem per Code erstellen. Existiert der Eintrag bereits, wird dieser mit den neuen Parameter aktualisiert, andernfalls wird der Eintrag neu erstellt.

' DSN-Verbindungseintrag erstellen/aktualisieren
Public Function MakeDSNForSQLServer(ByVal sDSNName As String, _
  ByVal sServer As String, _
  ByVal sDatabase As String, _
  ByVal sDescription As String) As Boolean
 
  On Error Resume Next
  Err.Clear
  DBEngine.RegisterDatabase sDSNName, "SQL Server", True, _
    "Database=" & sDatabase & vbCr & _
    "Description=" & sDescription & vbCr & _
    "Server=" & sServer
 
  MakeDSNForSQLServer = (Err.Number = 0)
  On Error Goto 0
End Function

Beispiel für den Aufruf:

Dim sDSNName As String
Dim sServer As String
Dim sDatabase As String
Dim sDescription As String
Dim oDB As DAO.Database
 
' Name der DSN-Verbindung
sDSNName = "TEST"
 
' SQL-Server
sServer = Environ$("COMPUTERNAME") & "\SQL2000"
 
' Name der SQL-Datenbank
sDatabase = "TESTDB"
 
' Beschreibung der DSN-Verbindung
sDescription = "Testverbindung zum SQL-Server"
 
' DSN-Verbindungseintrag erstellen/aktualisieren
If MakeDSNForSQLServer(sDSNName, sServer, sDatabase, sDescription) Then
  ' Verbindung über DSN-Eintrag herstellen
  Dim sConn As String
  sConn = "ODBC;DSN=" & sDSNName & ";uid=sa;pwd=Password"
  Set oDB = DBEngine.OpenDatabase(sDSNName, dbDriverNoPrompt, False, sConn)
  ...
 
Else
  MsgBox "Fehler beim Einrichten/Aktualisieren der DSN-Verbindung" & vbCrLf & _
    CStr(Err.Number) & " " & Err.Description, vbExclamation + vbOKOnly
End If