database og passord

[Jonas]

Hallo

 

Har lagd en et program nå, men jeg vil ha passord på mdb fila. Får å åpne datbase bruker jeg denne koden:

Set db = OpenDatabase(App.Path & "\test.mdb")

Hvordan åpne en database med passord? Hva er koden?

 

Edit: er det vannskelig å komme inn i en passord beskyttet mdb fil?

Endret 19. mars 2004 av jonas22282460

[Blaster2k]

Edit: er det vannskelig å komme inn i en passord beskyttet mdb fil

sikkert ikke så vanskelig å bruteforce dem, om jeg tipper riktig

[Jonas]

Nahh, tror ikke noe kommer til å bruteforce databasen.. Den skal bare lagra filmer, en filmdatabase Noen som vet det med åpne en med passord?

Endret 23. mars 2004 av jonas22282460

[havkol]

 Set db = OpenDatabase(dbnavn, True, ReadOnly, ";pwd=" & txtPassword)

 

Jeg bruker denne. Må tilpasses din bruk.

[Jonas]

Takk, var sånt der jeg mente! Men den gir "not valid pass" hver eneste gang, uannsett hva jeg skriver. Med access funker passordet fint.. Dette er koden jeg kom fram til:

Dim pass
pass = InputBox("Skriv inn passord", "Passord")
Set db = OpenDatabase(App.Path & "\test.mdb", , , ";pwd=" & pass)

funker heller ikke hvis jeg tar bort pwd..

Endret 24. mars 2004 av jonas22282460

[havkol]

Hva skjer hvis du beholder True og Readonly?

[Jonas]

Da får jeg "variabel not defined" på "readonly"

[havkol]

Får du åpnet baser som ikke er passordbeskyttet?

 

Har prøvd her med å fjerne True og ReadOnly hver for seg, men da

får jeg feil nr. 3031: Not a valid password.

 

Det er lenge siden jeg laget dette, så jeg husker ikke helt hvorfor det skulle være der.

 

Forsøk å skriv passordet i klartekst i programmet (";pwd=passord")for å se om det virker da.

[Jonas]

Uannsett hva som skjer så er ikke "readonly" dim'et så den gir error. den tok jeg bort. Jeg prøvde å skrive pass i klartekst, og det funka heller ikke. Fjerna "true", men samme skjer

[havkol]

Da kan jeg dessverre ikke hjelpe deg...

[havkol]

Hei, tror kanskje jeg kan hjelpe deg likevel.

 

Fjern denne: Option Explicit

Og så lar du True og ReadOnly være med.

 

Voila - så skal det virke... håper jeg