i check if a table is there before attempting a delete. this database has about 15 tables in addition to the access internal tables. granted, i'm running this in the debugger, but when it hits the 'set rstables...' command, it takes 4-5 minutes before that finishes. is that normal? and then same thing, when it finds the target table the delete command takes another 4-5 minutes? is that normal?
is there some way to speed this up, or having just look at the application tables, and not all the internal tables as well?
Set rsTables = Conn.OpenSchema(adSchemaTables)
Do While Not rsTables.EOF
If rsTables!table_name = "uniqueDates" Then
objCatalog.tables.Delete "uniqueDates"
Exit Do
End If
Debug.Print rsTables!table_name
rsTables.MoveNext
Loop
is there some way to speed this up, or having just look at the application tables, and not all the internal tables as well?
Set rsTables = Conn.OpenSchema(adSchemaTables)
Do While Not rsTables.EOF
If rsTables!table_name = "uniqueDates" Then
objCatalog.tables.Delete "uniqueDates"
Exit Do
End If
Debug.Print rsTables!table_name
rsTables.MoveNext
Loop
