Discussion :

[pbauquel]

Bonjour,

Ma table "Panier" ne se met pas à jour
Il n' y a pas de message d'erreur

Pouvez vous m'indiquer ce qui ne va pas?
Merci à tous

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
 
 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
 
        Dim strSQL1 As String
        Dim cn As New OleDbConnection()
 
        cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\bd1.mdb"
        strSQL1 = "SELECT * FROM Panier"
        Dim bb As New OleDbDataAdapter(strSQL1, cn)
 
        Dim aaa As OleDbCommand = cn.CreateCommand()
 
        aaa.CommandText = "UPDATE Panier SET Calories = 100"
        cn.Open()
        aaa.ExecuteNonQuery()
        cn.Close()
 
 
        bb.Update(Bd1DataSet.Tables("Panier"))
    End Sub

[Louis-Guillaume Morand]

pourquoi deux updates de suite?

aaa.CommandText = "UPDATE Panier SET Calories = 100"
cn.Open()
aaa.ExecuteNonQuery()
cn.Close()


bb.Update(Bd1DataSet.Tables("Panier"))

si tu mets un breakpoint avant la dernière ligne, es-tu que ton calories=100 n'est pas appliqué en base?


et surtout, pourquoi tu fermes ta connextion cn alors que tu utilises ton dataadapteur derrière?


et enfin, pourquoi n'utilises-tu pas le mot clé using pour ton objet connexion??

[pbauquel]

j' ai supprimé les lignes inutiles

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
 
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
 
        Dim strSQL1 As String
        Dim cn As New OleDbConnection()
 
        cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\bd1.mdb"
        strSQL1 = "SELECT * FROM Panier"
        Dim bb As New OleDbDataAdapter(strSQL1, cn)
 
        Dim aaa As OleDbCommand = cn.CreateCommand()
 
        aaa.CommandText = "UPDATE Panier SET Calories = 100"
 
        cn.Open()
        aaa.ExecuteNonQuery()
        cn.Close()
 
    End Sub

Ma base n' est pas mise à jour

[tomlev]

Comment tu vérifies qu'elle n'est pas mise à jour ? si tu mets un SELECT juste derrière, tu ne récupères pas la bonne valeur ?

A mon avis la mise à jour est bien faite, mais la base de données est écrasée à l'exécution suivante...
cf. ce post :
http://www.developpez.net/forums/d70...e/#post4101637

Sinon, j'ai l'impression que tu te mélanges un peu les pinceaux avec les DataAdapter... ça ne sert à rien d'en créer un si tu fais la requête UPDATE manuellement. Ce serait utile pour reporter sur la base les données que tu as modifiées dans le DataSet