Discussion :

[Gbedjanhoungbo Jean]

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

[ProgElecT]

Salut

Pourquoi ne pas réunir tout dans la procédure

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
Private Sub btnvalider_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnvalider.Click
 
Dim trancheage As String
Dim sex As String 
Dim regime As String 
Dim statut As String 
 
	If rdb011.Checked Then trancheage = "0-11 mois"
	If rdb15.Checked Then trancheage = "1-5 ans"
	If rdb514.Checked Then trancheage = "5-14 ans"
	If rdb15plus.Checked Then trancheage = "15 ans +"
	If chbm.Checked Then sex = "Masculin"
	If chbf.Checked Then sex = "Féminin"
	If chbexterne.Checked Then regime = "externe"
	If chbhosp.Checked Then regime = "hospitalisé(e)"
	If rdbnormale.Checked"" Then statut = "normal"
	If rdbindigent.Checked Then statut = "indigent(e)"
	If rdbgratuite.Checked Then statut = "gratuité"
	If rdbassure.Checked Then statut = "assuré(e)"
 
        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

[Gbedjanhoungbo Jean]

Bonjour
j'ai essayé ta proposition, cela enregistre les données mais donne un avertissement et un message
Avertissement:

la variable trancheage est utilisée avant qu'une valeur ne lui ait été assignée. Une exception de référence null peut se produire au moment de l'exécution.

Le message:

Trop d'argument sont spécifiés pour la procédure stockée insertClient1

je veux comprendre les raisons
Merci pour votre aide

[ProgElecT]

Salut

la variable trancheage est utilisée avant qu'une valeur ne lui ait été assignée. Une exception de référence null peut se produire au moment de l'exécution.

Tu as 4 conditions pour remplir cette variable trancheage, je suppose qu'aucune des 4 conditions n'est remplis, du coup, la variable est null.

Attention, tes 4 variables peuvent produire le même effet, il faut revoir tes Ifs, ou au moins donner une valeur à chacune avant les conditions Ifs.

[ProgElecT]

Salut

As tu trouvé ta solution, est ce que la discussion et résolut ?
Je te met une façon de gérer les conditions if ou chaque variables sera forcément initialisée.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
	'If rdb011.Checked Then trancheage = "0-11 mois"
	trancheage = "0-11 mois"
	If rdb15.Checked Then trancheage = "1-5 ans"
	If rdb514.Checked Then trancheage = "5-14 ans"
	If rdb15plus.Checked Then trancheage = "15 ans +"
	'If chbm.Checked Then sex = "Masculin"
	If chbf.Checked Then sex = "Féminin" Else sex = "Masculin" End If
	'If chbexterne.Checked Then regime = "externe"
	If chbhosp.Checked Then regime = "hospitalisé(e)" Else regime = "externe" End If
	'If rdbnormale.Checked"" Then statut = "normal"
	statut = "normal"
	If rdbindigent.Checked Then statut = "indigent(e)"
	If rdbgratuite.Checked Then statut = "gratuité"
	If rdbassure.Checked Then statut = "assuré(e)"

[Gbedjanhoungbo Jean]

Je n'ai pas encore eu de solution le même message d'avertissement persiste. J'avais déjà revu les conditions if comme tu le suggères mais le problème persiste.

[Phil Rob]

Bonjour,

Je n'ai pas suivi cette discussion et c'est juste fortuitement que je vois le dernier message de ProgElect et là, je peux réponse facilement :

Non, un type Char ne peut pas contenir plusieurs caractères. Mais je suis sûr que ProgEelct le sait, sa question n'étant vraisemblablement qu'une incitation à la réflexion.

Pour en dire plus à qui ne le saurait déjà, j'explique ceci :

Pour manipuler plusieurs caractères "à la fois", il faut utiliser soit un tableau de Char (ou une Array, il paraît que les tableaux, c'est dépassé ...), soit le type String. Avec les tableaux, on accède aux données en désignant leurs indices. En VB, cela ne peut se faire si simplement avec le type String (c'est possible en C++) mais la classe String offre beaucoup de méthodes pour remplacer le "simple" indice. Il faut voir les méthodes Susbstring, IndexOf, LastINdexOf, ..., et d'autres. Les collectyions comme l'Array ou les List(Of ...) par exemple fournissent également les moyens d'accès aux données qu'elles contiennent.

J'espère saouler personne avec ce genre d'explication ...

[ProgElecT]

Salut Phil Rob

Bonjour,
.......
Non, un type Char ne peut pas contenir plusieurs caractères.
...

Donc si Gbedjanhoungbo Jean est resté avec cette déclaration

Code :

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

1
2
3
4
Public trancheage As Char
    Public sex As Char
    Public regime As Char
    Public statut As Char

La suite du code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
	If rdb011.Checked Then trancheage = "0-11 mois"
	If rdb15.Checked Then trancheage = "1-5 ans"
	If rdb514.Checked Then trancheage = "5-14 ans"
	If rdb15plus.Checked Then trancheage = "15 ans +"
	If chbm.Checked Then sex = "Masculin"
	If chbf.Checked Then sex = "Féminin"
	If chbexterne.Checked Then regime = "externe"
	If chbhosp.Checked Then regime = "hospitalisé(e)"
	If rdbnormale.Checked"" Then statut = "normal"
	If rdbindigent.Checked Then statut = "indigent(e)"
	If rdbgratuite.Checked Then statut = "gratuité"
	If rdbassure.Checked Then statut = "assuré(e)"

provoque une erreur ?

Si non (pas d'erreur) quel valeur prennent ces variable type char ? null, vide ...
C'est pourquoi, dans mon post N°2, j'ai changé le type en String.
Il serait intéressant que Gbedjanhoungbo Jean nous confirme le passage de type char en type string de ces 4 variables.

[Phil Rob]

Salut ProgElect,
Je ne suis pas devant le PC pour tester de suite mais s'il n'y a pas d'erreur de compilation, alors seul le premier caractère de la chaîne est retenu et le reste est perdu.
Je ferai un test tout à l'heure et je posterai.

.... comme mon message précédent est toujours en mode "Modifiable", je le continue.

Affecter une String à une variable de type Char est (ordinairement) accepté par le compilateur qui réalise les conversions implicites et le résultat est bien comme je l'indiquais, seul le premier caractère est conservé :



Pour ne pas être confronté à ces problèmes "cachés", il faut refuser les conversions implicites (et se priver de nombreuses facilités d'écriture du code qu'elles apportent) en écrivant en première ligne de la page de code Option Strict On ou en réglant cette option dans les propriétés du projet, sous l'onglet Compilateur :



J'espère avoir bien répondu à ta question

[Gbedjanhoungbo Jean]

Bonjour
l serait intéressant que Gbedjanhoungbo Jean nous confirme le passage de type char en type string de ces 4 variables.
Les variables sont depuis ton premier message passées en string mais les messages d'avertissement persistent. A mon avis c'est un problème de réinitialisation des variables et je n'arrive pas à cerner.

[ProgElecT]

Salut

Fais un essai de debug dans ta procédure btnvalider_Click pour vérifier si cela vient des 4 variables ou de la procédure stockè (ligne 9, 11, 15 et 16

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", "15 ans +")' <---------- variable trancheage
            cmd.Parameters.AddWithValue("@paramAge", txtage.Text)
            cmd.Parameters.AddWithValue("@paramSexe", "Masculin") ' <-------- variable sex
            cmd.Parameters.AddWithValue("@paramProvenence", txtprovenance.Text)
            cmd.Parameters.AddWithValue("@paramTel", txttel.Text)
            cmd.Parameters.AddWithValue("@paramPersonneacontacter", txtperacontacter.Text)
            cmd.Parameters.AddWithValue("@paramRegime", "externe") ' <------  variable regime
            cmd.Parameters.AddWithValue("@paramStatut", "normal")' <-------- variable 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

Si les champs sont bien enregistrés sans message d'erreur, on aura éliminé un dysfonctionnement possible.

[Phil Rob]

Bonjour Jean,

Comme je ne me suis pas encore intéressé à cette discussion (sauf hier pour répondre à une question de ProgElect), peux-tu nous renvoyer la situation actualisée ?
Je veux dire par là, les codes qui produisent le message d'avertissement et le contenu de ce message. Il est possible que l’avertissement ne soit explicitement lié à une ligne de code mais à plusieurs et dans ce cas on ne peut localiser facilement les codes "coupables". Mais une copie d'écran avec ce(s) message(s) d'avertissments aiderait.

Par ailleurs, tu parles de messages d'avertissement : cela signifie qu'il n'empêche pas l'application de fonctionner, c'est bien vela ?

Je devrais avoir du temps aujourd'hui pour m'impliquer dans ce problème ...

A tout hasard, n'y a-t-il pas des guillemets en trop dans cette ligne de code : If rdbnormale.Checked"" Then statut = "normal" ?

[Phil Rob]

En attendant des informations sur la situation actuelle, j'ai relu tous les messages.

Je vois plusieurs situations :

Il n'y as pas d'erreur de compilation.

Il y a au moins un message d'avertissement :

la variable trancheage est utilisée avant qu'une valeur ne lui ait été assignée. Une exception de référence null peut se produire au moment de l'exécution.

Cette erreur (qui n'en n'est pas vraiment une) n'affecte en rien l'exécution.
Il est facile de l'éliminer de suite. Il suffit d'affecter String.Empty ou "" lors de la déclaration de la variable : Dim trancheage As String = "".

Il y a au moins un message d'erreur à l'exécution (je pense que c'est un message d'exécution) :

Trop d'argument sont spécifiés pour la procédure stockée insertClient1

Ce message est clair, il faut compter le nombre de champs de la table dans la DB, le nombre de champs de la procédure stockée et le nombre de champs "paramètres" passés à l'appel de la procédure stockée. En principe les 3 comptages doivent donner le même résultat.
Je ne suis pas sûr de la syntaxe à utiliser pour le passage des paramètres à la procédure stockée mais elle sûrement bonne S'IL Y A D'AUTRES procédures stockées appelées dans cette application et qu'elles fonctionnent. Si aucune ne fonctionnent, alors il faudra revoir le mécanisme. Dites-moi ce qu'il en est ...
Pour ce qui concerne cette erreur, l'exécution pas à pas montrera l'erreur sur la ligne : cmd.ExecuteNonQuery().

J'espère que ceci aidera ...