Gestion des erreurs SQL - erreur 438

J'utilise ces scripts sur mes machines Microsoft Windows.
Je sais, il y a mieux, il y a toujours mieux, mais ce langage est simple et très efficace sur les machines Windows.
Répondre
marco44
Administrateur du site
Messages : 86
Enregistré le : jeu. 1 janv. 2009 13:00

Gestion des erreurs SQL - erreur 438

Message par marco44 » lun. 7 oct. 2013 14:44

Dans une requête SQL, je gère l’erreur en faisant l’opération suivante :

Code : Tout sélectionner

01. set base_cnx = CreateObject("ADODB.Connection")
02. on error resume next : base_cnx.Open "DSN=base_ODBC"
03. if (err.number <> 0) then
04. msgbox("erreur ouverture de la base")
05. else
06. set base_rs = CreateObject("ADODB.Recordset")
07. on error resume next : base_rs.open requete, base_cnx
08. if (err.numer<>0) then
09. msgbox ("erreur " & err.number)
10. else
11. msgbox("tout est OK")
12. end if
13. on error resume next : base_rs.close
14. set base_rs = nothing
15. end if
16. on error resume next : base_cnx.close
17. set base_cnx = nothing
Quand je lance ce traitement, j’obtiens systématiquement l’erreur 438 !!!

marco44
Administrateur du site
Messages : 86
Enregistré le : jeu. 1 janv. 2009 13:00

Re: Gestion des erreurs SQL - erreur 438

Message par marco44 » lun. 7 oct. 2013 14:45

Cette erreur n’est pas liée à la requête elle-même.
Elle provient juste d’une erreur de saisie dans le code à la ligne 08

Remplacer err.numer par err.number - la lettre b a été oubliée.

Répondre