Impossible d'insérer des données dans ma bd à partir d'un formulaire asp vb.net

Version imprimable

Bonjour.
Je m'étais trompé précédemment de forum. je crois être sur le bon.
Sur mon formulaire sur lequel j'ai des champs de saisie, j'y saisie des données et valide. Rien ne se passe. voilà mon code

Code:

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
 
Imports System.Data.SqlClient
Imports System.Configuration
 
Partial Class f_affaire_victime
    Inherits System.Web.UI.Page
    Private SqlCon As SqlConnection
 
    Protected Sub Page_InitComplete(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.InitComplete
        SqlCon = New SqlConnection
        SqlCon.ConnectionString = ConfigurationManager.ConnectionStrings("CyberPlainte").ToString
    End Sub
 
Dim ReferenceVictime As String = nature_piece.Text & numero_piece.Text
 
        If GloGlobal.NouvelleVictime Then
            ExecuteLDD("insert into t_victime (personne,identifiant,naturepceidentite,numeropceidentite,nom,prenom,datenaissance,sexe,tel,mail,adresse,paysresidence,ville,paysnationalite,profession,employeur,situationmatrimoniale,nbenfant,dateenreg) values ('" & personne.Text & "','" & ReferenceVictime & "','" & nature_piece.Text & "','" & numero_piece.Text & "','" & GloGlobal.ValiderApostrophe(nom.Text) & "','" & GloGlobal.ValiderApostrophe(prenom.Text) & "','" & date_naissance.Text & "','" & sexe.Text & "','" & tel_fax.Text & "','" & GloGlobal.ValiderApostrophe(email.Text) & "','" & GloGlobal.ValiderApostrophe(adresse_postale.Text) & "','" & GloGlobal.ValiderApostrophe(pays_residence.Text) & "','" & GloGlobal.ValiderApostrophe(ville_residence.Text) & "','" & GloGlobal.ValiderApostrophe(pays_origine.Text) & "','" & GloGlobal.ValiderApostrophe(profession.Text) & "','" & GloGlobal.ValiderApostrophe(employeur.Text) & "','" & situation_matrimoniale.Text & "'," & GloGlobal.ValiderDecimal(nombre_enfant_en_charge.Text) & ",'" & Date.Today & "')")
 
            GloGlobal.NouvelleAffaire = True
        Else
            ExecuteLDD("update t_victime set personne='" & personne.Text & "',identifiant='" & ReferenceVictime & "',naturepceidentite='" & nature_piece.Text & "',numeropceidentite='" & numero_piece.Text & "',nom='" & GloGlobal.ValiderApostrophe(nom.Text) & "',prenom='" & GloGlobal.ValiderApostrophe(prenom.Text) & "',datenaissance='" & date_naissance.Text & "',sexe='" & sexe.Text & "',tel='" & tel_fax.Text & "',mail='" & email.Text & "',adresse='" & GloGlobal.ValiderApostrophe(adresse_postale.Text) & "',paysresidence='" & GloGlobal.ValiderApostrophe(pays_residence.Text) & "',ville='" & GloGlobal.ValiderApostrophe(ville_residence.Text) & "',paysnationalite='" & GloGlobal.ValiderApostrophe(pays_origine.Text) & "',profession='" & GloGlobal.ValiderApostrophe(profession.Text) & "',employeur='" & GloGlobal.ValiderApostrophe(employeur.Text) & "',situationmatrimoniale='" & situation_matrimoniale.Text & "',nbenfant=" & GloGlobal.ValiderDecimal(nombre_enfant_en_charge.Text) & " where (identifiant='" & GloGlobal.IdVictime & "')")
        End If
 
        GloGlobal.NouvelleVictime = False
        GloGlobal.IdVictime = ReferenceVictime
        Response.Redirect("f_affaire.aspx", False)
    End Sub
 
Private Sub ExecuteLDD(ByVal bSql As String)
        Dim CMD As New SqlCommand
        SqlCon.Open()
        CMD.Connection = SqlCon
        CMD.CommandText = bSql
        CMD.ExecuteNonQuery()
        SqlCon.Close()
    End Sub
End Class

où GloGlobal est une fonction de portée publique.
Il n'y a pas de nouvelle ligne dans la base de données mais en plus, toutes les zones de saisies se vident.
J'ai fouillé et je n'ai rien trouvé.
Je m'en remets à vous

09/10/2013, 17h29
yinyang

Bonjour,

Pourquoi tu ne passes par l'évènement "Load" de Page ?

Seb

c'est au niveau de la validation que je rencontre des difficultés. voilà l'extrait du code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
    Private Sub cmd_suivant_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmd_suivant.Click
Dim ReferenceVictime As String = nature_piece.Text & numero_piece.Text
 
        If GloGlobal.NouvelleVictime Then
            ExecuteLDD("insert into t_victime (personne,identifiant,naturepceidentite,numeropceidentite,nom,prenom,datenaissance,sexe,tel,mail,adresse,paysresidence,ville,paysnationalite,profession,employeur,situationmatrimoniale,nbenfant,dateenreg) values ('" & personne.Text & "','" & ReferenceVictime & "','" & nature_piece.Text & "','" & numero_piece.Text & "','" & GloGlobal.ValiderApostrophe(nom.Text) & "','" & GloGlobal.ValiderApostrophe(prenom.Text) & "','" & date_naissance.Text & "','" & sexe.Text & "','" & tel_fax.Text & "','" & GloGlobal.ValiderApostrophe(email.Text) & "','" & GloGlobal.ValiderApostrophe(adresse_postale.Text) & "','" & GloGlobal.ValiderApostrophe(pays_residence.Text) & "','" & GloGlobal.ValiderApostrophe(ville_residence.Text) & "','" & GloGlobal.ValiderApostrophe(pays_origine.Text) & "','" & GloGlobal.ValiderApostrophe(profession.Text) & "','" & GloGlobal.ValiderApostrophe(employeur.Text) & "','" & situation_matrimoniale.Text & "'," & GloGlobal.ValiderDecimal(nombre_enfant_en_charge.Text) & ",'" & Date.Today & "')")
 
            GloGlobal.NouvelleAffaire = True
        Else
            ExecuteLDD("update t_victime set personne='" & personne.Text & "',identifiant='" & ReferenceVictime & "',naturepceidentite='" & nature_piece.Text & "',numeropceidentite='" & numero_piece.Text & "',nom='" & GloGlobal.ValiderApostrophe(nom.Text) & "',prenom='" & GloGlobal.ValiderApostrophe(prenom.Text) & "',datenaissance='" & date_naissance.Text & "',sexe='" & sexe.Text & "',tel='" & tel_fax.Text & "',mail='" & email.Text & "',adresse='" & GloGlobal.ValiderApostrophe(adresse_postale.Text) & "',paysresidence='" & GloGlobal.ValiderApostrophe(pays_residence.Text) & "',ville='" & GloGlobal.ValiderApostrophe(ville_residence.Text) & "',paysnationalite='" & GloGlobal.ValiderApostrophe(pays_origine.Text) & "',profession='" & GloGlobal.ValiderApostrophe(profession.Text) & "',employeur='" & GloGlobal.ValiderApostrophe(employeur.Text) & "',situationmatrimoniale='" & situation_matrimoniale.Text & "',nbenfant=" & GloGlobal.ValiderDecimal(nombre_enfant_en_charge.Text) & " where (identifiant='" & GloGlobal.IdVictime & "')")
        End If
 
        GloGlobal.NouvelleVictime = False
        GloGlobal.IdVictime = ReferenceVictime
        Response.Redirect("f_affaire.aspx", False)
    End Sub

il doit enregistrer les données du formulaire et passer à la page suivante.
En fait il enregistre mais il enregistre comme s'il voyait les zones de saisies vides

j'attends impatiemment vos solutions

10/10/2013, 11h08
djelloharmel

Je vois bien mon problème mais il m'est difficile d'y remédier.
à la validation, mon application voit les champs du formulaire vides alors qu'il y a bel et bien des données.

A quoi cela est dû et comment y remédier?

Bien que j'ai changé ma manière d'insérer les données dans la bd, rien ne passe.
En effet, j'ai créé une procédure stockée dans sqlserver 2008

Code:

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
USE [CyberPlainte]
GO
/****** Object:  StoredProcedure [dbo].[InsererVictime]    Script Date: 10/10/2013 10:36:36 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
-- =============================================
-- Author:		<Author,,Name>
-- Create date: <Create Date,,>
-- Description:	<Description,,>
-- =============================================
ALTER PROCEDURE [dbo].[InsererVictime] 
	-- Add the parameters for the stored procedure here
	@Personne nvarchar,
	@NaturePiece nvarchar,
	@NumeroPiece nvarchar,
	@Identifiant nvarchar,
	@Nom nvarchar,
	@Prenom nvarchar,
	@DateNaissance nvarchar,
	@Sexe nvarchar,
	@TelFax nvarchar,
	@Email nvarchar,
	@AdressePostale nvarchar,
	@PaysOrigine nvarchar,
	@PaysResidence nvarchar,
	@VilleResidence nvarchar,
	@Profession nvarchar,
	@Employeur nvarchar,
	@SituationMatrimoniale nvarchar,
	@NbEnfantCharge int
AS
BEGIN
	-- SET NOCOUNT ON added to prevent extra result sets from
	-- interfering with SELECT statements.
	SET NOCOUNT ON;
 
    -- Insert statements for procedure here
	insert into t_victime (Personne,NaturePceIdentite,NumeroPceIdentite,Identifiant,Nom,Prenom,DateNaissance,Sexe,Tel,Mail,Adresse,PaysNationalite,PaysResidence,Ville,Profession,Employeur,SituationMatrimoniale,NbEnfant) values (@Personne,@NaturePiece,@NumeroPiece,@Identifiant,@Nom,@Prenom,@DateNaissance,@Sexe,@TelFax,@eMail,@AdressePostale,@PaysOrigine,@PaysResidence,@VilleResidence,@Profession,@Employeur,@SituationMatrimoniale,@NbEnfantCharge)
END

Et que je l'ai exécuté dans mon code:

Code:

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
SqlCon.Open()
            Dim Mycommand As SqlCommand
            Mycommand = New SqlCommand("InsererVictime", SqlCon)
            Mycommand.CommandType = commandType.StoredProcedure
 
            Mycommand.Parameters.Add("@personne", SqlDbType.NVarChar).Value = personne.Text
            Mycommand.Parameters.Add("@naturepiece", SqlDbType.NVarChar).Value = nature_piece.Text
            Mycommand.Parameters.Add("@numeropiece", SqlDbType.NVarChar).Value = numero_piece.Text
            Mycommand.Parameters.Add("@identifiant", SqlDbType.NVarChar).Value = ReferenceVictime
            Mycommand.Parameters.Add("@nom", SqlDbType.NVarChar).Value = nom.Text
            Mycommand.Parameters.Add("@prenom", SqlDbType.NVarChar).Value = prenom.Text
            Mycommand.Parameters.Add("@datenaissance", SqlDbType.NVarChar).Value = date_naissance.Text
            Mycommand.Parameters.Add("@sexe", SqlDbType.NVarChar).Value = sexe.Text
            Mycommand.Parameters.Add("@telfax", SqlDbType.NVarChar).Value = tel_fax.Text
            Mycommand.Parameters.Add("@email", SqlDbType.NVarChar).Value = email.Text
            Mycommand.Parameters.Add("@adressepostale", SqlDbType.NVarChar).Value = adresse_postale.Text
            Mycommand.Parameters.Add("@paysorigine", SqlDbType.NVarChar).Value = pays_origine.Text
            Mycommand.Parameters.Add("@paysresidence", SqlDbType.NVarChar).Value = pays_residence.Text
            Mycommand.Parameters.Add("@villeresidence", SqlDbType.NVarChar).Value = ville_residence.Text
            Mycommand.Parameters.Add("@pofession", SqlDbType.NVarChar).Value = profession.Text
            Mycommand.Parameters.Add("@employeur", SqlDbType.NVarChar).Value = employeur.Text
            Mycommand.Parameters.Add("@situationmatrimoniale", SqlDbType.NVarChar).Value = situation_matrimoniale.Text
            Mycommand.Parameters.Add("@nbenfantcharge", SqlDbType.Int).Value = CInt(nombre_enfant_en_charge.Text)
 
            Dim CommandAdapter As new SqlDataAdapter(Mycommand)
            Mycommand.ExecuteNonQuery()

Il ne voit pas de valeur dans les zones de saisie.
C'est énervant à la fin. Et moi qui commençait à m'accrocher à l'ASP

10/10/2013, 14h00
katkiller

Je pense qu'il faut nous mettre ta page asp.

Car il n'y a vraiment rien de compliqué dans ton code...
10/10/2013, 14h51
vanquish

Si tu met un point d'arrêt il y a ou pas des données dans tes contrôles (comme personne.Text ).

Le code de ton premier post est très incomplet, il y a un End Sub, sans Sub.
Difficile de comprendre ce qui ne va pas.

1 pièce(s) jointe(s)

Je vous envoie en miniature une esquisse de ma page.

et le code qui suit

Code:

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
48
49
50
51
52
53
54
55
56
Private Sub cmd_suivant_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmd_suivant.Click
        If GloGlobal.ChampVideCombo(personne, "Personne") Then Exit Sub
        If GloGlobal.ChampVideCombo(nature_piece, IIf(personne.Text = "MORALE", "Référence", "N° Pièce ID")) Then Exit Sub
        If GloGlobal.ChampVideText(numero_piece, IIf(personne.Text = "MORALE", "Référence", "N° Pièce ID")) Then Exit Sub
        If GloGlobal.ChampVideText(nom, IIf(personne.Text = "MORALE", "Raison sociale", "Nom")) Then Exit Sub
        If GloGlobal.ChampVideText(prenom, IIf(personne.Text = "MORALE", "Libellé", "Prénom")) Then Exit Sub
        If GloGlobal.ChampVideText(date_naissance, IIf(personne.Text = "MORALE", "Date d'implantation", "Date de naissance")) Then Exit Sub
        If sexe.Enabled Then If GloGlobal.ChampVideCombo(sexe, "Sexe") Then Exit Sub
        If GloGlobal.ChampVideCombo(pays_origine, IIf(personne.Text = "MORALE", "Pays de capitaux", "Pays d'origine (nationalité)")) Then Exit Sub
        If GloGlobal.ChampVideCombo(pays_residence, IIf(personne.Text = "MORALE", "Pays d'implantation", "Pays de résidence")) Then Exit Sub
        If GloGlobal.ChampVideText(ville_residence, "Ville d'habitation") Then Exit Sub
        If GloGlobal.ChampVideCombo(profession, IIf(personne.Text = "MORALE", "Secteur d'activité", "Fonction")) Then Exit Sub
 
        If employeur.Enabled Then If GloGlobal.ChampVideCombo(employeur, "Employeur") Then Exit Sub
        If situation_matrimoniale.Enabled Then If GloGlobal.ChampVideCombo(situation_matrimoniale, "Situation matrimoniale") Then Exit Sub
        If nombre_enfant_en_charge.Enabled Then If GloGlobal.ChampVideText(nombre_enfant_en_charge, "Nb enfant en charge") Then Exit Sub
 
        Dim ReferenceVictime As String = nature_piece.Text & numero_piece.Text
 
        If GloGlobal.NouvelleVictime Then
            SqlCon.Open()
            Dim Mycommand As SqlCommand
            Mycommand = New SqlCommand("InsererVictime", SqlCon)
            Mycommand.CommandType = commandType.StoredProcedure
 
            Mycommand.Parameters.Add("@personne", SqlDbType.NVarChar).Value = personne.Text
            Mycommand.Parameters.Add("@naturepiece", SqlDbType.NVarChar).Value = nature_piece.Text
            Mycommand.Parameters.Add("@numeropiece", SqlDbType.NVarChar).Value = numero_piece.Text
            Mycommand.Parameters.Add("@identifiant", SqlDbType.NVarChar).Value = ReferenceVictime
            Mycommand.Parameters.Add("@nom", SqlDbType.NVarChar).Value = nom.Text
            Mycommand.Parameters.Add("@prenom", SqlDbType.NVarChar).Value = prenom.Text
            Mycommand.Parameters.Add("@datenaissance", SqlDbType.NVarChar).Value = date_naissance.Text
            Mycommand.Parameters.Add("@sexe", SqlDbType.NVarChar).Value = sexe.Text
            Mycommand.Parameters.Add("@telfax", SqlDbType.NVarChar).Value = tel_fax.Text
            Mycommand.Parameters.Add("@email", SqlDbType.NVarChar).Value = email.Text
            Mycommand.Parameters.Add("@adressepostale", SqlDbType.NVarChar).Value = adresse_postale.Text
            Mycommand.Parameters.Add("@paysorigine", SqlDbType.NVarChar).Value = pays_origine.Text
            Mycommand.Parameters.Add("@paysresidence", SqlDbType.NVarChar).Value = pays_residence.Text
            Mycommand.Parameters.Add("@villeresidence", SqlDbType.NVarChar).Value = ville_residence.Text
            Mycommand.Parameters.Add("@pofession", SqlDbType.NVarChar).Value = profession.Text
            Mycommand.Parameters.Add("@employeur", SqlDbType.NVarChar).Value = employeur.Text
            Mycommand.Parameters.Add("@situationmatrimoniale", SqlDbType.NVarChar).Value = situation_matrimoniale.Text
            Mycommand.Parameters.Add("@nbenfantcharge", SqlDbType.Int).Value = CInt(nombre_enfant_en_charge.Text)
 
            Dim CommandAdapter As New SqlDataAdapter(Mycommand)
            Mycommand.ExecuteNonQuery()
            GloGlobal.NouvelleAffaire = True
        Else
            ExecuteLDD("update t_victime set personne='" & personne.Text & "',identifiant='" & ReferenceVictime & "',naturepceidentite='" & nature_piece.Text & "',numeropceidentite='" & numero_piece.Text & "',nom='" & GloGlobal.ValiderApostrophe(nom.Text) & "',prenom='" & GloGlobal.ValiderApostrophe(prenom.Text) & "',datenaissance='" & date_naissance.Text & "',sexe='" & sexe.Text & "',tel='" & tel_fax.Text & "',mail='" & email.Text & "',adresse='" & GloGlobal.ValiderApostrophe(adresse_postale.Text) & "',paysresidence='" & GloGlobal.ValiderApostrophe(pays_residence.Text) & "',ville='" & GloGlobal.ValiderApostrophe(ville_residence.Text) & "',paysnationalite='" & GloGlobal.ValiderApostrophe(pays_origine.Text) & "',profession='" & GloGlobal.ValiderApostrophe(profession.Text) & "',employeur='" & GloGlobal.ValiderApostrophe(employeur.Text) & "',situationmatrimoniale='" & situation_matrimoniale.Text & "',nbenfant=" & GloGlobal.ValiderDecimal(nombre_enfant_en_charge.Text) & " where (identifiant='" & GloGlobal.IdVictime & "')")
        End If
 
        SqlCon.Close()
        GloGlobal.NouvelleVictime = False
        GloGlobal.IdVictime = ReferenceVictime
        Response.Redirect("f_affaire.aspx", False)
    End Sub

avec Gloglobal qui est une classe publique dans App_code,
ValiderApostrophe qui est une fonction de valider les valeurs contenant les apostrophes (')
ChampVideCombo et ChampVideText met une contrainte (de champ non vide) sur les dropdownlist et les textbox
...

Je tiens à préciser qu'au niveau de l'insertion,en suivant l'exécution avec les points d'arrêt, je constate que les champs sont vides. ce qui est faux.

Je crois avoir été un peu plus explicite.
Merci d'avance

11/10/2013, 10h34
vanquish

Il y a un problème au niveau de la structure de ta page aspx, c'est pas possible autrement. Que les contrôles arrivent avec leur propriétés (et donc valeur) au niveau d'un événement, c'est la base même du fonctionnement même d'ASP.

Ta page est basée sur une masterpage ou pas ?
Si oui, d'autres pages basé sur la même master fonctionnent ?
Tes contrôles sont-ils créé par programme ou en mode design ?
11/10/2013, 11h29
djelloharmel

Citation:

Ta page est basée sur une masterpage ou pas ?
Si oui, d'autres pages basé sur la même master fonctionnent ?
Tes contrôles sont-ils créé par programme ou en mode design ?

la page est basée sur une materpage comme les autres pages qui marchent d'ailleurs parfaitement.
Ma page est faite en mode design.

Voilà Vanquish pour les question
11/10/2013, 15h45
DeWaRs

Bonjour,

Plusieurs chose :
- Utilisez des requetes parametrées
- Pourquoi appellez vous votre fonction "ExecuteLDD" dans l'ors de l'INIT de votre page et pas lorsque vous cliquez sur votre bouton de validation ? Sauf erreur de ma part, au moment de l'INIT de la page, les controles ne sont pas encore chargés, donc ne peuvent pas avoir de valeur.
Si je me trompe, en mot debug, les valeurs "personne.Text", "ReferenceVictime" etc sont-elles correctes, non vide ?

Cordialement.

DeWaRs