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

UptoLike

ВУЗ: 

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

Рубрика: 

41
End Sub
События и функции, используемые в Tablels
Private Sub Form_Load()
On Error Resume Next
lblDatabase = "Database:" + gFileSpec
lvwProperties.ListItems.Clear
lvwProperties.Icons = ImageList1
lvwProperties.SmallIcons = ImageList1
lvwProperties.ColumnHeaders.Clear
lvwProperties.ColumnHeaders.Add , , "Property", 1700
lvwProperties.ColumnHeaders.Add , , "Value", lvwProperties.Width - 1700
lvwProperties.View = lvwReport
lvwProperties.HideColumnHeaders = False
lvwProperties.HideSelection = True
tvwDB.Nodes.Clear
Set gAcnn = New adodb.Connection
gAcnn.CursorLocation = adUseClient
gAcnn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=
" & gFileSpec & ";"
Set rsSchema = gAcnn.OpenSchema(adSchemaTables, Array(Empty, Empty,
Empty, "TABLE"))
Me.MousePointer = vbHourglass
Set mNodeDB = tvwDB.Nodes.Add(, , "RootDB", "Database",
"imgDatabase")
mNodeDB.Tag = "RootDB"
Dim mtblName As String
Do Until rsSchema.EOF
If UCase(Left(rsSchema!Table_name, 4)) <> "MSYS" Then
If UCase(Left(rsSchema!Table_name, 11)) <> "SWITCHBOARD"

Страницы