Bonjour
Merci de m’aider à nouveau pour gérer les radiobutton et checkbox.
Se servant de cette procédure stockée :
Code SQL : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
create PROCEDURE [dbo].[InsertClient1] 
	   (@paramCodeClient Varchar(50) out,@paramNomClient varchar(50),@paramPrenomsClient varchar(50), @paramTrancheage varchar(50), @paramAge numeric(18,0),
        @paramSexe varchar(50),@paramProvenence varchar(50),@paramTel varchar(50),@paramPersonneacontacter varchar(50),@paramRegime varchar(50),@paramStatut varchar(50),@paramcodeassur varchar(50))
 
 
AS
SET NOCOUNT ON
        INSERT INTO [Facturation].[dbo].[CLIENT]
                        ([CODECLIENT],[NOMCLIENT],[PRENOMSCLIENT],[TRANCHEAGE],[AGE],[SEXE],[PROVENENCE],[TELEPHONE],[PERSONNEACONTACTER],[REGIME],[STATUT],[CODEASSUR])
 
	                VALUES
                          (@paramCodeClient,@paramNomClient, @paramPrenomsClient , @paramTrancheage, @paramAge,
                           @paramSexe ,@paramProvenence ,@paramTel ,@paramPersonneacontacter ,@paramRegime ,@paramStatut,@paramcodeassur)
Et ce code vb
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
Private Sub btnvalider_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnvalider.Click
        Try
            cmd.Connection = con
            cmd.CommandType = CommandType.StoredProcedure
            cmd.CommandText = "InsertClient1"
            cmd.Parameters.AddWithValue("@paramCodeClient", txtcodep.Text)
            cmd.Parameters.AddWithValue("@paramNomClient", txtnomp.Text)
            cmd.Parameters.AddWithValue("@paramPrenomsClient", txtprenomp.Text)
            cmd.Parameters.AddWithValue("@paramTrancheage", trancheage)
            cmd.Parameters.AddWithValue("@paramAge", txtage.Text)
            cmd.Parameters.AddWithValue("@paramSexe", sex)
            cmd.Parameters.AddWithValue("@paramProvenence", txtprovenance.Text)
            cmd.Parameters.AddWithValue("@paramTel", txttel.Text)
            cmd.Parameters.AddWithValue("@paramPersonneacontacter", txtperacontacter.Text)
            cmd.Parameters.AddWithValue("@paramRegime", regime)
            cmd.Parameters.AddWithValue("@paramStatut", statut)
            cmd.Parameters.AddWithValue("@paramcodeassur", cboassurance.Text)
            If con.State = ConnectionState.Closed Then con.Open()
            cmd.ExecuteNonQuery()
            con.Close()
            MsgBox("Opération d'ajout terminée avec succès !", MsgBoxStyle.Information,
   "Résultat")
        Catch objException As Exception
            If con.State = ConnectionState.Open Then con.Close()
            MsgBox(objException.Message)
        End Try
 
    End Sub
Les radiobutton et les checkbox sont affectés dans des variables et gérés comme suit
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
Public trancheage As Char
    Public sex As Char
    Public regime As Char
    Public statut As Char
 
 
If rdb011.Checked = True Then
            trancheage = "0-11 mois"
        End If
        If rdb15.Checked = True Then
            trancheage = "1-5 ans"
        End If
        If rdb514.Checked = True Then
            trancheage = "5-14 ans"
        End If
        If rdb15plus.Checked = True Then
            trancheage = "15 ans +"
        End If
        If chbm.Checked = True Then
            sex = "Masculin"
        End If
        If chbf.Checked = True Then
            sex = "Féminin"
        End If
        If chbexterne.Checked = True Then
            regime = "externe"
        End If
        If chbhosp.Checked = True Then
            regime = "hospitalisé(e)"
        End If
        If rdbnormale.Checked = True Then
            statut = "normal"
        End If
        If rdbindigent.Checked = True Then
            statut = "indigent(e)"
        End If
        If rdbgratuite.Checked = True Then
            statut = "gratuité"
        End If
        If rdbassure.Checked = True Then
            statut = "assuré(e)"
        End If
Le problème est que si on click sur valider tous les autres variables sont enregistrés dans la table sauf les variables trancheage, sex , regime et statut.
Comment peut-on affecter ces variables aux paramètres.
Merci pour vos contributions