I created a small software that I have a copy of a database by clearing all the tables except for the system, the problem arises when it appears in the db table of Recovery :[Access] table recovery. Someone knows how to locate this table with Ado or Adox Or should I make to weep and to use force Dao (always in that case you can) ,I put the db in rapidshare if you want to test it surpasses the 500 KB maximum RapidShare: Easy Filehosting.This is the code that you can do the tests
Code:
Sub Main ()
'Fill in the references and Ado Adox
Dim cn As ADODB.Connection
Dim obj_Catalog As ADOX.Catalog
Dim obj_table As ADOX.Table
Set cn = New ADODB.Connection
cn.Open "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = C: \ NonCompattato.mdb"
Set obj_Catalog = New ADOX.Catalog
Set cn = obj_Catalog.ActiveConnection
For Each obj_table In obj_Catalog.Tables
If obj_table.Type = "TABLE" Then
MsgBox "Table Normal eliminable" & obj_table.Name
Else
MsgBox "Table does not eliminable" & obj_table.Name
End If
Next
cn.Close
Set cn = Nothing
Set obj_Catalog = Nothing
End Sub
Bookmarks