SQL Server数据库对象信息的获取[3]

Dim oDB As SQLDMODatabase

Set oDB = oSQLServerDatabases(cob_sqldbList(cob_sqldbListIndex))

If oCurrentDB Is Nothing Then

Set oCurrentDB = oDB

Else

If oCurrentDBName = oDBName Then

Exit Sub

End If

Set oCurrentDB = Nothing

Set oCurrentDB = oDB

End If

FillEmptyTableList (True)

If cob_sqltableListCount > Then

cob_sqltableListIndex =

cob_sqltable_Click

End If

End Sub

Private Sub FillEmptyTableList(bFill As Boolean)

获得当前数据库中的所有非系统数据表名称

If bFill = True Then

Dim oTable As SQLDMOTable

For Each oTable In oCurrentDBTables

If oTableSystemObject = False Then

判断其不是系统数据表

cob_sqltableAddItem oTableName

把非系统数据表名称添加到数据表信息列表框中

End If

Next oTable

End If

[] [] [] []