Creer un enregistrement dans une table ASP.NET SQL

Version imprimable

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

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:

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

05/08/2009, 14h10
pepi22
Code:

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:

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.

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:

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:

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

ça me met cette erreur:

Citation:

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?

06/08/2009, 10h46
Hinault Romaric

Fait nous voir la tructure de ta table avec le type de chaque colonne.

@++;)