Технологические аспекты разработки ПО АСОИУ. - 40 стр.

UptoLike

ВУЗ: 

ТТИ ЮФУ | Таганрог

Рубрика: 

42
Then
mtblName = rsSchema!Table_name
Set mNodeTables = tvwDB.Nodes.Add("RootDB",
tvwChild, "X" & mtblName, mtblName,
"imgClosed")
mNodeTables.Tag = "Tables"
End If
End If
rsSchema.MoveNext
Loop
rsSchema.Close
If mNodeTables Is Nothing Then
Me.MousePointer = vbDefault
MsgBox "No table in the database"
Exit Sub
End If
Dim mNumTables As Integer
mNumTables = tvwDB.Nodes("RootDB").Children
ReDim gstrFields(mNumTables, 2) As String
ReDim gstrFieldsOrig(mNumTables, 2) As String
Dim i As Integer, n As Integer, j As Integer
Dim mctn As Integer
Dim mType As Long
Dim mAttr As Integer
Dim mstrType As String
Dim mstrAttr As String
Dim mFldName As String
Set rs = New adodb.Recordset
mctn = tvwDB.Nodes("RootDB").Children

Страницы