Microsoft Access 2013 Programmierung - Das Handbuch

Tipps & Tricks

Alle registrierten Microsoft SQL Server ermitteln

Mit der COM-Library SmoMapper (siehe „Unterschiede zwischen temporären Tabellen erkennen“) können Sie die Liste der erreichbaren SQL Server abfragen. Erstellen Sie einen Verweis auf SmoMapper und nutzen Sie die Methode GetAllSQLServers.

Beispiel

Alle Server abfragen

Sub AlleServerAbfragen()
    Dim smo As New SmoMapper.CSMO
    Dim serverliste() As String
    Dim i As Integer

    serverliste = smo.GetAllSQLServers()
    For i = 0 To UBound(serverliste)
        Debug.Print serverliste(i)
    Next i
    Set smo = Nothing
End Sub

Abbildung 10.37 Abfrageergebnis

Hinweis

Damit sinnvolle Werte angezeigt werden, muss auch der SQL ...