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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
If ObjRecordset.State = 1 Then MsgBox "Recordset ouvert"
Mais pas s’il est fermé :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
If ObjRecordset.State = 0 Then MsgBox "Recordset fermé"
Je ne vois pas trop comment mettre ma condition.