Visualizzazione dei risultati da 1 a 4 su 4

Discussione: Errore sconosciuto

  1. #1
    Utente di HTML.it L'avatar di abellos
    Registrato dal
    Feb 2002
    Messaggi
    343

    Errore sconosciuto

    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
    codice:
    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?
    Ultima modifica di abellos; 25-03-2022 a 16:02 Motivo: indicato errore
    Da un grande potere derivano grandi responsabilità

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

  3. #3
    Utente di HTML.it L'avatar di vic53
    Registrato dal
    Oct 2010
    residenza
    Fonte Nuova (Roma)
    Messaggi
    585
    a me funziona in queste righe di un mio script
    codice:
    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
    Ultima modifica di vic53; 09-12-2022 a 20:08 Motivo: aggiunta info
    Vic53

  4. #4
    Utente di HTML.it L'avatar di abellos
    Registrato dal
    Feb 2002
    Messaggi
    343
    ok grazie, ho provato ad aggiungere Set alla riga adoxConn.activeConnection adodbConn

    vediamo se ricevo ancora quell'errore
    Da un grande potere derivano grandi responsabilità

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2023 vBulletin Solutions, Inc. All rights reserved.