recordset vba

Question

Bonjour,
je n'ai pas l'habitude d'utiliser des recordset (je fais g&#233;n&#233;ralement du vb.net). Mon appli vb.net lance une feuille excel dans laquel je lance du code vba pour faire un update d'une table access, j'essaye d'utiliser un recordset mais j'ai un probl&#232;me de doublon avec ma base de donn&#233;e. Mon code enregistre les donn&#233;es d'excel vers ma base access &#224; la suite des derni&#232;res valeurs enregistr&#233; au lieu de faire un update par rapport ma clef primaire (No element)...pourquoi? 

Dim Plage As Range
     Dim Array1 As Variant
     Dim x As Variant
     Dim Db1 As Database
     Dim Rs1 As Recordset
     Dim num As Integer
      
     num = 0
     Set Db1 = DBEngine.OpenDatabase("c:	oto.xls")
     'Set Rs1 = Db1.OpenRecordset("Element", dbOpenDynaset)
      Set Rs1 = Db1.OpenRecordset("Element",)
     
     Set Plage = Worksheets("Feuil1").Range("A1").CurrentRegion.Offset(1, 0)
     
     Array1 = Plage
      
     For x = 1 To UBound(Array1, 1) - 1
     num = num + 1
           With Rs1
                 .AddNew
                 .Fields("No element") = Array1(x, 1)
                    .Fields("Panneau") = Array1(x, 2)
                
                                       
                .Update
            End With
     Next

pymm · Answer

C'est parce que tu fais un addnew = "Ajoute nouvel ligne dans la table".

essaies de te placer sur l'enregistrement puis tu modifies les valeur puis le update.

Mais j'ai pas fait de VB depuis un moment alors je garantis rien

Recordset vba

1 réponse

Votre réponse

Discussions similaires