Private Sub Form_Load()
Dim dbAccess As Database
Set dbAccess = OpenDatabase("c:\trade.mdb", False, False)
'
For I = 0 To dbAccess.TableDefs.Count - 1
If dbAccess.TableDefs(I).Attributes = 0 Then
List1.AddItem dbAccess.TableDefs(I).Name
End If
Next
dbAccess.Close
'工程--->引用--->Microsoft ActiveX Data Object 2.x(版本号)
'----------------------------------------------------------------------------
Private Sub Form_Load()
Dim adoCN As New ADODB.Connection '定义数据库的连接
Dim rstSchema As New ADODB.Recordset
Dim strCnn As String
strCnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\trade.MDB;Persist Security Info=False"
adoCN.Open strCnn
Set rstSchema = adoCN.OpenSchema(adSchemaTables)
Do Until rstSchema.EOF
If rstSchema!TABLE_TYPE = "TABLE" Then
List1.AddItem rstSchema!TABLE_NAME
End If
rstSchema.MoveNext
Loop
rstSchema.Close
adoCN.Close
End Sub
Private Sub Form_Load()
Dim adoCN As New ADODB.Connection '定义数据库的连接
Dim rstSchema As New ADODB.Recordset
Dim strCnn As String
strCnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\trade.MDB;Persist Security Info=False"
adoCN.Open strCnn
Set rstSchema = adoCN.OpenSchema(adSchemaTables)
Do Until rstSchema.EOF
If rstSchema!TABLE_TYPE = "TABLE" Then
List1.AddItem rstSchema!TABLE_NAME
End If
rstSchema.MoveNext
Loop
rstSchema.Close
adoCN.Close
End Sub