软件测试开发技术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.ltesting.net