軟件測試開發技術SQL Server數據庫對象信息的獲取[2]

軟件測試開發技術SQL Server數據庫對象信息的獲取[2] SQL Server數據庫

關鍵字：sql     Set oSQLServer = CreateObject(“SQLDMO.SQLServer”)

    oSQLServer.Connect SERVER_NAME, USERNAME, PASSWORD

    ’連接SQL Server服務器，SERVER

    _NAME 為服務器名，USERNAME為用戶名，PASSWORD為用戶口令

    FillEmptyDatabaseList (True)

    If cob_sqldb.ListCount > 0 Then

        cob_sqldb.ListIndex = 0

        Cob_sqldb_Click

    End If

    ......

    End Sub

    Private Sub FillEmptyDatabaseList(bFill As Boolean)

    ’獲得SQL Server服務器上的所有數據庫名稱

    If bFill = True Then

        Dim oDB As SQLDMO.Database

        Set oDB = New SQLDMO.Database

        For Each oDB In oSQLServer.Databases

            If oDB.SystemObject = False Then

                ’判斷其不是系統數據庫

                cob_sqldb.AddItem oDB.Name

                ’把非系統數據庫名稱添加到數據庫信息列表框中

            End If

            Next oDB

        End If

    End Sub

    Private Sub Cob_sqldb_Click()

    ’點擊“數據庫信息”列表框

    ......

原文轉自：http://www.anti-gravitydesign.com