Ciao
ho scritto un'applicazione che si collega ad un database MySQL. Dal mio pc funziona tutto bene, ma se passo l'eseguibile su un altro, e lo faccio collegare al database presente sul mio pc (con dns), mi dā l'errore 3704: L'operazione non č consentita se l'oggetto č chiuso. Dato che non posso vedere a quale riga di codice si riferisce l'errore, ho supposto che si riferisse alla mia procedura di apertura connessione (o di chiusura). Ve le incollo:
codice:
Public Sub ApriConnessione(strQuery As String)
On Error GoTo GestErr
    
    If gAdoConnessione.State = adStateOpen Then
        ChiudiConnessione
    End If
    
    'Apre la connessione e la punta alla stringa gStrConnessione
    gStrConnessione = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=" & Address & ";PORT=3306;DATABASE=" & Database & "; USER=" & User & ";PASSWORD=" & Password & ";OPTION=3;"
    gAdoConnessione.CursorLocation = adUseClient
    
    'Controlla lo stato della connessione per eventuali errori
    If gAdoConnessione.State <> adStateOpen Then
        gAdoConnessione.Open gStrConnessione
    End If
    
    'Riempie il RecordSet
    With recDati
        .CursorLocation = adUseClient
        .Open strQuery, gAdoConnessione, adOpenDynamic, adLockOptimistic
        .ActiveConnection = Nothing
    End With
    
GestErr:
If Err.Number > 0 Then
MsgBox "Impossibile stabilire la connessione con il server " & Address & ". Alcuni parametri nel file ""settings.ini"" sono errati. Alla chiusura di questa finestra il programma verrā chiuso. Se, dopo il riavvio, il problema persiste, contattare l'amministratore." & vbCrLf & "Descrizione completa dell'errore:" & vbCrLf & Err.Description, vbCritical, "Errore di connessione"
Err.Clear
End
End If

End Sub

Public Sub ChiudiConnessione()

    'Controlla lo stato del RecordSet per eventuali errori
    If recDati.State = 1 Then
        recDati.Close 'Chiude il RecordSet
    End If
    
    'Controlla lo stato della connessione per eventuali errori
    If gAdoConnessione.State = adStateOpen Then
        gAdoConnessione.Close 'Chiude la connessione ADO
    End If

End Sub
Qualcuno sā come aiutarmi? Vi ringrazio!