PDA

Vollständige Version anzeigen : Access & Password auf MDB


FMS
11.01.2001, 16:56
Hallo zusammen,

wie gebe ich das Passwort ( das ganz allgemeine über Set database pw) für eine MDB an ?

Set ws = DBEngine.Workspaces(0)
Set db = ws.OpenDatabase( < filename> ), ?...

Ich finde einfach nichts und gehen tut das sicher ! Oder ?

Besten dank franco

jump
12.01.2001, 12:56
Lösung:
Function foo()
Dim db As Database
Dim oAcc As Access.Application

Const TMP = "fooz.mdb"

Set db = DBEngine.CreateDatabase(TMP, _
dbLangGeneral)
db.NewPassword "", "doooo"
db.Close
Set db = Nothing

Set oAcc = New Access.Application
Set db = oAcc.DBEngine.OpenDatabase(TMP, _
False, False, ";PWD=doooo")
oAcc.OpenCurrentDatabase TMP
db.Close
Set db = Nothing
End Function