Creer un enregistrement dans une table ASP.NET SQL

**serges** · 05/08/2009, 10h33

salut
c'est vraiment tres gentil de votre part,je sais que vous allez m'aider

pour ce qui est de l'appli.
j'ai crée une base BDDM.avec 2 tables dt voici les structures:
tb_User(id_user,nom,prenom,adressemail,poste)
tb_messagerie(id_message,expediteur,destinataire,objet,message,date_envoi)
j'ai crée mon site extranet.
j'ai 3 pages.
accueil.aspx ,envoi_message.aspx,messagerie.aspx.
accueil n'as que le bouton messagerie interne(response.direct("messagerie.aspx") )
envoi_message.aspx(j'ai txt_exp,txt_dest,_text,objet,txt_messgae)
messagerie.aspx(tableux pour l'instant vide avec 4 colones expediteur,destinateur,message,supprimer)c'est vide pour l'instant.

ce que je veux c'est ecriture et lecture dans une table maintenant.
j'ecris mon message exp(tot@dre.fr,destina.,objet,msg......)qu'est que je dois faire pour que quand je clic sur envoyer cela aille dans les champs correspondant de la table messagerie? afin de creer un enregistrement)
quesque je doit faire pour que quand je clic sur messagerie,il recupere les messages stockés et rempli mon tableau de messagerie.aspx?

voici le code de creation d'enreigistrement:
il ne crée rien mais n'indique aucune erruer:

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
Protected Sub btn_envoi_msg_Click(ByVal sender As Object, ByVal e As System.EventArgs) 
 
Dim InsertText, lblMsg As String 
Dim j As Integer 
Dim int_Admin As Integer = 0 
Dim int_Fact As Integer = 0 
Dim int_Devis As Integer = 0 
' Connection à la base de données 
Dim cn As New SqlConnection() 
cn.ConnectionString = ConfigurationSettings.AppSettings("BDD") 
cn.Open() 
 
'création d'un mail 
 
InsertText = "INSERT INTO BDD_messagerie_interne(expediteur,destinateur,objet,message) 
VALUES (lb_expediteur.Text, lb_destinataire.Text lb_objet, txtmsg )" 
 
Dim Ins1 As New SqlCommand(InsertText, cn) 
Try 
j = Ins1.ExecuteNonQuery() 
lblMsg = "l'Agent a été Ajouté" 
Response.Redirect("accueil_societe.aspx") 
Catch ex As Exception 
lblMsg = "erreur lors de l'ajout" 
End Try 
Ins1 = Nothing 
cn.Close() 
End Sub

j'ai mon html qui correcte par la suite

**pepi22** · 05/08/2009, 14h10

Code :

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

1
2
3
 
"INSERT INTO BDD_messagerie_interne(expediteur,destinateur,objet,message) 
VALUES (lb_expediteur.Text, lb_destinataire.Text lb_objet, txtmsg )"

Les valeurs spécifié sont erroné puisque vous envoyez lb_expediteur.text au server sql. C'est à dire, vous n'envoyez pas le contenu de votre TextBox mais bel et bien "lb_expediteur.text".

Je ne connais pas le type exacte de vos colonnes mais votre requête devrait plutôt ressembler à ceci:

Code :

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

1
2
3
"INSERT INTO BDD_messagerie_interne(expediteur,destinateur,objet,message) 
VALUES ('" & lb_expediteur.Text & "','" & lb_destinataire.Text & "','" & lb_objet.Text & "','" & txtmsg.Text & "'")"

Pour la lecture, une simple datareader suffira.

**serges** · 06/08/2009, 10h30

Merci pepi22
la requete n'acffiche pas d'erreur dans le code c'est deja ça!
mais ça ne marche pas!
quand je rempli les txtbox je clic sur envoyé.
je retourne regarder dans ma table il n'ya rien.
et ne me met aucune erreur je ne sais pas pourquoi
voici le code avant le html:

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
<%@ Page Language="VB" AutoEventWireup="false" %>
<%@ Import Namespace="System.Data.SqlClient" %>
 
 
 
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
 
<script runat="server">
 
 
    Protected Sub objet_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs)
 
    End Sub
 
    Protected Sub btn_envoi_msg_Click(ByVal sender As Object, ByVal e As System.EventArgs)
 
        Dim InsertText, lblMsg As String
        Dim j As Integer
        Dim int_Admin As Integer = 0
        Dim int_Fact As Integer = 0
        Dim int_Devis As Integer = 0
        ' Connection à  la base de donnÃ©es
        Dim cn As New SqlConnection()
        cn.ConnectionString = ConfigurationSettings.AppSettings("WTS_ExtraSQL")
        cn.Open()
 
        'création d'un mail
 
        InsertText = "INSERT INTO wts_messagerie_interne(expediteur,destinateur,objet,message) VALUES ( '" & lb_expediteur.Text & "','" & lb_destinataire.Text & "','" & lb_objet.Text & "','" & txtmsg.Text & "')"
 
        Dim Ins1 As New SqlCommand(InsertText, cn)
        Try
            j = Ins1.ExecuteNonQuery()
            lblMsg = "Message Envoyé"
            Response.Redirect("accueil_societe.aspx")
        Catch ex As Exception
            lblMsg = "erreur lors de l'ajout"
        End Try
        Ins1 = Nothing
        cn.Close()
    End Sub
 
</script>
 
<html xmlns="http://www.w3.org/1999/xhtml">
<head id="Head1" runat="server">

lorsque je fait une exécution de la requete dans sql server en remplaçant les valeures comme ceci:

Code :

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

INSERT INTO wts_messagerie_interne(expediteur,destinateur,objet,message) VALUES(jbj,dddd,ddfd,ff)

ça me met cette erreur:

Msg 128, Niveau 15, État 1, Ligne 1
The name "jbj" is not permitted in this context. Valid expressions are constants, constant expressions, and (in some contexts) variables. Column names are not permitted.

Quel voit ou serait le probleme?