[sql] instruction sql non valide

8O

Bonjour,

J'ai en petit soucis d'execution de ma requete sql que j'ai trouvé ds la FAQ ca beug dés le début et je ne vois pas pourkoi :

Code:

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
Private Sub Commande102_Click()
 
'Création des 2 recordsets
    Dim myRS1 As New ADODB.Recordset
    Dim myRS2 As New ADODB.Recordset

    myRS1.Open "Sorti Matériel", CurrentProject.Connection, adOpenDynamic, adLockOptimistic
    myRS2.Open "Table", CurrentProject.Connection, adOpenDynamic, adLockOptimistic

    'Parcours du RS pour ajouter à table1 tout en supprimant de table2
    Do Until myRS2.EOF
        With myRS1
            .AddNew Array("N° garage", "Carte grise", "Site"), _
                          Array(myRS2("N° garage"), myRS2("Carte grise"), myRS2("Site"))
            .Update
        End With

       myRS2.Delete
       myRS2.MoveNext
    Loop

    'Fermeture des recordsets
    myRS1.Close
    myRS2.Close

    Set myRS1 = Nothing
    Set myRS2 = Nothing

End Sub

Pourtant j'ai tout suivi

il me dit qu'il attend une procedure de type insert delet select ... suis perdu...:aie:

Pouvez vous m'aider;)

merchi:P

liloo

Bonjour,

pourquoi ne pas utiliser la collection Fields

Code:

1
2
3
4
5
 With myRS1
            .AddNew 
            .fields('carte grise').value = mavaleur
            .Update
        End With

A+

merci Soltani1

Citation:

Bonjour,

pourquoi ne pas utiliser la collection Fields

tout simplement car je ne connaissai pas ça ! j'ai regardé dans la FAQ pour trouver le code .. sinon ca marche comment ???

merci pour ton aide
;) ;)