[VBS] Ouvrir, fermer puis re-ouvrir Recorset et Connection.

Bonjour,
Afin de réaliser un test, J’ouvre mon Recordset et ma connexion et appel la variable "ObjTestMySQL".
Je traite mon test et ferme mon Recordset et ma connexion.
J’ouvre une deuxième fois mon Recordset et ma connexion et cette fois appel mon autre variable nommée "ObjMySQL".
L’essai ci-dessous fonctionne, mais j’aimerais traiter via une condition pour éviter tout problème.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31

'# test ############################################################################################# Set ObjConnection = CreateObject("ADODB.Connection") Set ObjRecordset = CreateObject("ADODB.Recordset")   ObjConnection.Open StrConnectionString   ObjTestMySQL = "SELECT * FROM " & StrTableName ObjRecordset.Open ObjTestMySQL,ObjConnection   MsgBox ObjRecordset.Fields.Count   ObjRecordset.Close Set ObjRecordset=nothing ObjConnection.Close Set ObjConnection=Nothing '# Fin test #############################################################################################   Set ObjConnection = CreateObject("ADODB.Connection") Set ObjRecordset = CreateObject("ADODB.Recordset")   ObjConnection.Open StrConnectionString   ObjMySQL = "SELECT * FROM " & StrTableName & " WHERE (`" & StrColumnName & "`)" ObjRecordset.Open ObjMySQL,ObjConnection   MsgBox ObjRecordset.Fields(StrColumnName)   ObjRecordset.Close Set ObjRecordset=nothing ObjConnection.Close Set ObjConnection=Nothing

---

J’arrive a tester si mon Recoset et ouvert :

Code:

---

If ObjRecordset.State = 1 Then MsgBox "Recordset ouvert"

---

Mais pas s’il est fermé :

Code:

---

If ObjRecordset.State = 0 Then MsgBox "Recordset fermé"

---

Je ne vois pas trop comment mettre ma condition.

Citation:

---

Envoyé par NeriXs

Bonjour,
.........
j’aimerais traiter via une condition pour éviter tout problème.
..............
Mais pas s’il est fermé :

Code:

---

If ObjRecordset.State = 0 Then MsgBox "Recordset fermé"

---

Je ne vois pas trop comment mettre ma condition.

---

Sachant que:
AdStateClosed ..........0....Indique que l'objet est fermé.
adStateOpen .............1....Indique que l'objet est ouvert.
AdStateConnecting ...2....Indique que l'objet se connecte.
adStateExecuting .....4.....Indique que l'objet exécute une commande.
adStateFetching .......8.....Indique que les lignes de l'objet sont récupérées.

Tu peux faire une condition sur l'objet ObjConnection aussi bien que sur l'objet ObjRecordset

Il est possible aussi de faire de cette façon:

Code:

---

1 2	If TypeName(ObjConnection) = "Nothing" Then ObjConnection.Open StrConnectionString If TypeName(ObjRecordset) = "Nothing" Then ObjRecordset.Open ObjMySQL,ObjConnection

---

Je n’ai pas bien saisi comment avec ton exemple je pouvais passer mes variables selon l’état de mon Recordset? :oops:

Code:

---

If TypeName(ObjRecordset) = "Nothing" Then ObjRecordset.Open ObjMySQL,ObjConnection

---

J’ai tenté ceci, mais sans plus de résultat. :(

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

'Create the SQL string ObjMySQL = "SELECT * FROM " & StrTableName ObjMySQL = ObjMySQL & ";SELECT * FROM " & StrTableName & " WHERE (`" & StrColumnName & "`)"   'Retrieve the multiple Recordsets ObjRecordset.Open ObjMySQL,ObjConnection   'Work with the first Recordset Do While Not ObjRecordset.EOF MsgBox ObjRecordset.Fields.Count ObjRecordset.MoveNext Loop   'Move to the next Recordset Set ObjRecordset = ObjRecordset.NextRecordset()   'Work with the second Recordset Do While Not ObjRecordset.EOF MsgBox ObjRecordset.Fields(StrColumnName) ObjRecordset.MoveNext Loop   'Clean up... ObjRecordset.Close Set ObjRecordset=nothing ObjConnection.Close Set ObjConnection=Nothing

---

Salut

Un peu de lecture, pour te permettre d'avancer utilement dans la rédaction des requêtes SQL
Commandes de base
Modifier une instruction SQL (ou requête), en Visual Basic