Skall öppna en access dtyabas som är lösenordskyddad på användarnivå och
vill ha hjälp med kod för detta. Database är skyddad med uppgifter i en fil som heter
säkerhet.mda. Alltså inte en *.mdw fil. Jag har användarnamn och lösenord och det går utmärkt att öppna filen i access men vad jasg söker är hur den öppnas i VB med kod.

Testa detta

Set dbs = OpenDatabase(sökväg & "databas.mdb", False, False, _
";Lösenord")

Om du använder jet3.51 och access97

Mda och Mdw är sak samma. mda filerna är sedan access 2.0 dagar. Vilket ändrades med Access95/97 till mdw. Du bör fortfarande idag kunna använda mda filer till din databas. Men det är rekomenderat att du skapar en ny MDW säkerhetsdatabas.


ADO:
<code>
Dim strDatabase as String
Dim strSystemDB as String
Dim con As ADODB.Connection
strDatabase = App.Path & "\MinDB.mdb"
strSystemDB = App.Path & "\säkerhet.mda"


Set con = New ADODB.Connection
con.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & strDatabase & ";" & _
"Persist Security Info=False;" & _
"Jet OLEDB:System database=" & strSystemDB
</code>

DAO:
<code>
Private Engine As DAO.DBEngine

Private Sub Form_Load()
Dim db As DAO.Database
Set Engine = New DAO.DBEngine
Engine.SystemDB = App.Path & "\säkerhet.mda"

Set db = Engine.OpenDatabase(App.Path & "\MinDB.mdb")
End Sub
</code>

I exemplet med DAO . Var placera Användare och lösenord ??

Du kan använda default egenskaperna:
<code>
Private Engine As DAO.DBEngine

Private Sub Form_Load()
Dim db As DAO.Database
Set Engine = New DAO.DBEngine
Engine.SystemDB = App.Path & "\säkerhet.mda"
Engine.DefaultUser = "Nisse"
Engine.DefaultPassword = "Nisse är bäst"

Set db = Engine.OpenDatabase(App.Path & "\MinDB.mdb")
End Sub
</code>

Hej igen

Fungerar inte fastän jag har angivit rätt Användare och lösenord.
När jag öppnar den direkt från access med samma användare och lösen så fungerar det perfekt.

för följande feltext:
Du saknar nödvändiga behörigheter för att kunna använda objektet atc.mdb. Skaffa lämpliga behörigheter från systemadministratören eller den som skapade objektet. (Fel 3033)

Hur ser din kod ut?

Dim db As DAO.Database
Dim engine As DAO.DBEngine

Set engine = New DAO.DBEngine
engine.SystemDB = "F:\säkerhet.mda"
engine.DefaultUser = "Sysman"
engine.DefaultPassword = "Linda"
Set db = engine.OpenDatabase("F:\atc.mdb") 'Här kommer felet

Kan ju testa om det hjälper med att använda workspace:
<code>
Dim db As DAO.Database
Dim Workspace As DAO.Workspace
Dim Engine As DAO.DBEngine

Set Engine = New DAO.DBEngine
Engine.SystemDB = "F:\säkerhet.mda"

Set Workspace = Engine.CreateWorkspace("", "Sysman", "Linda")
Set db = Workspace.OpenDatabase("F:\atc.mdb")
</code>
Varför inte använda ADO istället?