Discussion :

[r.mehdi]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[AdHoc]

Bonjour,
écris déjà tes différentes requêtes en langage SQL et testes les directement dans ton SGBD.
Après, tu n'as plus qu'a écrire ton programme en fonction des résultats.
Nota:
- il y a plusieurs langages SQL
- Normalement en récupèrant la requête de ton programme (trace, variable espion), tu dois être capable de l'exécuter dans ton SGBD

[ThierryAIM]

bon j'ai cherché a faire une variable pour qu'elle Prenne la valeur de ses deux Options Mais sa ne pas marché

Ok, mais qu'est ce qui ne marche pas ? la requête ? le résultat obtenu ?

Pour info, vrai (ou true) =-1 et non pas 1

[zazaraignée]

Pourquoi deux boutons d'options ? une simple CheckBox serait plus efficace dans ce cas.

Code (pour l'alignement d'une police à chasse fixe...) :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Cochée     --> "le client a payé"
Pas cochée --> "le client n'a pas payé"