Discussion :

[gup]

bonjour,

voilà, j'ai une erreur 3705 "n'est pas autorisé si l'objet est ouvert" sur mon 2eme recordset.
voici le code :

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
 
Option Explicit
 
    Dim Ct As ADODB.Connection
    Dim RSCat As ADODB.Recordset
    Dim RSArt As ADODB.Recordset
 
Private Sub Form_Load()
 
    Dim ReqCat As String
 
    Set Ct = New ADODB.Connection
    Ct.Provider = "Microsoft.Jet.Oledb.4.0"
    Ct.ConnectionString = "c:\bd1.mdb"
    Ct.Open
    Set RSCat = New ADODB.Recordset
    RSCat.CursorLocation = adUseClient
    RSCat.Open "SELECT IDCategorie, cat_prod FROM categorie;", Ct, adOpenDynamic, adLockOptimistic
 
    With RSCat
        If .RecordCount > 1 Then
            .MoveFirst
            Do While Not .EOF
                CmbCat.AddItem RSCat!cat_prod
                .MoveNext
            Loop
        End If
    End With
    RSCat.Close
 
 
'                            Remplissage du treeview
 
    Dim ReqArt As String
    Set RSArt = New Recordset
    For i = 1 To (CmbCat.ListCount)
        ReqArt = "SELECT article.IDCategorie, categorie.cat_prod, article.article"
        ReqArt = ReqArt + ", article.prix_unitaire, article.quantite, "
        ReqArt = ReqArt + "article.IDCategorie, categorie.IDcategorie "
        ReqArt = ReqArt + "FROM categorie INNER JOIN article ON "
        ReqArt = ReqArt + "categorie.IDcategorie = article.IDCategorie "
        ReqArt = ReqArt + "WHERE categorie.cat_prod='" + CmbCat.List(i) + "';"
 
        RSArt.Open ReqArt, Ct, adOpenDynamic, adLockOptimistic
 
    ...
    next i

Je précise que j'ai essayé de rajouter une 2eme connection Ct2 en fermant la premiere, puis set ct= nothing, mais rien n'y fait, cela fonctionne bien pour RSCat, mais pas pour RSArt.

Auriez-vous une idée du probleme s'il vous plait ?

[pc75]

Bonjour,

J'aurai tendance à dire que l'erreur est logique.

Quand tu fais :

For i = 1 To (CmbCat.ListCount)
ReqArt = "SELECT article.IDCategorie, categorie.cat_prod, article.article"
ReqArt = ReqArt + ", article.prix_unitaire, article.quantite, "
ReqArt = ReqArt + "article.IDCategorie, categorie.IDcategorie "
ReqArt = ReqArt + "FROM categorie INNER JOIN article ON "
ReqArt = ReqArt + "categorie.IDcategorie = article.IDCategorie "
ReqArt = ReqArt + "WHERE categorie.cat_prod='" + CmbCat.List(i) + "';"

RSArt.Open ReqArt, Ct, adOpenDynamic, adLockOptimistic

...
next i

ton "RSArt.Open ..." étant dans une boucle, tu essaies de faire le open plusieurs fois.

[Le Pharaon]

Bien vu pc75
Voici une solution !

Code :

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

1
2
3
4
5
6
7
.......
RSArt.Open ReqArt, Ct, adOpenDynamic, adLockOptimistic 
 
... 
RSArt.Close ' Pour fermer le recordset 
....
next i

[gup]

ok, merci! ca me sautait au yeux et je le voyait meme pas ! :s

merci