OVH Cloud OVH Cloud

conflit code avec tree view

1 réponse
Avatar
phil
Bonjour

j'ai un soucis :=20
dans une appli access 2000 j'ai du code qui attauqe=20
directement des table avec :=20
Dim rs As Recordset
Set db =3D Application.CurrentDb
Set rs =3D db.OpenRecordset("Tempo", dbOpenDynaset)

et un tree view qui utilise plustot des trucs genre=20
Set CN =3D CurrentProject.Connection
Set rst =3D New ADODB.Recordset
rst.Open (NvlSource), CN, adOpenForwardOnly

et il y a problem, au niveau des reference, j'ai des=20
soucis d'ordre des dll et ocx , par exemple la commande=20
re.edit n'est pas reconnue alors que rs.addnew passe,=20

mais plus g=E9naralement, le code "classique" ne s'execute=20
pas, il y a arret l=E0 : Set rs =3D db.OpenRecordset("Tempo",=20
dbOpenDynaset)


bref, j'ai l'impression que je peux pas utiliser les deux=20
type de connexions....

je fais quoi?

merci d'avance=20

philippe

1 réponse

Avatar
Raymond [mvp]
Bonjour.

c'est un problème d'organisation des références.

1- place tes références DAO avant celles de ADO, en utilisant les flèches
monter/descendre.
2- modifie tes instructions DAO Dim comme ceci:
Database ==> Dim Db As DAO.DataBase
Recordset ==> Dim Rs As DAO.RecordSet

et tout doit rentrer dans l'ordre.
--
@+
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


"phil" a écrit dans le message de
news:8bb501c4964c$c6631680$
Bonjour

j'ai un soucis :
dans une appli access 2000 j'ai du code qui attauqe
directement des table avec :
Dim rs As Recordset
Set db = Application.CurrentDb
Set rs = db.OpenRecordset("Tempo", dbOpenDynaset)

et un tree view qui utilise plustot des trucs genre
Set CN = CurrentProject.Connection
Set rst = New ADODB.Recordset
rst.Open (NvlSource), CN, adOpenForwardOnly

et il y a problem, au niveau des reference, j'ai des
soucis d'ordre des dll et ocx , par exemple la commande
re.edit n'est pas reconnue alors que rs.addnew passe,

mais plus génaralement, le code "classique" ne s'execute
pas, il y a arret là : Set rs = db.OpenRecordset("Tempo",
dbOpenDynaset)


bref, j'ai l'impression que je peux pas utiliser les deux
type de connexions....

je fais quoi?

merci d'avance

philippe