Cette question fait suite =E0 une pr=E9c=E9dente qui concernait=20
le mot de passe d'une BDD contenant des tables attach=E9es.
Vous me proposiez d'ins=E9rer le code suivant:
....................................................
Set wspc =3D DBEngine.Workspaces(0)
chEntr=E9e =3D "c:\ton chemin\lenomdetabase.mdb"
Set db =3D wspc.OpenDatabase(chEntr=E9e, False, False,
";pwd=3Dtonmotdepasse")
....................................................
O=F9 dois-je placer toute portion de code ?
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
Michel Walsh
Salut,
Ma première réaction est de répondre "dans un module", mais ce n'est probablement pas dans le sens du contexte. Avec le bout de code que tu as, tu peux voir les informations de l'autre base de données via la variable db, celà implique que tu "vois" les données, mais de par l'utilisation de code. Si, de plus, la base de données autre utilise un différent workgroup (point mdw), alors tu peux utiliser le code ci-après (originalement posté par Mary Chipman):
===================== Sub OpenDBWithNewWorkgroupFile(strPathToFile As String, _ strDefaultUser As String, _ strDefaultPwd As String, _ strPathToDatabase As String) ' This function uses the unsupported PrivDBEngine object to ' open a database using a different workgroup information file ' than the one being used as the default. You might do this if ' you want to access data that is in a secured database that uses ' a different workgroup information file.
Dim dbe As PrivDBEngine Dim wrk As Workspace Dim dbs As Database
' Return a reference to a new instance of the PrivDBEngine object. Set dbe = New PrivDBEngine ' Set the SystemDB property to specify the workgroup file. dbe.SystemDB = strPathToFile dbe.DefaultUser = strDefaultUser dbe.DefaultPassword = strDefaultPwd Set wrk = dbe.Workspaces(0) ' Open the secured database. Set dbs = wrk.OpenDatabase(strPathToDatabase) End Sub =======================
Bien sûr, la variable dbs suit son "étendue" (scope), rien de nouveau ici. Si quelqu'un en a de besoin en dehors de la procedure, en faire le résultat retourné par la procédure transformée en une fonction, par exemple.
Espérant être utile. Vanderghast, Access MVP
"henri" wrote in message news:008001c3afe9$29460000$ Bonjour,
Environnement Access 2000
Cette question fait suite à une précédente qui concernait le mot de passe d'une BDD contenant des tables attachées. Vous me proposiez d'insérer le code suivant: .................................................... Set wspc = DBEngine.Workspaces(0) chEntrée = "c:ton cheminlenomdetabase.mdb" Set db = wspc.OpenDatabase(chEntrée, False, False, ";pwd=tonmotdepasse") .................................................... Où dois-je placer toute portion de code ?
Merci d'avance de votre aide. Cordialement.
Salut,
Ma première réaction est de répondre "dans un module", mais ce n'est
probablement pas dans le sens du contexte. Avec le bout de code que tu as,
tu peux voir les informations de l'autre base de données via la variable db,
celà implique que tu "vois" les données, mais de par l'utilisation de code.
Si, de plus, la base de données autre utilise un différent workgroup (point
mdw), alors tu peux utiliser le code ci-après (originalement posté par Mary
Chipman):
===================== Sub OpenDBWithNewWorkgroupFile(strPathToFile As String, _
strDefaultUser As String, _
strDefaultPwd As String, _
strPathToDatabase As String)
' This function uses the unsupported PrivDBEngine object to
' open a database using a different workgroup information file
' than the one being used as the default. You might do this if
' you want to access data that is in a secured database that uses
' a different workgroup information file.
Dim dbe As PrivDBEngine
Dim wrk As Workspace
Dim dbs As Database
' Return a reference to a new instance of the PrivDBEngine object.
Set dbe = New PrivDBEngine
' Set the SystemDB property to specify the workgroup file.
dbe.SystemDB = strPathToFile
dbe.DefaultUser = strDefaultUser
dbe.DefaultPassword = strDefaultPwd
Set wrk = dbe.Workspaces(0)
' Open the secured database.
Set dbs = wrk.OpenDatabase(strPathToDatabase)
End Sub
=======================
Bien sûr, la variable dbs suit son "étendue" (scope), rien de nouveau ici.
Si quelqu'un en a de besoin en dehors de la procedure, en faire le résultat
retourné par la procédure transformée en une fonction, par exemple.
Espérant être utile.
Vanderghast, Access MVP
"henri" <anonymous@discussions.microsoft.com> wrote in message
news:008001c3afe9$29460000$a001280a@phx.gbl...
Bonjour,
Environnement Access 2000
Cette question fait suite à une précédente qui concernait
le mot de passe d'une BDD contenant des tables attachées.
Vous me proposiez d'insérer le code suivant:
....................................................
Set wspc = DBEngine.Workspaces(0)
chEntrée = "c:ton cheminlenomdetabase.mdb"
Set db = wspc.OpenDatabase(chEntrée, False, False,
";pwd=tonmotdepasse")
....................................................
Où dois-je placer toute portion de code ?
Ma première réaction est de répondre "dans un module", mais ce n'est probablement pas dans le sens du contexte. Avec le bout de code que tu as, tu peux voir les informations de l'autre base de données via la variable db, celà implique que tu "vois" les données, mais de par l'utilisation de code. Si, de plus, la base de données autre utilise un différent workgroup (point mdw), alors tu peux utiliser le code ci-après (originalement posté par Mary Chipman):
===================== Sub OpenDBWithNewWorkgroupFile(strPathToFile As String, _ strDefaultUser As String, _ strDefaultPwd As String, _ strPathToDatabase As String) ' This function uses the unsupported PrivDBEngine object to ' open a database using a different workgroup information file ' than the one being used as the default. You might do this if ' you want to access data that is in a secured database that uses ' a different workgroup information file.
Dim dbe As PrivDBEngine Dim wrk As Workspace Dim dbs As Database
' Return a reference to a new instance of the PrivDBEngine object. Set dbe = New PrivDBEngine ' Set the SystemDB property to specify the workgroup file. dbe.SystemDB = strPathToFile dbe.DefaultUser = strDefaultUser dbe.DefaultPassword = strDefaultPwd Set wrk = dbe.Workspaces(0) ' Open the secured database. Set dbs = wrk.OpenDatabase(strPathToDatabase) End Sub =======================
Bien sûr, la variable dbs suit son "étendue" (scope), rien de nouveau ici. Si quelqu'un en a de besoin en dehors de la procedure, en faire le résultat retourné par la procédure transformée en une fonction, par exemple.
Espérant être utile. Vanderghast, Access MVP
"henri" wrote in message news:008001c3afe9$29460000$ Bonjour,
Environnement Access 2000
Cette question fait suite à une précédente qui concernait le mot de passe d'une BDD contenant des tables attachées. Vous me proposiez d'insérer le code suivant: .................................................... Set wspc = DBEngine.Workspaces(0) chEntrée = "c:ton cheminlenomdetabase.mdb" Set db = wspc.OpenDatabase(chEntrée, False, False, ";pwd=tonmotdepasse") .................................................... Où dois-je placer toute portion de code ?
