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