Modifier toutes les lignes d'un champ [Résolu]

Signaler
Messages postés
710
Date d'inscription
jeudi 20 février 2003
Statut
Membre
Dernière intervention
19 mai 2015
-
Messages postés
710
Date d'inscription
jeudi 20 février 2003
Statut
Membre
Dernière intervention
19 mai 2015
-
bonjour
VB 2008,base access
j'ai se code pour faire une modif dans ma base
mais comment faire pour modifier toutes le champ complet d'un coup

Dim rs AsNew OLEDB.Recordset()
' Ouverture et remplissage du recordset
rs.Open("SELECT * FROM centre_aéré", DBase)
' Modification
rs.Fields("PR") = txbPrixR‚el.Text
rs.Update()
' Passe … l'enregistrement suivant.
rs.MoveNext()
merci

petchy

6 réponses

Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
68
Dim oCmd as New DbCommand
oCmd.Connection = DBase
oCmd.CommandText = "UPDATE ..."
oCmd.ExecuteNonQuery()


enfin, un truc du genre
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
68
pas utile de rappatrier tous les champs, comme tu le fait... selectionne que PR, c'est moins couteux.

mais là, pas besoin de recordset

SQL:

"UPDATE ``centre_aéré` SET `PR` = '" & txbPrixRéel.Text & "'"
Messages postés
710
Date d'inscription
jeudi 20 février 2003
Statut
Membre
Dernière intervention
19 mai 2015
3
Re
merci pour ta réponse mais je ne sait pas comment placer se code
petchy
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
68
DBase.Execute "UPDATE ......"
Messages postés
710
Date d'inscription
jeudi 20 février 2003
Statut
Membre
Dernière intervention
19 mai 2015
3
Re
j'ai une erreur sur la syntaxe "execute"
voila le message
Erreur 3 'Execute' n'est pas un membre de 'System.Data.OleDb.OleDbConnection'. F:\Centre_Aéré.net\Gestion Centre_Aéré\Gestion Centre_Aéré\interface\frmExcel.vb 254 9 Gestion Centre_Aéré
Messages postés
710
Date d'inscription
jeudi 20 février 2003
Statut
Membre
Dernière intervention
19 mai 2015
3
salut
merci,c'est nickel
Dim

oCmd AsNew OleDbCommand
oCmd.Connection = DBaseoCmd.CommandText "UPDATE centre_a‚r‚ SET PR '" & txbPrixR‚el.Text & "'"
oCmd.ExecuteNonQuery()
@plus
petchy