Tester une requete SQL en VBA Access
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:
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 |
