List of all available sql servers...

[querry]

Hi all,

I am trying to get a list of all the available sql servers and then populate them in a combo box. I do this with the following code taken from http://www.csharphelp.com/archives2/archive342.html

SQLDMO.Application sqlApp = new SQLDMO.ApplicationClass();
SQLDMO.NameList sqlServers = sqlApp.ListAvailableSQLServers();

for (int i = 0; i < sqlServers.Count; i++)
{
object srv = sqlServers.Item(i + 1);
if (srv != null)
{
this.cmbServers.Items.Add(srv);
}
}

if (this.cmbServers.Items.Count > 0)
{
this.cmbServers.SelectedIndex = 0;
}
else
{
this.cmbServers.Text = "<No available SQL Servers>";
}

However, I have a little problem. The above code retrieves a list of all the available servers, but for the local server it returns "(local)".
So, I get the Item (local) instead of the servername of my local server in the Combo Box. I need to get the servername entry in stead of "(local)"

How do I get that??

Many thanks.

[cyberdwarf]

Hi

We have a routine which looks like this:-

Private Sub GetDbsNames()
On Error GoTo ErrorConnection
Dim Rs As New ADODB.Recordset
Dim Cnn As New ADODB.Connection
 
    With Cnn
        .Provider = "SQLOLEDB"
        .Properties![Data Source] = ServerName
        .Properties![User Id] = UserName
        .Properties![Password] = Nz(Password, "")
        .Properties![Initial Catalog] = "Master"
        .Open
    End With
    Rs.Open "select name from master.dbo.sysdatabases", Cnn
    Rs.MoveFirst
    Do Until Rs.EOF
    If Rs!name = "Test" Then
        Database.AddItem Rs!name, 0
    Else
        Database.AddItem Rs!name
    End If
    Rs.MoveNext
    Loop
    Rs.Close
    Cnn.Close
    Set Rs = Nothing
    Set Cnn = Nothing
    Exit Sub
 
ErrorConnection:
    Set Cnn = Nothing
 
End Sub

HTH
Steve

[querry]

Thanks Steve,

Although it is a good solution, but I am looking to populate all the sql servers before I connect to any of them.