VB2005 -- Ajouter enregistrements dans une table

Question

Bonjour,

    je dois ajouter un enregistrement dans une table.  Le hic c'est que tout se passe bien (pas d'erreur) mais l'ajout ne se fait pas dans la table. Ma table est dans une BD Sql 2005 express. Je suis &#224; ma premi&#232;re tentative de passer &#224; .net.  J'ai programm&#233; en vb6 depuis les d&#233;buts de vb6. Le code ci-dessous se fait sur l'evenement click d'un bouton:

        '/*** D&#233;finition de la connexion
        Dim ObjConn As SqlConnection = New _
        SqlConnection(My.Settings.HectorConnectionString)
        '/*** D&#233;finition de la commande insert et select.
        Dim ObjCmdInsert As SqlCommand = New SqlCommand("insert " & _
        "into seniors(nom,prenom,actif) values (" & _
        TxtNom.Text & "," & TxtPrenom.Text & "," & ChkActif.Checked & ")")

        Dim ObjCmdSelect As SqlCommand = New SqlCommand("select * from seniors")

        '/*** D&#233;finition de mon Dataadapter
        Dim objDataAdapter As SqlDataAdapter = New SqlDataAdapter()
        '/*** D&#233;finition du dataset
        Dim objDataSet As DataSet = New DataSet()

        '/*** Ouvre la connexion et initialise les connexions pour  la commande d'insertion et de selection
        ObjConn.Open()
        ObjCmdInsert.Connection = ObjConn
        ObjCmdSelect.Connection = ObjConn

        '/*** Set le selectcommand du dataadapter &#224; ma requete select
        objDataAdapter.SelectCommand = ObjCmdSelect
        '/*** Rempli le dataadapter
        objDataAdapter.Fill(objDataSet)

        '/*** Met &#224; jour les infos
        objDataAdapter.InsertCommand = ObjCmdInsert
        objDataAdapter.Update(objDataSet)

        ObjConn.Close()



Donc, je ne reussi pas a ajouter le contenu de TxtNom, TxtPrenom et chkActif dans ma table Seniors.

Merci de votre aide.

Dracdlog · Answer

Salut, alors moi je suis un d&#233;butant de chez d&#233;but dans .NET tiens je te file un code que j'ai fais et qui met a jour dans la base les champs que toi veux. J'esp&#232;re que &#231;&#224; va t'aider un peu.

'Try



' Dim row As DataRow = Me.objDataSet.Senior.NewRow

' row.Item("Nom") = Me.txt.Nom.text

' row.Item("Pr&#233;nom") = Me.txtprenom.text

' row.Item("Actif") = Me.txtactif.text

 Me.objDataSet.Senoir.AddSeniorRow(row)

' Me.OleDbDataAdapter.Update(Me.objDataSet, "Senior")

 Me.objDataSet.AcceptChanges()

'Catch err As Exception

' Me.lbl_err.Text = err.Message

'End Try

VB2005 -- Ajouter enregistrements dans une table

1 réponse

Discussions similaires