在vb6中如何能读到本机安装的sql server数据库的名字？

Question

VB的来了''取局域网SQL Server列表放一个cmobo控件命名为txtServer，引用Microsoft SQLDMO object Libraray库  Private Sub Form_Load()
    
    Dim oSQLServerDMOApp As SQLDMO.Application
  Set oSQLServerDMOApp = New SQLDMO.Application
  Dim i As Integer
  Dim namX As NameList
  Set namX = oSQLServerDMOApp.ListAvailableSQLServers
  For i = 1 To namX.Count
    txtServer.AddItem namX.Item(i)
  Next
  'Show top server
  txtServer.ListIndex = 0End Sub
取得所有数据库名只需执行
"select name from sysdatabases"就可以sysdatabases表在master库里

Answer 1

Dim a As SQLDMO.ApplicationPrivate Sub Command1_Click()
    Set a = New SQLDMO.Application
    Dim i As Integer
    Dim iCount As Integer
    iCount = a.ListAvailableSQLServers.Count
    For i = 1 To iCount
        Debug.Print a.ListAvailableSQLServers(i)
    Next
End Sub