Private Sub Form_Load()
'菜单“工程”-->"引用"-->"Microsoft ActiveX Data Objects 2.7 Library"
'Microsoft ADO Ext.2.7 for DDL ado Security
Dim cat As ADOX.Catalog
Dim adocon As ADODB.Connection
Set adocon = New ADODB.Connection
adocon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "/newdata.mdb;" & "Mode=Share Deny Read|Share Deny Write;Persist Security Info=False;Jet OLEDB:Database Password="
Set cat = New ADOX.Catalog
Set cat.ActiveConnection = adocon
For i = 0 To cat.Tables.Count - 1 'cat.Tables.Count就是表的数量
Debug.Print cat.Tables(i).Name '取出表名
If cat.Tables(i).Name = "MyTable" Then
For j = 0 To cat.Tables(i).Columns.Count - 1
Debug.Print cat.Tables(i).Columns(j) '取出列名
Debug.Print cat.Tables(i).Columns(j).Type '取出数据类型
For Each p In cat.Tables(i).Columns(j).Properties
Debug.Print p.Type & p.Name & p.Attributes '取出列的属性
Next
Next j
End If
Next i
cat.Tables.Item("MyTable").Columns("ll").Properties("Jet OLEDB:Allow Zero Length").Value = True '设置零长度正确
Set cat = Nothing
adocon.Close
Set adocon = Nothing
End Sub
'菜单“工程”-->"引用"-->"Microsoft ActiveX Data Objects 2.7 Library"
'Microsoft ADO Ext.2.7 for DDL ado Security
Dim cat As ADOX.Catalog
Dim adocon As ADODB.Connection
Set adocon = New ADODB.Connection
adocon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "/newdata.mdb;" & "Mode=Share Deny Read|Share Deny Write;Persist Security Info=False;Jet OLEDB:Database Password="
Set cat = New ADOX.Catalog
Set cat.ActiveConnection = adocon
For i = 0 To cat.Tables.Count - 1 'cat.Tables.Count就是表的数量
Debug.Print cat.Tables(i).Name '取出表名
If cat.Tables(i).Name = "MyTable" Then
For j = 0 To cat.Tables(i).Columns.Count - 1
Debug.Print cat.Tables(i).Columns(j) '取出列名
Debug.Print cat.Tables(i).Columns(j).Type '取出数据类型
For Each p In cat.Tables(i).Columns(j).Properties
Debug.Print p.Type & p.Name & p.Attributes '取出列的属性
Next
Next j
End If
Next i
cat.Tables.Item("MyTable").Columns("ll").Properties("Jet OLEDB:Allow Zero Length").Value = True '设置零长度正确
Set cat = Nothing
adocon.Close
Set adocon = Nothing
End Sub