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

End Sub

Private Sub cob_sqltable_Click()

点击数据表信息 列表框

Dim oTable As SQLDMOTable

Set oTable = oCurrentDBTables(cob_sqltableList(cob_sqltableListIndex))

If oCurrentTable Is Nothing Then

Set oCurrentTable = oTable

Else

If oCurrentTableName = oTableName Then

Exit Sub

End If

Set oCurrentTable = Nothing

Set oCurrentTable = oTable

End If

FillEmptyColsToIndex (True)

If cob_sqlrecordListCount > Then

cob_sqlrecordListIndex =

End If

End Sub

Private Sub FillEmptyColsToIndex(bFill As Boolean)

获得数据表中的所有字段的信息

If bFill = True Then

Dim oCol As SQLDMOColumn

Set oCol = New SQLDMOColumn

For Each oCol In oCurrentTableColumns

cob_sqlrecordAddItem oColName & & oColDataType

把字段名称和字段属性添加到字段信息列表框中

Next oCol

End If

End Sub

[] [] [] []