Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations biv343 on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Detect tables in a access file
- Thread starter Gti
- Start date
petermeachem
Programmer
Set rs = cnnnew.OpenSchema(adSchemaTables)
If Not (rs.EOF And rs.BOF) Then
Do Until rs.EOF
If UCase$(rs(3)) = "TABLE" Then
lstTables.AddItem rs(2)
End If
rs.MoveNext
Loop
End If Peter Meachem
peter@accuflight.com
If Not (rs.EOF And rs.BOF) Then
Do Until rs.EOF
If UCase$(rs(3)) = "TABLE" Then
lstTables.AddItem rs(2)
End If
rs.MoveNext
Loop
End If Peter Meachem
peter@accuflight.com
-----------------------------------------------------------
StrCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source = c:\tmp\test.mdb"
'Set the catalogs connection
Set Cat = New ADOX.Catalog
Cat.ActiveConnection = StrCon
For i = 0 To Cat.Tables.Count - 1
if left$(Cat.tables(i),4)<>"MSys" then
....
end if
Next i
-----------------------------------------------------------
Sunaj
StrCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source = c:\tmp\test.mdb"
'Set the catalogs connection
Set Cat = New ADOX.Catalog
Cat.ActiveConnection = StrCon
For i = 0 To Cat.Tables.Count - 1
if left$(Cat.tables(i),4)<>"MSys" then
....
end if
Next i
-----------------------------------------------------------
Sunaj
- Status
Similar threads
