Ancien code access 97 ne fonctionne pas sous access 2000
1 réponse
olivier
voici le code: c le code de connexion =E0 une base sql server
la connexion se fait via un module access
-------------------------------------
Dim bdd As DataBaseWesp As Workspace, WCnx As Connection
Dim Rq As String
Set bdd =3D CurrentDb()
Set Wesp =3D CreateWorkspace("Wesp", "info", "info",=20
dbUseODBC)
Set WCnx =3D Wesp.OpenConnection("Wcnx", , , "ODBC;DRIVER=3D
{SQL SERVER};UID=3Dsa;PWD=3Dsa;DSN=3DMQIS;SERVER=3DSVRSTATS")
---------------------------------------
Mais l'interpreteur access me r=E9pond qu'il ne connait pas=20
l'objet "Connection"
kelqu'un a une solution =E0 ce problem?
Merci d'avance.
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
André AVONS
SAlut Eternel probleme Il faut que tu coches dans les references Microsoft DAO 3.6 Et remontes le en 3 eme position
-- @+ André
Quelques liens avec des exemples, des utilitaires et des compléments pour Access http://access.seneque.free.fr/ http://www.self-access.com/ http://www.mvps.org/accessfr/ http://mypage.bluewin.ch/w.stucki/ http://access.jessy.free.fr/ "olivier" a écrit dans le message de news:077e01c34c51$d36995c0$ voici le code: c le code de connexion à une base sql server la connexion se fait via un module access ------------------------------------- Dim bdd As DataBaseWesp As Workspace, WCnx As Connection Dim Rq As String
Set bdd = CurrentDb() Set Wesp = CreateWorkspace("Wesp", "info", "info", dbUseODBC) Set WCnx = Wesp.OpenConnection("Wcnx", , , "ODBC;DRIVER {SQL SERVER};UID=sa;PWD=sa;DSN=MQIS;SERVER=SVRSTATS") --------------------------------------- Mais l'interpreteur access me répond qu'il ne connait pas l'objet "Connection" kelqu'un a une solution à ce problem? Merci d'avance.
SAlut
Eternel probleme Il faut que tu coches dans les references Microsoft DAO 3.6
Et remontes le en 3 eme position
--
@+
André
Quelques liens avec des exemples, des utilitaires et des compléments pour
Access
http://access.seneque.free.fr/
http://www.self-access.com/
http://www.mvps.org/accessfr/
http://mypage.bluewin.ch/w.stucki/
http://access.jessy.free.fr/
"olivier" <atinbop@ifrance.com> a écrit dans le message de
news:077e01c34c51$d36995c0$a601280a@phx.gbl...
voici le code: c le code de connexion à une base sql server
la connexion se fait via un module access
-------------------------------------
Dim bdd As DataBaseWesp As Workspace, WCnx As Connection
Dim Rq As String
Set bdd = CurrentDb()
Set Wesp = CreateWorkspace("Wesp", "info", "info",
dbUseODBC)
Set WCnx = Wesp.OpenConnection("Wcnx", , , "ODBC;DRIVER {SQL SERVER};UID=sa;PWD=sa;DSN=MQIS;SERVER=SVRSTATS")
---------------------------------------
Mais l'interpreteur access me répond qu'il ne connait pas
l'objet "Connection"
kelqu'un a une solution à ce problem?
Merci d'avance.
SAlut Eternel probleme Il faut que tu coches dans les references Microsoft DAO 3.6 Et remontes le en 3 eme position
-- @+ André
Quelques liens avec des exemples, des utilitaires et des compléments pour Access http://access.seneque.free.fr/ http://www.self-access.com/ http://www.mvps.org/accessfr/ http://mypage.bluewin.ch/w.stucki/ http://access.jessy.free.fr/ "olivier" a écrit dans le message de news:077e01c34c51$d36995c0$ voici le code: c le code de connexion à une base sql server la connexion se fait via un module access ------------------------------------- Dim bdd As DataBaseWesp As Workspace, WCnx As Connection Dim Rq As String
Set bdd = CurrentDb() Set Wesp = CreateWorkspace("Wesp", "info", "info", dbUseODBC) Set WCnx = Wesp.OpenConnection("Wcnx", , , "ODBC;DRIVER {SQL SERVER};UID=sa;PWD=sa;DSN=MQIS;SERVER=SVRSTATS") --------------------------------------- Mais l'interpreteur access me répond qu'il ne connait pas l'objet "Connection" kelqu'un a une solution à ce problem? Merci d'avance.