Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access transformer DAO en ADO

transformer DAO en ADO

5 réponses
Avatar
G Roydor
Bonjour,
Comment utiliser ADO au lieu de DAO dans le script ci-dessous ?

Dim Rqt As DAO.QueryDef
Dim Rec As DAO.Recordset
Set Rqt = CurrentDb.QueryDefs("test11")

Merci
GR
Signaler un problème avec ce contenu

5 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
3stone
Salut,

"G Roydor"
Comment utiliser ADO au lieu de DAO dans le script ci-dessous ?

Dim Rqt As DAO.QueryDef
Dim Rec As DAO.Recordset
Set Rqt = CurrentDb.QueryDefs("test11")




Regarde ceci pour t'aider...

http://mypage.bluewin.ch/w.stucki/MigrationADO.htm



--
A+
Pierre (3stone) Access MVP
-----------------------------
http://users.skynet.be/mpfa
-----------------------------

Avatar
Roland Godde
Une possibilité

Dim rst as ADODB.Recordset
rst.open "test11",CurrentProject.Connection,adOpenKeyset

Nombreuses possibilités au niveau des curseurs et des verouillages...

Ne te fies pas à la page signalée par 3stone, visiblement écrite par
quelqu'un maitrisant peu ADO. S'il est vrai que dans certains cas DAO est
(encore) un peu plus performant, ADO est beaucoup plus puissant, et c'est
l'avenir..


"G Roydor" a écrit dans le message de
news:
Bonjour,
Comment utiliser ADO au lieu de DAO dans le script ci-dessous ?

Dim Rqt As DAO.QueryDef
Dim Rec As DAO.Recordset
Set Rqt = CurrentDb.QueryDefs("test11")

Merci
GR



Avatar
Sylvain Lafontaine
ADO n'est déjà plus vraiment l'avenir, ayant été remplacée par ADO.NET,
n'étant plus vendue et qui ne sera plus supportée (dans le sens plus de
nouveau développement) bientôt par Microsoft.

S. L.

"Roland Godde" wrote in message
news:41605122$0$94$
Une possibilité

Dim rst as ADODB.Recordset
rst.open "test11",CurrentProject.Connection,adOpenKeyset

Nombreuses possibilités au niveau des curseurs et des verouillages...

Ne te fies pas à la page signalée par 3stone, visiblement écrite par
quelqu'un maitrisant peu ADO. S'il est vrai que dans certains cas DAO est
(encore) un peu plus performant, ADO est beaucoup plus puissant, et c'est
l'avenir..


"G Roydor" a écrit dans le message de
news:
Bonjour,
Comment utiliser ADO au lieu de DAO dans le script ci-dessous ?

Dim Rqt As DAO.QueryDef
Dim Rec As DAO.Recordset
Set Rqt = CurrentDb.QueryDefs("test11")

Merci
GR







Avatar
News Groups
Un petit bémol quant aux "..Nombreuses possibilités au niveau des curseurs
et des verouillages..."
Cf. le post "Recordset en lecture seule sur projet ADP"

Thierry.

"Roland Godde" a écrit dans le message de
news: 41605122$0$94$
Une possibilité

Dim rst as ADODB.Recordset
rst.open "test11",CurrentProject.Connection,adOpenKeyset

Nombreuses possibilités au niveau des curseurs et des verouillages...

Ne te fies pas à la page signalée par 3stone, visiblement écrite par
quelqu'un maitrisant peu ADO. S'il est vrai que dans certains cas DAO est
(encore) un peu plus performant, ADO est beaucoup plus puissant, et c'est
l'avenir..


"G Roydor" a écrit dans le message de
news:
Bonjour,
Comment utiliser ADO au lieu de DAO dans le script ci-dessous ?

Dim Rqt As DAO.QueryDef
Dim Rec As DAO.Recordset
Set Rqt = CurrentDb.QueryDefs("test11")

Merci
GR







Avatar
G Roydor
Bonjour,

avec le remplacement ci dessous le code ne fonctionne pas

erreur sur test11 (requete)

********* ADO *************
Dim Rs As ADODB.Recordset
Rs.Open "test11", CurrentProject.Connection, adOpenKeyset, adLockOptimistic


************ DAO ****************
' Dim Rqt As DAO.QueryDef
' Dim Rs As DAO.Recordset
' Set Rqt = CurrentDb.QueryDefs("test11")
' Rqt.Parameters("fournisseur") = Me.no_four
' Rqt.Parameters("produit") = Me.no_prod
' Set Rs = Rqt.OpenRecordset

merci pour votre contribution
GR