OVH Cloud OVH Cloud

Recordset

3 réponses
Avatar
Christian
Bonjour !

Est-ce que mes commandes sont correctes pour traiter des=20
recordset ? J'ai souvent des probl=E8mes et je voulais=20
savoir si ces lignes sont correctes.

Set rs =3D dbs.OpenRecordset("Select * from ABC)
rs.AddNew
rs.Fields("DEF").Value =3D "Allo"
rs.Update
rs.Close
set rs =3D Nothing

3 réponses

Avatar
Gafish
Bonjour,

Dans le but de faire un ajout ces lignes sont correctes oui (mis à part le "
qui manque à la fin de la première ligne mais je suppose que c'est une faute
de frappe).
En revanche, suivant le type du recordset, on ne peut pas toujours modifier
ou ajouter des données, il faut voir avec les propriétés de l'openrecordset

Arnaud

"Christian" a écrit dans le message
news: 171a01c4a6f4$2a7b9630$
Bonjour !

Est-ce que mes commandes sont correctes pour traiter des
recordset ? J'ai souvent des problèmes et je voulais
savoir si ces lignes sont correctes.

Set rs = dbs.OpenRecordset("Select * from ABC)
rs.AddNew
rs.Fields("DEF").Value = "Allo"
rs.Update
rs.Close
set rs = Nothing
Avatar
Raymond [mvp]
Bonjour.

Je préfère la forme:
Dim Db As DAO.Database
Dim Rs As DAO.Recordset
Set Rs = Db.OpenRecordset("Select * from ABC")
Rs.AddNew
Rs.Fields("DEF").Value = "Allo"
Rs.Update
Rs.Close
Set Rs = Nothing
set Db=nothing

ceci étant la forme académique.

tu peux changer :
Rs.Fields("DEF").Value = "Allo"
en:
Rs.Fields("DEF") = "Allo"
ou
Rs!DEF = "Allo"
qui sont des formes plus utilisées

Ne jamais oublier le Nothing pour tous les objets.
Le Rs.Close n'est pas obligatoire s'il est suivi par le Nothing, mais par
précaution il vaut mieux faire un close dès que le recordset n'est plus
utilisé.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Christian" a écrit dans le message de
news: 171a01c4a6f4$2a7b9630$
Bonjour !

Est-ce que mes commandes sont correctes pour traiter des
recordset ? J'ai souvent des problèmes et je voulais
savoir si ces lignes sont correctes.

Set rs = dbs.OpenRecordset("Select * from ABC)
rs.AddNew
rs.Fields("DEF").Value = "Allo"
rs.Update
rs.Close
set rs = Nothing
Avatar
Christian
Merci !

-----Message d'origine-----
Bonjour.

Je préfère la forme:
Dim Db As DAO.Database
Dim Rs As DAO.Recordset
Set Rs = Db.OpenRecordset("Select * from ABC")
Rs.AddNew
Rs.Fields("DEF").Value = "Allo"
Rs.Update
Rs.Close
Set Rs = Nothing
set Db=nothing

ceci étant la forme académique.

tu peux changer :
Rs.Fields("DEF").Value = "Allo"
en:
Rs.Fields("DEF") = "Allo"
ou
Rs!DEF = "Allo"
qui sont des formes plus utilisées

Ne jamais oublier le Nothing pour tous les objets.
Le Rs.Close n'est pas obligatoire s'il est suivi par le
Nothing, mais par

précaution il vaut mieux faire un close dès que le
recordset n'est plus

utilisé.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Christian" a écrit
dans le message de

news: 171a01c4a6f4$2a7b9630$
Bonjour !

Est-ce que mes commandes sont correctes pour traiter des
recordset ? J'ai souvent des problèmes et je voulais
savoir si ces lignes sont correctes.

Set rs = dbs.OpenRecordset("Select * from ABC)
rs.AddNew
rs.Fields("DEF").Value = "Allo"
rs.Update
rs.Close
set rs = Nothing


.