Actualiser données dans bdd via datagrid

Version imprimable

Bonjour,

J'ai créé un dataset qui est rempli via une requête SQL qui porte sur deux tables. C'est là qu'est mon souci. Je m'explique, j'ai un datagrid qui charge les données stockées dans mon dataset. Mon but est qu'un utilisateur puisse modifier les données dans la datagrid et que cela actualise la bdd (base Access pour info), mais ça ne le fait pas à cause de cette erreur : "La génération SQL dynamique n'est pas prise en charge pour plusieurs tables de base"

Mon code :

Code:

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
 
Dim Connexion As New System.Data.OleDb.OleDbConnection()
 
    'Création du DataSet qui est le reflet exact de la bdd Access
    Dim DataSet As New DataSet
 
    'L'objet DataAdapter qui fait l'intermédiaire entre la BDD et le DataSet.
    Dim DataSetAdaptateur As New OleDbDataAdapter("SELECT Article.Libellé_Article, Article.Code_Article, Article.Stock_réel, Article.Stock_mini, Article.Date_Peremp, Article.Quantite_sortie, Lot.Date_Peremption, Lot.Lieu_stockage, Lot.Fournisseur, Lot.Date_Reception, Lot.Quantite_sortie FROM Article INNER JOIN Lot ON Article.Num_Article = Lot.Numéro_Article", Connexion)
 
    'Déclaration d'un OleDbCommandBuilder qui permettra la modification des données dans le DataGrid et son initialisation (sinon pas d'update)
    Dim ObjetCB As OleDbCommandBuilder = New OleDbCommandBuilder(DataSetAdaptateur)
 
    'Affichage des données dans le DataGridView
    Private Sub creation_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
        Try
            Connexion.ConnectionString = "Provider = Microsoft.ACE.OLEDB.12.0 ; Data Source=C:\...\Base.accdb ; Persist Security Info=False;"
            Connexion.Open()
 
            DataSetAdaptateur.Fill(DataSet, "DataTableCreation")
 
            'Liaison du DataSet contenant les données de la BDD avec le DataGrid via la propriété DataSource de ce dernier.
            DG_DataGrid.DataSource = DataSet.Tables("DataTableCreation")
 
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
 
        Connexion.Close()
 
    End Sub
 
    'Modif des données lorsque le user clique sur le bouton
    Private Sub Bt_enregistrement_Click(sender As Object, e As EventArgs) Handles Bt_enregistrement.Click
 
        Dim reponse As MsgBoxResult
 
        reponse = MsgBox("êtes vous sur ?", 4161, "Confirmation d'enregistrement")
 
        If reponse = 1 Then
 
            DataSetAdaptateur.UpdateCommand = ObjetCB.GetUpdateCommand()
 
            Try
                       DataSetAdaptateur.Update(DataSet, "DataTableCreation")
            Catch ex As Exception
                       MessageBox.Show(ex.Message)
            End Try
 
        Else
 
            'On quitte l'appli sans enregistrer
 
        End If
 
    End Sub

Je ne vois pas comment faire, même en transformant la requête en une vue dans Access, j'ai la même erreur.
J'ai lu que dans le cas d'une requête faisant appel à plusieurs tables, il fallait se passer du commandBuilder ; je veux bien mais comment faire pour passer les update manuellement ?

Merci d'avance à ceux qui m'aideront.

07/04/2016, 09h16
mactwist69

J'ai tapé ça dans Google :

"La génération SQL dynamique n'est pas prise en charge pour plusieurs tables de base"

Premier lien :

http://www.developpez.net/forums/d89...ne-retourne-p/
07/04/2016, 16h16
rocketter

J'ai fait la même recherche, d'où ma phrase : "J'ai lu que dans le cas d'une requête faisant appel à plusieurs tables, il fallait se passer du commandBuilder ; je veux bien mais comment faire pour passer les update manuellement ?"

Mais depuis je me suis débrouillé et j'ai réussi. Merci quand même ...
07/04/2016, 17h12
mactwist69

Le dernier message du Post dis pourtant :

"La solution la plus "simple" est de créer toi même la commande Update du DataAdapter. Il faut juste faire une requête UPDATE avec des paramètres pour chaque valeur, en définissant la propriété SourceColumn de chaque paramètre. De cette façon le DataAdapter ira chercher les valeurs des paramètres dans les colonne correspondantes de la DataTable"

Et si tu as résolus, ça aurait été sympa de mettre comment, pour les autres utilisateurs du Forum qui cherchent des réponses, comme toi

Oui mais je ne voyais pas comment écrire le code quand même, quelles méthodes appelées ensuite, quelles propriétés utiliser ... Ca restait une indication assez vague pour moi. Voilà pk j'ai posté ici, en espérant avoir une aide plus précise, je ne suis pas un pro de vb.net ...

J'm'en suis tiré avec ceci :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Dim Connexion As New System.Data.OleDb.OleDbConnection() Dim DataSet As New DataSet Dim DataSetAdaptateur As New OleDbDataAdapter("SELECT Article.Libellé_Article, Article.Code_Article, Article.Stock_réel, Article.Stock_mini, Article.Date_Peremp, Article.Quantite_sortie, Lot.Date_Peremption, Lot.Lieu_stockage, Lot.Fournisseur, Lot.Date_Reception, Lot.Quantite_sortie FROM Article INNER JOIN Lot ON Article.Num_Article = Lot.Numéro_Article", Connexion) - Update des données Update = New OleDbCommand("UPDATE Article SET Article.Stock_réel = @Stock WHERE (((Article.Code_Article)='BMAMP1'))", Connexion) Update.Parameters.AddWithValue("@Stock", DG_DataGrid.CurrentCell.Value) DataSetAdaptateur.UpdateCommand = Update DataSetAdaptateur.Update(DataSet, "DataTableCreation")
Et je me suis aperçu que le code d'update fonctionne également sans cette ligne :

Code:

Update.Parameters.AddWithValue("@Stock", DG_DataGrid.CurrentCell.Value)

Du coup je me demandais dans quelle situation peut-on utiliser Parameters.AddWithValue ? Dans le cas d'une requête qui demande beaucoup de paramètres ? Et quelle est cette syntaxe avec @ ? Tableau associatif ?