Discussion :

[Christophe P.]

Bonjour,

j'aimerais vérifier que la requête MySQL fonctionne et prévenir si ce n'est pas le cas. Quand il y a une erreur lors de l'exécution, Access passe en debug, je souhaiterais éviter cela pour pouvoir afficher un message.
Le code suivant envoie le nombre de résultats quand la requête est OK, mais plante sinon.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
        Dim intCtlId As Integer, iAffected As Integer
        Dim oCnMySQL As ADODB.Connection
 
        Set oCnMySQL = New ADODB.Connection
        oCnMySQL.connectionString = ADO_CONNEXION_STRING
        oCnMySQL.Open
 
        oCnMySQL.Execute Me.ctrlRequete.Value, iAffected, adExecuteNoRecords
 
        If iAffected = 0 Then
            MsgBox "L'exécution de la requête n'a rien retourné."
        Else
            MsgBox "La requête a retourné " & iAffected & " résultats."
        End If

[Christophe P.]

Je dois être fatigué. Il suffit d'un :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    On Error GoTo err_info