Discussion :

[Invité]

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.

[ProgElecT]

Bonjour,
.........
j’aimerais traiter via une condition pour éviter tout problème.
..............
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.

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Invité]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

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
'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

[ProgElecT]

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