Ajouter un enregistrement dans ma base de donnée Access

Question

Bonjour,
je suis débutant et je cherche à comprendre comment ajouter un enregistrement avec mon programme test.  La lecture ainsi que l'effacement se fait bien.  J'arrive pas à ajouter simplement un enregistrement à ma base de donnée Acces.

ma base de donnes se nomme quiz36.mdb
la table que je veux utiliser s'appelle "utilise" dans lequel il y a un seul champ qui est "questiondu"


voici mon petit programme test (c'est des parties de programme trouvé un peu partout)


Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.OleDb

Public Class Form1

    Dim nbr_qu As Integer                       ' Nombre de questions
    Dim chemin As String                        'chemin de la base de données


    'DÉCLARATION EN RAPPORT AVEC ACCESS
    Dim Max_Enregistrements As Integer          ' Nombre total d'enregistrements dans la table
    Dim nombre_ajouter as integer

    'DÉCLARATION pour BD ACCESS
    Dim bd_CO As New OleDb.OleDbConnection
    Dim bd_DA As OleDb.OleDbDataAdapter
    Dim bd_DS As New DataSet
    Dim bd_DT As New DataTable
    Dim bd_DR As DataRow
    Dim bd_CM As OleDb.OleDbCommand

    Dim bd_DC As DataColumn



    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        chemin = "D:\PROGRAMMATION\VISUAL BASIC\GATH VB	est QU\WindowsApplication1"
    End Sub

    Private Sub lecture_qu()  'LECTURE DES # de QUESTIONS DÉJÀ UTILISÉES
        bd_CO.ConnectionString = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source =" + chemin + "quiz36.mdb"
        bd_CO.Open()

        bd_DS.Clear()              'remet à zéro la lecture du dataset

        bd_DA = New OleDb.OleDbDataAdapter("SELECT * FROM utilise", bd_CO)
        bd_DA.Fill(bd_DS, "utilise")

        bd_CO.Close()
        nbr_qu = bd_DS.Tables("utilise").Rows.Count    ' Variable Max_Enregistrements contenus dans le dataset. 
    End Sub



    Private Sub ecriture_qu()

        bd_CO.ConnectionString = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source =" + chemin + "quiz36.mdb"
        bd_CO.Open()
        bd_DA = New OleDb.OleDbDataAdapter("SELECT * FROM utilise", bd_CO)
        bd_DA.Fill(bd_DS, "utilise")

        Try
            bd_DR = bd_DS.Tables("utilise").NewRow()
            'Modifier les valeurs des champs en récupérant le contenu des(TextBox)
            bd_DR("questiondu") = "12345"

            bd_DS.Tables("utilise").Rows.Add(bd_DR)

            cmdb = New OleDbCommandBuilder(bd_DA) 'Pour modifier les valeurs changées dans le DataAdapter
            bd_DA.Update(bd_DS, "utilise") 'Mise à jour

            'On vide le DataSet et on le 'recharge' de nouveau.
            bd_DS.Clear()
            bd_DA.Fill(bd_DS, "utilise")
            bd_DT = bd_DS.Tables("utilise")
            bd_CO.Close()

        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

    End Sub




    Private Sub Bouton_lecture_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bouton_lecture.Click
        Call lecture_qu()
        Label1.Text = nbr_qu
    End Sub




    Private Sub Bouton_effacetout_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bouton_effacetout.Click
        bd_CO.ConnectionString = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source =" + chemin + "quiz36.mdb"
        bd_CO.Open()
        bd_DA = New OleDb.OleDbDataAdapter("DELETE from utilise", bd_CO)
        bd_DA.Fill(bd_DS, "utilise")
        bd_CO.Close()

        Call lecture_qu()
        Label9.Text = nbr_qu
    End Sub



    Private Sub Bouton_ajouter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bouton_ajouter.Click
        nombre_ajouter = 12345
        Call ecriture_qu()
        'Call lecture_qu()
        Label5.Text = nbr_qu
    End Sub



End Class

cs_Le Pivert · Answer

Bonjour,

Regarde dans :

pour access
http://www.vbfrance.com/k-code-access.aspx

pour base de données
http://www.vbfrance.com/codes_categorie/BASE-DONNEES/17.aspx

Tu trouveras la réponse dans un de ces programmes

@+Le Pivert

Ajouter un enregistrement dans ma base de donnée Access

1 réponse

Votre réponse

Discussions similaires