请问在VB里如何获取 MS SQL 2000的数据库列表？

Question

如题，急，请高手给段代码示例，谢谢！

Answer 1

Private Sub cbo_Click()
    Dim cn As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    
    cn.Open strSQLSERVER
        rs.Open "select 字段 from 表名", cn            
            If Not rs.BOF Then
                cbo.Caption = rs("字段")
            End If
        rs.Close
    cn.Close
    
    Set rs = Nothing
    Set cn = Nothing
    
End Sub

Answer 2

得到指定SQL服务器所有数据库的列表：
需要引用SQLDMO(工程/引用/Microsoft SQLDMO Object Library)        Dim sqlApp As New SQLDMO.Application()
        Dim oServer As New SQLDMO.SQLServer()
        oServer.Connect("(local)", "sa", "sa")        Dim db As SQLDMO.Database
        For Each db In oServer.Databases
            Debug.Print db.Name 
        Next

Answer 3

或者查询master数据库的sysdatabases表，里面的name字段记录的就是数据库列表：'用ado实现
'工程--->引用--->Microsoft ActiveX Data Object 2.x（版本号）
Private Sub Form_Load()
    Dim cn As New ADODB.Connection, rs As New ADODB.Recordset
    cn.CursorLocation = adUseClient
    '连接到master数据库，具体的请自己改过来
    cn.Open "Provider=SQLOLEDB.1;Password=;Persist Security Info=False;User ID=sa;Initial Catalog=master;Data Source=ljx"
    rs.Open "select [name] from sysdatabases", cn, adOpenDynamic, adLockOptimistic
    While Not rs.EOF
        Debug.Print rs(0)
        rs.MoveNext
    Wend
    rs.Close
    cn.Close
    Set rs = Nothing
    Set cn = Nothing
End Sub