Discussion :

[medmeh]

voila je suis débutant en vb .
Je développe une application . Je gère bien la récupération de données de ma base Access vers mes composant windows.forms
MAIS j'ai pas d'idée comment exécuter des requête pour faire la mise a jour de ma base de donnée (Insert Into , Update ... )


Qui peut m'aider svp ? ou par un exemple simple d'ajout d'enregistrement d'un formulaire vb vers ma base access

[leeloo95]

Je te conseil de regarder dans les tutaux, tu trouvera ton bonheur.

Je te propose quand même des exemples :

Update :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
opendb()
            Dim req2 As OleDb.OleDbCommand = connexion.CreateCommand()
            req2.CommandText = "Update DEMANDE  set com_transport = '" & txt_commentaire.Text & "' " & _
            "where num_demande = " & Label2.Text & ""
            Dim monadaptater As New OleDb.OleDbDataAdapter(req2)
            monadaptater.UpdateCommand = req2
            monadaptater.UpdateCommand.ExecuteNonQuery()
            closedb()
            MsgBox("mise à jour ")

Insert :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
' MAJ statut course : table ASSOCIER COURSE
            execute_requete("Select * from ASSOCIER_COURSE", "ASSOCIER_COURSE")
            ObjetDataRow = ObjetDataSet.Tables("ASSOCIER_COURSE").NewRow
            ObjetDataRow("Num_Statut_course") = 1
            ObjetDataRow("Num_demande") = cb_demande.Text
            ObjetDataRow("Num_course") = label_code_course.Text
            ObjetDataRow("Date_associer_course") = date_heure_demande_var
            ObjetDataSet.Tables("ASSOCIER_COURSE").Rows.Add(ObjetDataRow)
            ObjetCommandBuilder = New OleDb.OleDbCommandBuilder(ObjetDataAdapter)
            ObjetDataAdapter.Update(ObjetDataSet, "ASSOCIER_COURSE")
            ObjetDataSet.Clear()
            ObjetDataAdapter.Fill(ObjetDataSet, "ASSOCIER_COURSE")
            ' Fin MAJ statut course : table ASSOCIER COURSE

Delete :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
' on supprime la ligne au statut 3
                opendb()
                Dim req3 As OleDb.OleDbCommand = connexion.CreateCommand()
                req3.CommandText = "Delete * from ASSOCIER_COURSE " & _
                "where Num_demande = '" & Label3.Text & "' " & _
                "and Num_course = '" & Label2.Text & "' " & _
                "and Num_statut_course = '2'"
                Dim monadaptater3 As New OleDb.OleDbDataAdapter(req3)
                monadaptater3.DeleteCommand = req3
                monadaptater3.DeleteCommand.ExecuteNonQuery()
                closedb()
                ' Fin on supprime la ligne au statut 3

Un copier coller ne marchera, mais tu as une idée de la synthaxe générale ^^

[medmeh]

oui c'est tout a fait ce que je cherchais ...
Merci