Discussion :

[camelia99]

Bonjour,
Je voudrais programmer (en VB.NET) des boutons Ajouter /Modifier/Supprimer d'une DataGridView qui a comme source une base de données Acces.
Pouvez vous me donner quelques pistes afin que je puisse réaliser cela ?
Merci

[CLeBeR]

Je n'ai jamais programmé avec cet objet mais peut être ça à première vu pourrait t'aider ?

[camelia99]

Salut
C'est intéressant, les boutons apparaissent une fois qu'on fait glisser la base de données sur l'environnement du travail, Mais en cliquent sur les boutons ( enregistrer , ajouter et supprimer ) aucun code n’apparaît alors que j'en ai vraiment besoin !!

[monsof]

Bonjour
Tu n'as pas besoin de ces 3 boutons, un seul bouton Enregistrer suffit et tu ajoute, modifie et supprime comme dans un fichier Excel.

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
Imports System.Data
Imports System.Data.OleDb
 
Public Class Form1
  Dim sConnexion As String 'ta chaine de connexion
  Dim ConnexionOLE As OleDbConnection = New OleDbConnection() 'declaration objet connexion
  Dim da As OleDbDataAdapter 'declaration dataadapter
  Dim ds As DataSet 'declaration dataset
  Dim dv As DataView 'declaration dataview
  Dim cb As OleDbCommandBuilder 'pour MAJ: insert, update, delete
 
 
  Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    sConnexion = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=chemain_d_acces_de_ta_base\TaBase.mdb"
    ConnexionOLE.ConnectionString = sConnexion
    ConnexionOLE.Open()
    da = New OleDbDataAdapter("SELECT * FROM ta_table", ConnexionOLE)
    ConnexionOLE.Close()
    ds = New DataSet()
    da.Fill(ds, "ta_table")
    dv = ds.Tables("ta_table").DefaultView
    DataGridView1.DataSource = dv
 
  End Sub
 
  Private Sub btnMAJ_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMAJ.Click
    'ce petit code permet la mise à jour : insert, update, delete
    cb = New OleDbCommandBuilder(da)
    da.Update(ds, "ta_table")
  End Sub
End Class