Bonjour,
j'essaye d'insérer une donnée dans la table TERME de la base de données THESAURUS mais en vain; j'ai essayé de tester ma connexion, mais je ne vois rien écrit au niveau de la console; pourriez vous me dire ce que vous pensez du problème et essayer de maaider à le résoudre.
Bien cordialement.
Nathalie Harbonne
Voici le code implémenté :
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
47
48 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 SQLConn As SqlConnection = New SqlConnection() SQLConn.ConnectionString = "Data Source = localhost; Initial Catalog=THESAURUS ; User Id=""; Password=""; integrated security=SSPI" Dim sSQLINSERT_Desc As String = "INSERT into TERME(Lib_TERME) VALUES ('economie')" Dim myCommand1 As New SqlCommand(sSQLINSERT_Desc) Try myCommand1.Connection = SQLConn SQLConn.Open() Catch ex As Exception Console.WriteLine("connexion échouée") End Try Try myCommand1.ExecuteNonQuery() label_insert_D.Text = "Le descripteur a bien été ajouté" Catch ex As Exception label_insert_D.Text = ex.Message End Try SQLConn.Dispose() End Sub End Class
Partager