Salut tout le monde
je suis entrain d'essayer de remplir ma base de données SQL server a partir d'un formulaire VB.net. J'ai cru que tout va bien avec mon code mais qu'on je consulte ma base je ne trouve aucun changement .
Voila le code que j'utilise, qu'est ce qui cloche ?

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
Dim strsql As String = "Select * from demandeur"
        Dim strConnexion As String = "Data Source=localhost; Integrated Security=SSPI;" + "Initial Catalog=Northwind"
        Dim x As Exception
        Try
            Dim oConnection As New SqlConnection(strConnexion)
            oConnection.Open()
            Dim ObjetDA As New SqlDataAdapter(strsql, oConnection)
            ObjetDA.Fill(Parc_municipalDataSet1, "demandeur")
            Dim DR As DataRow
            DR = Parc_municipalDataSet1.Tables("demandeur").NewRow
            DR("titre") = TextBox3.Text
            DR("nom_prenom_dem") = TextBox1.Text
            Parc_municipalDataSet1.Tables("demandeur").Rows.Add(DR)
            ObjetDA.Update(Parc_municipalDataSet1, "demandeur")
            Parc_municipalDataSet1.Clear()
            ObjetDA.Fill(Parc_municipalDataSet1, "demandeur")
            oConnection.Close()
 
 
        Catch x
            Console.WriteLine(("L'erreur suivante a été rencontrée :" + x.Message))
        End Try
Merci bien cordialement.