Discussion :

[petchy]

bonjour,

je récupere des données dans une listview qui viennes de ma base.
mais le problème c'est quand je modifie cette listview c'est à dire si je retire ou j'ajoute une ligne la modif ne se fait pas dans ma base.
voila 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
Private Sub ReyCommand2_Click() 'modif
On Error GoTo err
Call Connect
    'enregistrement
   Sql = "select * from Article_pose where num='" & num.Text & "'"
   Rs.Open "[Article_pose]", Db, adOpenKeyset, adLockOptimistic
 
Rs.MoveLast
Rs.MoveFirst
For a = 1 To Rs.RecordCount
Rs.Delete
Rs.MoveNext
  Next a
 
  For a = 1 To ListA.ListItems.Count
 
Rs.AddNew
        Rs.Fields("num") = num.Text
        Rs.Fields("code_article") = ListA.ListItems(a)
        Rs.Fields("Designation") = ListA.ListItems(a).SubItems(1)
        Rs.Fields("prix") = ListA.ListItems(a).SubItems(2)
        Rs.Fields("marge") = ListA.ListItems(a).SubItems(3)
        Rs.Fields("Quantite") = ListA.ListItems(a).SubItems(4)
        Rs.Fields("chantier") = ListA.ListItems(a).SubItems(6)
        Rs.Update
   Call Deconnect
Next a
err:
If err.Number = 3021 Then
Exit Sub
End If
End Sub

si vous avez une idée je suis preneur

merci
bon dimanche

[petchy]

bonjour,
j'ai résolu mon probleme

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
48
49
50
51
52
53
54
55
Private Sub Rey_modif_Click()
On Error GoTo err
 
 
Call Connect
 
  Sql = "Delete from Article_pose where num='" & num.Text & "'"
    Rs.Open Sql, Db, adOpenKeyset, adLockOptimistic
    Call Deconnect
 
  For a = 1 To ListA.ListItems.Count
Call Connect
 
 Rs.Open "[Article_pose]", Db, adOpenKeyset, adLockOptimistic
 'enregistrement
 
Rs.AddNew
        Rs.Fields("num") = num.Text
        Rs.Fields("code_article") = ListA.ListItems(a)
        Rs.Fields("Designation") = ListA.ListItems(a).SubItems(1)
        Rs.Fields("prix") = ListA.ListItems(a).SubItems(2)
        Rs.Fields("marge") = ListA.ListItems(a).SubItems(3)
        Rs.Fields("Quantite") = ListA.ListItems(a).SubItems(4)
        Rs.Fields("chantier") = ListA.ListItems(a).SubItems(6)
        Rs.Update
   Call Deconnect
Next a
 
Call Connect
 
  Sql = "Delete from Article_mat where num='" & num.Text & "'"
    Rs.Open Sql, Db, adOpenKeyset, adLockOptimistic
    Call Deconnect
    For b = 1 To ListB.ListItems.Count
  Call Connect
 
 Rs.Open "[Article_mat]", Db, adOpenKeyset, adLockOptimistic
Rs.AddNew
        Rs.Fields("num") = num.Text
        Rs.Fields("code_article") = ListB.ListItems(b)
        Rs.Fields("Designation") = ListB.ListItems(b).SubItems(1)
        Rs.Fields("prix") = ListB.ListItems(b).SubItems(2)
        Rs.Fields("marge") = ListB.ListItems(b).SubItems(3)
        Rs.Fields("Quantite") = ListB.ListItems(b).SubItems(4)
        Rs.Fields("chantier") = ListB.ListItems(b).SubItems(6)
        Rs.Update
   Call Deconnect
Next b
err:
If err.Number = 3021 Then
Exit Sub
End If
Unload Me
Article_frm.Show
End Sub