Test to see if a SQL Server exists

Mitch · July 17th, 2003, 05:55 PM

Is there a good way to test to see if a MS SQL Server actually exists?

I have an Access ADP and the user enters the name of their MS SQL server and I use that entry in my connection string, but if it is wrong my code bombs.

I might be able to trap for that error, but wanted to see if anyone else has a better solution.

Thanks.

Braxis · July 18th, 2003, 04:27 AM

This may work:

Code:

Public Function TestSQLServer(strSQLServerName As String) As Boolean
Dim oApp As SQLDMO.Application
Dim objNames As NameList
Dim intCount As Integer

    Set oApp = New SQLDMO.Application
    Set objNames = oApp.ListAvailableSQLServers
    TestSQLServer = False

    If objNames.Count > 0 Then
        For intCount = 1 To objNames.Count
            If objNames.Item(intCount) = strSQLServerName Then
                TestSQLServer = True
            End If
        Next
    End If

End Function

Brian Skelton
Braxis Computer Services Ltd.

Braxis · July 18th, 2003, 04:29 AM

...

P.S. You'll need a reference to the Microsoft SQLDMO Object Library to get the above code to work!

Brian Skelton
Braxis Computer Services Ltd.