请问: 对SQL SERVER ,知道机器名、用户名、密码,如何得知数据库名称列表.

Public Function SQLDatabaseList(ByVal vstrServer As String, _
strDatabase() As String, _
Optional ByVal vstrUser As String = "sa", _
Optional ByVal vstrPassWord As String = "", _
Optional rlngErrNum As Long, Optional rstrErrDescr As String) As Boolean

Dim objServer As SQLDMO.SQLServer
Dim lngDatabaseCount As Long
Dim i As Long
On Error GoTo SQLDatabaseListErr

SQLDatabaseList = False
Set objServer = New SQLDMO.SQLServer

objServer.Connect vstrServer, vstrUser, vstrPassWord

lngDatabaseCount = objServer.Databases.Count
ReDim strDatabase(lngDatabaseCount - 1)

For i = 1 To lngDatabaseCount
strDatabase(i - 1) = objServer.Databases.Item(i, "dbo").Name
Next i

SQLDatabaseList = True

Err.Clear
SQLDatabaseListErr:
Set objServer = Nothing

rlngErrNum = Err.Number
rstrErrDescr = Err.Description

End Function

請：引用Microsoft SQLDMO Object Library

最简单的办法是，用ado连接上master数据库，执行：

SELECT name from master..sysdatabases