[VB6] Tester un RecordSet

bonjour à tous,

j'aurais voulu savoir savoir s'il y a possibilité de tester qu'un RecordSet est ouvert afin par exemple de le fermer sans génération d'erreurs.

par exemple dans cette configuartion suivante :

Citation:

---

Boucle if then else 1
connection recordset
execution de requete SQL1
fin de la boucle if then else 1

Boucle if then else 2
connection recordset
execution de requete SQL2
fin de la boucle if then else 2

Boucle if then else 2
connection recordset
execution de requete SQL2
fin de la boucle if then else 2

Code commun à chaque recordset
fermeture du recordset 'mais là, ça peut bloquer si le recordset n'a pas été ouvert ; dans le cas où aucune des boucles if then else n'a été parcourue'

---

bien sûr, j'ai pensé à réécrire le code dans chaque boucle (et c'est que je fais pour le moment)

mais juste pour savoir si c'est possible de la faire, histoire d'éviter de générer du code inutile...

Merci d'avance ;)

Tu peux gérer les erreurs avec

Code:

---

1 2 3 4 5 6 7

On Error resume Next fermeture du recordset ' si erreur (ou pas) on passe à la ligne suivante ErrProduite%=Err 'on mémorise le numéro d'erreur (pour usage ultérieur) On error goto 0 'fin de la gestion des erreurs if ErrProduite%<>0 Then -------------- 'au besoin, on affiche un message ou on execute du code End If

---

j'avais pensé aussi à "On Error Resume Next"

mais bon, si le programme ne s'interrompt pas brutalement avec un message d'erreur système, le programme plante quand même car aucune commande ne répond plus... le programme tourne en boucle...

puis-je donc forcer à quitter dans le passage "if ErrProduite<>0" avec par ex, Exit Sub ?

Pour moi, si ça bloque, ce n'est pas une erreur VB6 mais externe si le "On Error" ne marche pas. Moi, je mettrais un flag d'exécution

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

FlagExec%=0 If Machin%=1 then connection recordset execution de requete SQL1 FlagExec%=1 End if ............. If Machin%=3 then connection recordset execution de requete SQL3 FlagExec%=1 End if Code commun à chaque recordset If FlagExec%<>0 then fermeture du recordset

---

oui, c'est pas bête...

j'ai testé et ça fonctionne sauf que j'ai utilisé un flag booléen

sujet :resolu:

Autre solution ;
Tu appelles dans tes "If Then" un appel de fonction qui exécute la procédure

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

If Machin%=1 then connection recordset execution de requete SQL1 code_recordset (1,Par2) End if ............. If Machin%=3 then connection recordset execution de requete SQL3 code_recordset (3,Par2) End if ...... ------------------------------ 'Le passage de paramètres permet peut être d'inclure dans la fonction ' connection recordset ' execution de requete SQL1   Function code_recordset (SQLx,tata) Code commun à chaque recordset fermeture du recordset Exit Function

---