bonjour,
voilà, j'ai une erreur 3705 "n'est pas autorisé si l'objet est ouvert" sur mon 2eme recordset.
voici le code :
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.
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
Auriez-vous une idée du probleme s'il vous plait ?
Partager