Lecture de données et enregistrement

Version imprimable

Bonjour a tous,
je voudrais sil vous plais créer un enregistrement dans ma teble message
a travers les txt box.
ma requete insert into TB_message s'exécute bien sur SQL
mais sauf que dans la base apres il n'ya rien.
tous ceci se passe derriere le btn_envoi_msg

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Dim myReader As SqlDataReader
        Dim CommandText As String
        ' Connection à la base de données
        Dim cn As New SqlConnection()
        cn.ConnectionString = ConfigurationSettings.AppSettings("WTS_ExtraSQL")
        cn.Open()
        CommandText = "INSERT INTO wts_messagerie_interne(expediteur,destinateur,objet,contenu_message) VALUES ('" & txtExp.Text & "', '" & txtDest.Text & "', '" & txtObj.Text & "', '" & txtExp.Text & "')"
        Dim cmd As New SqlCommand(CommandText, cn)
        myReader = cmd.ExecuteReader()
        myReader.Read()
 
    End Sub
 
    Protected Sub Btn_annul_envoi_Click(ByVal sender As Object, ByVal e As System.EventArgs)
 
    end sub

07/08/2009, 13h35
serges

lecture dans une base

juste pour précicer que le code html est a la suite
07/08/2009, 14h03
Pol63

Citation:

Envoyé par serges

juste pour précicer que le code html est a la suite

hein ?

y a une balise pour que le code soit mis en forme et lisible plutot qu'un paté noir pas indenté

manque quelques petites notions, ici pour se documenter http://plasserre.developpez.com/cours/vb-net/

executereader sert en théorie pour les select, pour un insert, update ou delete, executenonquery suffit
.read sert à lire la ligne suivante pour les select, donc ca ne sert à rien ici

et plutot que de concaténer ta requete avec les textbox comme tu le fais il faut utiliser des sqlparameters

Lecture de données et enregistrement

Merci bien l'ami:
je choisit ExecuteNonQuery et je ne comprend pas pourquoi ça ne marche pas:

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
<%@ Page Language="VB" AutoEventWireup="false" %>
<%@ Import Namespace="System.Data.SqlClient" %>
 
<script runat="server">
    Private Sub page_load()
 
    End Sub
    Protected Sub Btn_envoi_msg_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        ' Connection à la base de données
        Dim cn As New SqlConnection()
        cn.ConnectionString = ConfigurationSettings.AppSettings("WTS_ExtraSQL")
        cn.Open()
        Dim CommandText As String
 
        CommandText = "INSERT INTO wts_messagerie_interne(expediteur,destinateur,objet,contenu_message) VALUES ('" & txtExp.Text & "', '" & txtDest.Text & "', '" & txtObj.Text & "', '" & txtExp.Text & "')"
        Dim InsSQL As New SqlCommand(CommandText, cn)
        Dim x As Integer
        Try
            x = InsSQL.ExecuteNonQuery()
            Response.Write("Insertion d'un agent" & "<br />")
        Catch ex As Exception
            Response.Write(ex)
        End Try
        InsSQL = Nothing
    End Sub
 
    Protected Sub Btn_annul_envoi_Click(ByVal sender As Object, ByVal e As System.EventArgs)
 
    end sub
 
</script>

07/08/2009, 14h33
Pol63

c'est pas citation qu'il faut utiliser, mais le # pour le code

une erreur ?

Citation:

et plutot que de concaténer ta requete avec les textbox comme tu le fais il faut utiliser des sqlparameters

lecture dans une base

salut!
Et merci encore: je veux recuperer les données qu'il ya dans ma table pour les afficher sous forme de tableau.
pour la lecture des données voici le code coorespondant que j'ai fais mais ça ne marche pas.

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
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
<?xml version="1.0" encoding="iso-8859-1"?>
<%@ Page Language="VB" Debug="true" AutoEventWireup="false" %>
 
<%@ Import Namespace="System.Data.SqlClient" %>
<%@ import Namespace="System" %>
<%@ import Namespace="System.Web.UI.Page" %>
<%@ import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.Odbc" %>
<%@ Import Namespace="System.Data.OleDB" %>
<%@ import Namespace="System.Web.UI.WebControls" %>
<%@ import Namespace="System.Web.UI.HtmlControls" %>
<%@ import Namespace="System.Web.Mail" %>
<%@ import Namespace="System.Text" %>
 
<script runat="server">
    Private Sub rempliTableau(ByVal dr As SqlDataReader, ByVal tbl As Table)
        'vidange du tableau
        tbl.Rows.Clear()
 
        Dim premier As Boolean = True
        Do While dr.Read
            'une ligne
            Dim tr As New TableRow
            'en-tete
            If premier Then
                premier = False
                For i As Integer = 0 To dr.FieldCount - 1
                    Dim thc As New TableHeaderCell
                    thc.Text = dr.GetName(i)
                    tr.Cells.Add(thc)
 
                Next
                tr.BackColor = Drawing.Color.CadetBlue
                tbl.Rows.Add(tr)
                tr = New TableRow
            End If
            'ajoute une ligne courante
            For i As Integer = 0 To dr.FieldCount - 1
                Dim tc As New TableCell
                tc.Text = dr(i)
                tr.Cells.Add(tr)
 
            Next
            tbl.Rows.Add(tr)
        Loop
    End Sub
    Private Sub Page_Load()
 
        Dim myReader As SqlDataReader
        Dim CommandText As String
        ' Connection à la base de données
 
        Dim cn As New SqlConnection()
        cn.ConnectionString = ConfigurationSettings.AppSettings("WTS_ExtraSQL")
        cn.Open()
        ' Récupération des infos de l'agent
        CommandText = "SELECT * FROM wts_messagerie_interne"
        Dim lblMsg As String
        Dim Ins1 As New SqlCommand(CommandText, cn)
        Try
            Dim j As Integer = Ins1.ExecuteNonQuery()
            Response.Redirect("accueil_societe.aspx")
        Catch ex As Exception
            lblMsg = "erreur lors de l'ajout"
 
            Ins1 = Nothing
            cn.Close()
 
            'remplissage tableua
            rempliTableau( dr As SqlDataReader, ByVal tbl As Table)
             dr.(close)
        Catch ex As Exception
        Finally
            If Not cn Is Nothing AndAlso cn.State = ConnectionState.Open Then
                cn.Close()
                cn = Nothing
            End If
        End Try
    End Sub
   </script>

<html>.......<html>
il me dit cash n'est jamais atteint!!!!

07/08/2009, 16h25
Hinault Romaric

Holla tu ne comprend pas ce que l'on te dit utilise la balise [CODE] referencer par le boutoun "#"
sans collaration je ne crois pas que quelqu'un aurais envie de t'aider

Remplir tableau

ou dois-je mettre les balise?
je colore:
salut!
Et merci encore: je veux recuperer les données qu'il ya dans ma table pour les afficher sous forme de tableau.
pour la lecture des données voici le code coorespondant que j'ai fais mais ça ne marche pas.

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
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
 
<?xml version="1.0" encoding="iso-8859-1"?>
<%@ Page Language="VB" Debug="true" AutoEventWireup="false" %>
 
<%@ Import Namespace="System.Data.SqlClient" %>
<%@ import Namespace="System" %>
<%@ import Namespace="System.Web.UI.Page" %>
<%@ import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.Odbc" %>
<%@ Import Namespace="System.Data.OleDB" %>
<%@ import Namespace="System.Web.UI.WebControls" %>
<%@ import Namespace="System.Web.UI.HtmlControls" %>
<%@ import Namespace="System.Web.Mail" %>
<%@ import Namespace="System.Text" %>
 
<script runat="server">
Private Sub rempliTableau(ByVal dr As SqlDataReader, ByVal tbl As Table)
'vidange du tableau
tbl.Rows.Clear()
 
Dim premier As Boolean = True
Do While dr.Read
'une ligne
Dim tr As New TableRow
'en-tete
If premier Then
premier = False
For i As Integer = 0 To dr.FieldCount - 1
Dim thc As New TableHeaderCell
thc.Text = dr.GetName(i)
tr.Cells.Add(thc)
 
Next
tr.BackColor = Drawing.Color.CadetBlue
tbl.Rows.Add(tr)
tr = New TableRow
End If
'ajoute une ligne courante
For i As Integer = 0 To dr.FieldCount - 1
Dim tc As New TableCell
tc.Text = dr(i)
tr.Cells.Add(tr)
 
Next
tbl.Rows.Add(tr)
Loop
End Sub
Private Sub Page_Load()
 
Dim myReader As SqlDataReader
Dim CommandText As String
' Connection à la base de données
 
Dim cn As New SqlConnection()
cn.ConnectionString = ConfigurationSettings.AppSettings("WTS_ExtraSQL")
cn.Open()
' Récupération des infos de l'agent
CommandText = "SELECT * FROM wts_messagerie_interne"
Dim lblMsg As String
Dim Ins1 As New SqlCommand(CommandText, cn)
Try
Dim j As Integer = Ins1.ExecuteNonQuery()
Response.Redirect("accueil_societe.aspx")
Catch ex As Exception
lblMsg = "erreur lors de l'ajout"
 
Ins1 = Nothing
cn.Close()
 
'remplissage tableua
rempliTableau( dr As SqlDataReader, ByVal tbl As Table)
dr.(close)
Catch ex As Exception
Finally
If Not cn Is Nothing AndAlso cn.State = ConnectionState.Open Then
cn.Close()
cn = Nothing
End If
End Try
End Sub
</script>  
 
<html>.......<html>

il me dit cash n'est jamais atteint!!!!