Errore sconosciuto

[abellos]

Ciao,
ogni tanto ricevo il seguente errore

Microsoft VBScript runtime error '800a0cb3'


Unknown runtime error


/inc/funzioni.asp, line 366

la linea incriminata e' qui

Function TableExists(Database , NomeTabella )    
    
    tableToFind = NomeTabella 
    dbname = Database  


    ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;data source="  
    ConnStr = ConnStr & server.mappath(dbname)


    set adoxConn = CreateObject("ADOX.Catalog")  
    set adodbConn = CreateObject("ADODB.Connection")  
    adodbConn.open ConnStr  
    adoxConn.activeConnection = adodbConn  
    found = false 
    for each table in adoxConn.tables    <<<-------------------------- ERRORE QUI
        if lcase(table.name) = lcase(tableToFind) then 
            found = true 
            exit for 
        end if 
    next 
    adodbConn.close: set adodbConn = nothing
    set adoxConn = nothing  


    if found then 
        'response.write("Table exists.")
        TableExists = true
    else    
        'response.write("Table does not exist.") 
        TableExists = false
    end if 


End Function

mi sapete dire cosa c'e' di sbagliato?

[optime]

prova a confrontare con il codice esposto qui https://www.motobit.com/tips/detpg_listdb/

[vic53]

a me funziona in queste righe di un mio script

Set cat = CreateObject("ADOX.Catalog")
Set cat.ActiveConnection = connB
For each tbl in cat.Tables  
  response.write "<br>Tabella: " &tbl.Name
next
...
la connessione precedentemente aperta
...
connB_string = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = " & Server.MapPath(nomedb)
connB.Open connB_string
...

in cui connB è la connessione aperta

[abellos]

ok grazie, ho provato ad aggiungere Set alla riga adoxConn.activeConnection adodbConn

vediamo se ricevo ancora quell'errore