Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Visual Basic DAO + DSN

DAO + DSN

1 réponse
Avatar
Nicolas
Bonjour,

Je souhaite acc=E9der =E0 une source de donn=E9es avec la=20
m=E9thode DAO, voici mon code actuel :

Dim daoDb As DAO.Database
Dim daoRs As DAO.Recordset
Set daoDb =3D DAO.OpenDatabase("", False,=20
False, "DSN=3DTEST")
Set daoRs =3D daoDb.OpenRecordset("SELECT GL_TEXT FROM=20
F_GLOSSAIRE")
Do Until daoRs.EOF
Me.List1.AddItem daoRs("GL_TEXT")
daoRs.MoveNext
Loop
daoRs.Close
daoDb.Close

A pr=E9sent, admettons que ma source de donn=E9es soit=20
prot=E9g=E9e par un UID et un PWD, que dois-je mettre en=20
param=E8tres ?

J'ai essay=E9 avec ceci :

Set daoDb =3D DAO.OpenDatabase("", False,=20
False, "DSN=3DTEST;UID=3DUTIL;PWD=3DTOTO")

Mais =E7a ne donne rien.

Merci d'avance

Nicolas
Signaler un problème avec ce contenu

1 réponse

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
Zoury
Salut Nicolas! :O)

Essai ceci :
'***
Dim daoWs As DAO.Workspace
Dim daoDb As DAO.Database
Dim daoRs As DAO.Recordset

Set daoWs = DAO.CreateWorkspace( _
"ws", "UTIL", "TOTO", _
DAO.WorkspaceTypeEnum.dbUseODBC)

Set daoDb = daoWs.OpenDatabase( _
"db", False, False, _
"ODBC;DSN=TEST;UID=UTIL;PWD=TOTO;")

Set daoRs = daoDb.OpenRecordset( _
"SELECT GL_TEXT FROM F_GLOSSAIRE")

Do Until daoRs.EOF
Me.List1.AddItem daoRs("GL_TEXT")
daoRs.MoveNext
Loop

daoRs.Close
daoDb.Close
daoWs.Close
'***

--
Cordialement
Yanick Lefebvre - MVP pour Visual Basic
http://faq.vb.free.fr/?rubrique=0 - http://www.mvps.org/vbnet/
http://www.mentalis.org/agnet/apiguide.shtml - http://www.mztools.com/

Merci de poster les réponses au groupe afin d'en faire profiter à tous