salut j travail ds vb6 j'ai 2 table Concerner et Produit j vx effectuer la mise a jour alors j'ai fé ce code mais quand j verifier la table Produit j vois aucune Modification (Mise a jour)
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
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
 
Select Case Button.Index
Case Is = 1 'Bouton Valider
va = MsgBox("Voulez Vous Vraiment Valider???", vbYesNo + vbInformation, "Validation")
If va = 6 Then
SQL = " insert into Concerner " & _
" values ( '" & Combo1 & "' , '" & Combo2 & "' , " & Text1 & ")"
 
'mise a jour dans la table Produit
sql2 = " update Produit " & _
" set Qs_prod = Qs_prod - val(text1) where Num_prod= '" & Combo2 & "'"
Base.Execute SQL
Base.Execute sql2
 
End If
 
End Select
End Sub