Re: ADOX not deleting on first attempt



On May 8, 11:46 pm, "Bob Barrows [MVP]" <reb01...@xxxxxxxxxxxxxxx>
wrote:
Bernard wrote:
Hi group,

I'm trying to delete some tables (in my test case all tables) using
adox.

Problem is, it takes a couple of "runs" to delete all the table.
Is there a reason for this? Is there any dependencies that does not
allow the table to be deleted and if so, why don't I get an error
(even when I check ADODB.Connection.Error)?

This seems to be happening with views also.

Here's the code:

Dim catalog As ADOX.catalog
Set catalog = New ADOX.catalog

Dim table As ADOX.table
Dim tableNode As IXMLDOMNode

Dim index As ADOX.index
Dim deleteCount As Integer

' Set active ADO Connection
catalog.ActiveConnection = g_cn

'Do
'deleteCount = 0
For Each table In catalog.Tables
' Don't try to delete views or system tables
If StrComp(table.Type, "TABLE", vbTextCompare) = 0 Then
' Drop the table
catalog.Tables.Delete table.Name
'deleteCount = deleteCount + 1
End If
Next
'Loop While deleteCount > 0

Is this a Jet database? If so, you may be running afoul of the Jet

Yes, it's an Access 2003 database.

delayed-write optimization feature:http://support.microsoft.com/?kbid=240317http://support.microsoft.com/kb/200300

--
Microsoft MVP -- ASP/ASP.NET
Please reply to the newsgroup. The email account listed in my From
header is my spam trap, so I don't check it very often. You will get a
quicker response by posting to the newsgroup.

.



Relevant Pages

  • Re: ADOX not deleting on first attempt
    ... Dim deleteCount As Integer ... you may be running afoul of the Jet ... Please reply to the newsgroup. ... dropping the tables until it does a full pass without dropping ...
    (microsoft.public.data.ado)
  • Re: ADOX not deleting on first attempt
    ... Dim catalog As ADOX.catalog ... Dim deleteCount As Integer ... Is this a Jet database? ... Please reply to the newsgroup. ...
    (microsoft.public.data.ado)