Discussion :

[damsmut]

Bonjour,

Pour des raisons pratique j'ai créé un Recordset manuellement comme suit.
Cela fonctionne.

Voici un exemple :

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
Sub Céer_Table_déconnectée()
 
    Dim rs As ADODB.Recordset
    Set rs = New ADODB.Recordset
 
    'Création de la table
    'Ajout de deux champs
    With rs
        .Fields.Append "Value", adInteger
        .Fields.Append "Name", adVarChar, 20
        .LockType = adLockOptimistic
        .Open , , adOpenStatic
    End With
 
    ' Ajout d'un enregistrement
    rs.AddNew
    rs![Value] = 97
    rs![Name] = "Martin"
 
    ' Ajout d'un enregistrement
    rs.AddNew
    rs![Value] = 96
    rs![Name] = "Paul"
 
    etc...
 
    rs.Update
 
 
End Sub

Comment faire pour créer un 2ème Recordset rs2, qui sera en fait une requête sur la table rs ? (sans utiliser les filtres)
Pour exemple, rs2 devra être un recordset qui reprend uniquement les champs où [Value]=48.


Merci

A+

Dams'

[tee_grandbois]

Bonsoir,
Utilise la méthode Clone du RecordSet:

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
Sub Céer_Table_déconnectée()
    Dim rs As ADODB.Recordset
    Dim rs2 As ADODB.Recordset
    Set rs = New ADODB.Recordset
    
    'Création de la table
    'Ajout de deux champs
    With rs
        .Fields.Append "Value", adInteger
        .Fields.Append "Name", adVarChar, 20
        .LockType = adLockOptimistic
        .Open , , adOpenStatic
    End With
 
    ' Ajout d'un enregistrement
    rs.AddNew
    rs![Value] = 97
    rs![Name] = "Martin"
 
    ' Ajout d'un enregistrement
    rs.AddNew
    rs![Value] = 96
    rs![Name] = "Paul"
 
 
    rs.Update
    Set rs2 = rs.Clone
 
End Sub

[damsmut]

bonjour,

Si j'utilise "Clone", rs2 sera la copie conforme de rs.
Or dans mon cas je souhaite que rs2 soit une requête différente.

Pour exemple, rs2 devra être un recordset qui reprend uniquement les champs où [Value]=48.

... et ce sans utiliser les filtres.

[tee_grandbois]

Bonsoir,
je ne suis pas sur de tout comprendre et la finalité de ce que tu souhaites, de plus tu imposes des contraintes.
Essaie ceci :

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
Sub Céer_Table_déconnectée()
    Dim I As Integer
    Dim rs As ADODB.Recordset
    Dim rs2 As ADODB.Recordset
 
    Set rs = New ADODB.Recordset
 
    'Création de la table
    'Ajout de deux champs
    With rs
        .Fields.Append "Value", adInteger
        .Fields.Append "Name", adVarChar, 20
        .LockType = adLockOptimistic
        .Open , , adOpenStatic
        Set rs2 = .Clone
    End With
 
    ' Ajout d'un enregistrement
    rs.AddNew
    rs![Value] = 97
    rs![Name] = "Martin"
 
    ' Ajout d'un autre enregistrement
    rs.AddNew
    rs![Value] = 96
    rs![Name] = "Paul"
 
     ' Ajout d'un 3ème enregistrement
    rs.AddNew
    rs![Value] = 48
    rs![Name] = "Jacques"
 
    rs.Update
    rs.Close
 
     ' on ne garde que l'enregistrement concerné
    While Not rs2.EOF
    If rs2![Value] <> 48 Then
        rs2.delete
        rs2.Update
    End If
        rs2.MoveNext
    Wend
 
 Set rs = Nothing
 Set rs2 = Nothing
End Sub