[vb.net][aspx]Pb d'insertion dans une BDD

Question

curieuse_asp

Bonjour, 

J'ai cr&#233;e une requ&#234;te param&#233;tr&#233;e pour ins&#233;rer des donn&#233;es dans une table TERME de la base de donn&#233;es THESAURUS. 
Or je ne vois aucune insertion se produire: 

-Serait ce un probl&#232;me de connexion &#224; la BDD?J'ai repris ce que j'ai trouv&#233; sur le site connctionstrings.com et cela a bien fonctionn&#233; pour une autre interface. 
-Serait ce un probl&#232;me au niveau de la requ&#234;te param&#233;tr&#233;e ? 

Si vous pouviez regarder mon code et essayer de voir ce qui ne va pas, ce serait tr&#232;s gentil &#224; vous. 

Merci. 
Cordialement. 


Code:
,
----

Imports System.Data.OleDb
Imports System.Data.SqlClient
Imports System.Data

Public Class textbox_insertion_descripteur
Inherits System.Web.UI.Page
Protected WithEvents btn_insertion_Descripteur As System.Web.UI.WebControls.Button
Protected WithEvents btn_insertion_NonDescripteur As System.Web.UI.WebControls.Button
Protected WithEvents TextBox2 As System.Web.UI.WebControls.TextBox
Protected WithEvents TextBox1 As System.Web.UI.WebControls.TextBox
Protected WithEvents label_insert_D As System.Web.UI.WebControls.Label
Protected WithEvents label_insert_ND As System.Web.UI.WebControls.Label
Protected WithEvents label_insert_TeteCartouche As System.Web.UI.WebControls.Label
Protected WithEvents btn_insert_Descripteur As System.Web.UI.WebControls.Button
Protected WithEvents btn_insert_NonDescripteur As System.Web.UI.WebControls.Button
Protected WithEvents TextBox3 As System.Web.UI.WebControls.TextBox
Protected WithEvents btn_insert_TeteCartouche As System.Web.UI.WebControls.Button
Protected WithEvents ListBox1 As System.Web.UI.WebControls.ListBox

Sub btn_insertion_Descripteur_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_insertion_Descripteur.Click
Dim sConnString As String "Data Source localhost; Initial Catalog=THESAURUS ; User Id = ""; Password=""; integrated security=SSPI"
Dim sSQLINSERT_Desc As String
Dim mycommand As SqlCommand
Dim maConnexionSQL As SqlConnection
maConnexionSQL = New SqlConnection(sConnString)
'requ&#234;te insertion dans la table TERME
sSQLINSERT_Desc = "INSERT INTO TERME([Lib_TERME], [EM])VALUES (@Lib_TERME, @EM)"
'cr&#233;ation de la commande SQL
mycommand = New SqlCommand(sSQLINSERT_Desc, maConnexionSQL)
'Cr&#233;ation et d&#233;claration des param&#232;tres
With mycommand.Parameters
.Add(New SqlParameter("Lib_TERME", SqlDbType.VarChar, 500))
.Add(New SqlParameter("EM", SqlDbType.NVarChar, 500))

End With
'Attribution des valeurs aux param&#232;tres
With mycommand
.Parameters("@Lib_TERME").Value = TextBox1.Text
.Parameters("@EM").Value = 0
' Execution de la requ&#234;te
Try
mycommand.Connection.Open()
mycommand.ExecuteNonQuery()
mycommand.Connection.Close()
label_insert_D.Text = "le descripteur a bien &#233;t&#233; ajout&#233;"
Catch ex As SqlException
Response.Write(ex.Message)
End Try

End With

End Sub
End Class

polz · Answer

Hello,


J'ai lu ton code et il y peut-etre deux sources d'erreurs :


- La premi&#232;re c'est que pour ta commande sql, tu dois sp&#233;cifier le type, si c'est une proc&#233;dure stock&#233;e ou si c'est une commande texte. Ici c'est une commande texte. Donc apr&#232;s la cr&#233;ation de l'objet SqlCommand, il faut ajouter la ligne : mycommand.CommandType = CommandType.Text

- La deuxi&#232;me c'est pour les param&#232;tres de ta requ&#234;te. Tu peux directement mettre mycommand.Parameters.Add("@lib_TERME", TextBox1.text). Sauf erreur, l'ordre des param&#232;tres joue un r&#244;le. Ensuite, le type de donn&#233;e aussi. Si ton param&#232;tres @lib_TERME est de type Integer, il faut pas oubli&#233; de convertir en int p. ex : CInt(TextBox1.text)

Je pense que l'erreur vient plutot de la premi&#232;re partie parce que la deuxi&#232;me &#224; l'air tout de meme correcte

Polz

[vb.net][aspx]Pb d'insertion dans une BDD

1 réponse

Votre réponse

Discussions similaires