how to retrieve sql server dabase names

[balajee]

Hi

I am making an application where the user cans select a sql server and database name from combo box. How do I retrieve the server name and database names on the local machine or on the network?

Thanks,

 

[abrewis]

You could try using this code, replace UserID, Password and Server with your server name, uid, and password.

This will retrieve database names from a SQL Server.
Good luck.


Private con As ADODB.Connection
Private rs As ADODB.Recordset

Private Sub Form_Load()

Set con = New ADODB.Connection

con.ConnectionString = "Provider='SQLOLEDB.1' ;User id ='USER ID' ;password='PASSWORD' ;Persist Security info='True' ; Data Source='SERVER' ;Connect Timeout=0; Initial Catalog='master'"

con.Open
Set rs = con.OpenSchema(adSchemaCatalogs)
Do Until rs.EOF
combo1.AddItem rs!CATALOG_NAME
rs.MoveNext
Loop

end sub

 

[balajee]

Thanks. This code worked.