Available SQL Server list

[EvanK]

Is there a way to access a list of available sql servers in vb and make a dropdown list?

[Manohar Kamath [MVP]]

You need to import SQLDMO in your project. The following function adds the
list of servers to a combo box - cboServers and returns the count:

Imports SQLDMO

.....

Private Function LoadSQLServerLi st() As Integer
Dim serverIndex As Integer
Dim sqlServers As SQLDMO.NameList
Dim sqlServer As Object

' Get a list of servers
sqlServers = New SQLDMO.Applicat ion().ListAvail ableSQLServers( )

' Iterate through the server names, and add it to the combobox
For Each sqlServer In sqlServers
If Not sqlServer Is Nothing Then
cboServers.Item s.Add(sqlServer )
End If
Next

' Send back the count of servers
LoadSQLServerLi st = cboServers.Item s.Count
End Function

Hope that helps.

--
Manohar Kamath
Editor, .netWire
www.dotnetwire.com
"EvanK" <an*******@disc ussions.microso ft.com> wrote in message
news:F6******** *************** ***********@mic rosoft.com...

Is there a way to access a list of available sql servers in vb and make a

dropdown list?

[EvanK]

Got it.

[EvanK]

Additionally, is there any doc on SQLDemo that you know of?

[EvanK]

Great - it worked fine - thanks. Now is there a way to list the databases?

[Rich Wallace]

You could create a method/routine that would return the results of:

SELECT Name FROM sysdatabases ORDER BY <your choice, Name, ID>

and fill another combobox with it..or listbox...or wheva!

HTH
-Rich

"EvanK" <an*******@disc ussions.microso ft.com> wrote in message
news:81******** *************** ***********@mic rosoft.com...

Great - it worked fine - thanks. Now is there a way to list the

databases?

[Rich Wallace]

Oops....make sure you hit the Master database

SELECT Name FROM Master..sysdata bases
"EvanK" <an*******@disc ussions.microso ft.com> wrote in message
news:81******** *************** ***********@mic rosoft.com...

Great - it worked fine - thanks. Now is there a way to list the

databases?

[Manohar Kamath [MVP]]

Continuing the previous example:

Dim sqlServer As SQLDMO.SQLServe r
Dim sqlDB As Object

sqlServer = New SQLDMO.SQLServe r()
Try
' Connect to your database with userID and password
sqlServer.Conne ct(cboServers.T ext, txtUserID.Text,
txtPassword.Tex t)

' Check for database names in the server
' This loop adds the database name to another combobox
For Each sqlDB In sqlServer.Datab ases
If Not sqlDB.Name Is Nothing Then
cboDatabases.It ems.Add(sqlDB.n ame)
End If
Next
Catch Exp As Exception
MsgBox(Exp.ToSt ring)
End Try
--
Manohar Kamath
Editor, .netWire
www.dotnetwire.com
"EvanK" <an*******@disc ussions.microso ft.com> wrote in message
news:81******** *************** ***********@mic rosoft.com...

Great - it worked fine - thanks. Now is there a way to list the

databases?