Chiusura connessione ado non funziona

[abellos]

Ciao,
ho queste due funzioni per gestire la connessione ADO per diversi db (devo fare una migrazione da access a mariadb-mysql)

Function CreaConnDB(driver, database, porta, serverMariaDB, user, password, opt, charset)    set connessione = server.CreateObject("ADODB.Connection")


    'verifico se il driver e' selezionato
    Select Case driver
        Case 1, 2, 3
        Case Else
            CreaConnDB = Nothing
            esitoOp "Attenzione inserire driver corretto per la connessione"
    End Select


    select case driver
        case drvDBAccess
            drv = "{Microsoft Access Driver (*.mdb)}"
            db = server.mappath(database)


            'response.Write db


            conn_string = "Driver="& drv &"; DBQ=" & db
        case drvDBMariaDBx64
            drv = "{MariaDB ODBC 3.1 Driver}"
            db = database
            porta = port
            srv = serverMariaDB
            utente = user
            pwd = password
            opzioni = opt
            char = charset


            conn_string = "DRIVER="& drv &";port="& porta &";SERVER="& srv &";UID="& utente &";PWD="& pwd &";database="& db &";Option="& opzioni &";charset="& char
		case drvDBMysql
			drv = "{MySQL ODBC 8.0 UNICODE Driver}"
            db = database
            porta = port
            srv = serverMariaDB
            utente = user
            pwd = password
            opzioni = opt
            char = charset
    end select


    If conn_string <> "" Then
        On Error Resume Next
        
        connessione.connectionString = conn_string
        set CreaConnDB = connessione


        If Err.Number <> 0 Then
            'gestire errori
        End If
        On Error Goto 0
    Else
        'gestire errori
    End If
End Function


Function ChiudiConnDB(connessioneDB)
    If Not connessioneDB Is Nothing Then
        connessioneDB.close
    End If
	
	set connessioneDB = Nothing
End Function

la funzione apriConnDB funziona, ma la chiudiConnDB mi da errore sulla riga rossa, anche se lascio solo connessioneDB.close stesso errore

Errore di run-time di Microsoft VBScript error '800a01a8'
Necessario oggetto

mi sapete aiutare? vorrei chiudere la connessione per non lasciare oggetti aperti

[optime]

non c'è l'esempio di dove richiami la ChiudiConnDB e non è evidenziata la "riga rossa"

[abellos]

la formattazione del forum mi ha mangiato l'evidenziazione in rosso, l'errore e' qui

If Not connessioneDB Is Nothing Then

o se tolgo l'if qui

connessioneDB.close

per creare la connessione faccio conn = CreaConnDB(drvDBMysql, "log" ,3306,"localhost","root","","", dbCharsetUtf8)

per chiuderla call ChiudiConnDB(conn)

grazie

[optime]

1. ChiudiConnDB non dovrebbe essere una Function ma una Sub
2. Se invece di call ChiudiConnDB(conn) fai set conn = Nothing, che succede?

[abellos]

1 - vero, ho provato con sub ma l'errore rimane uguale
2 - non cambia mi da errore Variabile oggetto non impostata

[optime]

butta un occhio qui https://stackoverflow.com/questions/...ts-in-vbscript

[abellos]

Ho letto il post, ho modificato cosi

If IsObject(connessioneDB) Then
connessioneDB.close
set connessioneDB = Nothing
Else
Response.Write "no oggetto"
End If

e funziona ma passa sempre nell'else, sembra che l'oggetto non sia proprio passato alla funzione/sub e quindi isObject o isEmpty risultano sempre falsi

edit
quindi non si riesce a chiudere la connessione aperta prima

[optime]

questo vuol dire che conn è già chiusa o mai aperta

[abellos]

e' aperta perche' riesco a leggere i dati tramite un recordset che utilizza quella connessione, ho provato a fare Response.Write VarType(conn) e come risultato mi da 8 che indica una stringa

[optime]

non ti basta fare conn.close?