how to convert this DAO connection code to ADO Con
mNode.Text = "Tables"
mNode.Tag = DB.Name
mNode.Image = "Folder"
tvDatabase.LabelEdit = tvwManual
PBar(0).Visible = True
PBar(0).Max = DB.TableDefs.Count - 1
For A = 0 To DB.TableDefs.Count - 1
PBar(0).Value = A
If Left(DB.TableDefs(A).Name, 4) <> "MSys" Then
Set mNode = tvDatabase.Nodes.Add(1, tvwChild, , DB.TableDefs(A).Name, "Table")
mNode.Tag = "Tables"
TableIndex = mNode.Index
Set RS = DB.OpenRecordset(DB.TableDefs(A).Name)
For B = 0 To RS.Fields.Count - 1
If RS.Fields(B).Name <> "ID" Then
Set mNode = tvDatabase.Nodes.Add(TableIndex, tvwChild)
GoSub FixType
If RS.Fields(B).Type = dbBoolean Or RS.Fields(B).Type = dbMemo Then
mNode.Text = RS.Fields(B).Name & Space(25 - Len(RS.Fields(B).Name) + 5) & FieldType
Else
mNode.Text = RS.Fields(B).Name & Space(25 - Len(RS.Fields(B).Name) + 5) & FieldType & Space(8 - Len(FieldType) + 5) & RS.Fields(B).Size
End If
mNode.Tag = "Fields"
FieldsIndex = mNode.Index
End If
Next B
End If
Next A
DoEvents
PBar(0).Visible = False
For I = 1 To tvDatabase.Nodes.Count - 1
tvDatabase.Nodes(I).Sorted = True
Next I
Screen.MousePointer = 0
tvDatabase.Nodes(1).Expanded = True
'tvDatabase.SetFocus
SendKeys "{HOME}", True
Exit Sub
|