Discussion :

[loverdev]

Est ce que quelqu'un peux m'aider car je veux mettre à jour une table en appuyant sur un bouton mais je ne sait pas comment coder ca?

[SaumonAgile]

Tu devrais donner encore moins de détails... Et puis tu as raison de ne dire ni "bonjour", ni "merci", ça nous donnera encore plus envie de ne pas te répondre...

[loverdev]

Désolé, tu as raison .
Salut à tous le monde, j'ai besoin d'aide concernant la mise à jour d'une table.
J'ai une base de données Access qui contient des tables. j'ai une forms de modification d'un enregistrement d'une table. Quand je clique sur un bouton "Modifier", je veux qu'il met à jour les données de cet enregistrement qui a été sélectionné précédemment (je sélectionne l'enregistrement voulu en déroulant un combo box. En choisissant l'enregistrement, les données s'affichent dans des text box). Comment faire (codage)?

[SaumonAgile]

Utilise une requête SQL de type "UPDATE ..."

[loverdev]

est ce que tu peux me l'expliquer d'avantages?

[SaumonAgile]

http://dotnet.developpez.com/cours/#a_db

[loverdev]

Je veux comprendre qu'elle est la différence entre un dataset, un bindingsource et une tableadapter?

[SaumonAgile]

http://dotnet.developpez.com/tutoriels/ado2/

[loverdev]

Est ce que quelqu'un peux me corriger ce code car ca ne marche pas ?

Code :

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

1
2
3
4
5
6
7
8
 
MarcheTableAdapter.Insert = New OleDbCommand("insert into Marche (Num_marche, Lib_marche, Montant_marche) values (@nummarche, @libmarche, @montantmarche)")
        MarcheTableAdapter.Insertcommand.parameters.add("@nummarche", OleDbType.VarChar, 50, "Num_marche")
        MarcheTableAdapter.Insertcommand.parameters.add("@libmarche", OleDbType.VarChar, 255, "Lib_marche")
        MarcheTableAdapter.insertcommand.parameters.add("@montantmarche", OleDbType.Currency, "Montant_marche")
        MarcheTableAdapter.Update(MarchesDataSet, "Marche")
        MarchesDataSet.Clear()
        MarcheTableAdapter.Fill(MarchesDataSet, "Marche")

[SaumonAgile]

Pour la 100e fois, ça ne sert à rien de poster ton code et dire "ça marche pas" ou "mon code il est cassé". Donne nous le message d'erreur complet, on ne va pas le deviner.

[tomlev]

Je crois que tu as oublié d'indiquer des valeurs pour les paramètres...

[loverdev]

Les msg d'erreurs sont :
1/ Argument non spécifié pour le paramètre 'Lib_marche' de 'Public Overridable Overloads Function Insert (Num_marche As String, Lib_marche As String, Montant_marche As System.Nullable (of Decimal) As Interger.
Même msg d'erreur pour le paramètre 'Montant_marche'.
2/ "Insertcommand" n'est pas un membre de 'Budget.MarcheDataSet TableAdapters.MarcheTableAdapter'.
3/ La résolution de surcharge a échoué, car aucun 'Update' accessible n'accepte ce nombre d'arguments.
4/ Une valeur de type 'Budget.MarchesDataSet' ne peut être convertie en 'Budget.MarchesDataSet.MarcheDataTable'.
5/ Arguments trop nombreux pour 'Public Overridable Overloads Function Fill (dataTable As MarchesDataSet.MarcheDataTables) As Interger.

[SaumonAgile]

Regarde dans l'aide MSDN, il y a toutes les réponses à tes questions. Tu te positionnes sur le message d'erreur dans l'éditeur de code, et tu appuies sur F1.

[loverdev]

Qu'est ce que vous voulez dire par indiquer des valeurs pour les paramètres ?

[loverdev]

J'ai essayé ceci mais il n'y a pas eu de modifications au niveau de la base de données.

Code :

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

1
2
3
4
5
6
7
8
9
 
Try
            Me.Validate()
            Me.MarcheBindingSource.EndEdit()
            Me.MarcheTableAdapter.Update(Me.MarchesDataSet.Marche)
            MsgBox("Mise à jour effectuée avec succès")
        Catch ex As Exception
            MsgBox("Erreur de mise à jour")
        End Try

[loverdev]

Est ce que quelqu'un peux m'aider SVP?

[loverdev]

J'ai même essayé ceci mais ça ne marche pas et je ne sais pas c'est dû a quoi

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Try
            sql = "select * from Marche where Num_marche ='" & Cbxnumm.Text & "'"
            If (Txtnumm.Text = "") Or (Txtlibm.Text = "") Or (Txtmontantm.Text = "") Then
                MsgBox("Vous devez saisir des valeurs non nulles", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly)
                Exit Sub
            End If
            Me.Validate()
            Me.MarcheBindingSource.EndEdit()
            Me.MarcheTableAdapter.Update(Me.MarchesDataSet.Marche)
            MsgBox("Mise à jour effectuée avec succès")
        Catch ex As Exception
            MsgBox("Erreur de mise à jour")
        End Try