Comment valider une de deux Option dans un Sql (Insert into)
Salut je develope avec vb6 bon j'ai une une table Command qui Porte 7 champs le dernier champs(CLient Payé oui ou non) est de type BOOLEAN
j'ai utiliser deux Options pour s'avoir si le client a tous payé Oui ou non bon le Probleme c'est que j'utilise Sql Pour valider Mes Données
Bon j'ai fé ce Code Mais il lui Manque quelque chose quand meme:(
Code:
1
2
3
4
5
6
7
8
9
10
|
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button
Select Case Button.Index
Case Is = 1 'Ajout des informations
va = MsgBox("Voulez-vous Vraiment" & Chr(13) & "Sauvgarder Ses Informations??", vbYesNo + vbInformation, "Confirmation")
If va = 6 Then
SQL = "insert into commande values( '" & Combo1 & "' & " & Text7 & ", '" & Combo3 & "' ," & _
" " & Text4 & " , " & Label17 & " , ('" & option1 ou 2 si l'un des 2 sont activé&"')
base.execute sql
endif |
bon j'ai cherché a faire une variable pour qu'elle Prenne la valeur de ses deux Options Mais sa ne pas marché :(
Code:
1
2
3
4
5
6
7
8
9
10
|
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button
Dim opt As OptionButton
If Option1.Value = 1 Or Option2.Value = 1 Then
opt.value=1
End If
SQL = "insert into commande values( '" & Combo1 & "' & " & Text7 & ", '" & Combo3 & "' ," & _
" " & Text4 & " , " & Label17 & " , '" & opt & "')"
base.execute sql
endif |
Pourrez vous m'aidez sur Ca?? svp:(
