Access Databas lösen skyddad

4 svar · 233 visningar · startad av FIgg3 16 juli 2003

FIgg3Medlem sedan sep. 2001354 inlägg

Frågan16 juli 2003 11:05#1

Hejsan jag undrar hur man öppnar en databas i VB om man har gett databasen ett lösenord, i Aceess dvs. Just nu öppnar jag databasen så här:

Private Sub Form_Load()

Set Connect = New Connection
Set RecSet = New Recordset

Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & App.Path & "\Databasen\db.mdb"

SQL = "SELECT * FROM filmer order by titel DESC"
RecSet.Open SQL, Connect, adOpenStatic, adLockOptimistic

If RecSet.EOF Then
MsgBox "Inga filmer hittades i databasen!", 48, "Felmeddelande"
Else
Do Until RecSet.EOF

Dim lItem As MSComctlLib.ListItem
Set lItem = ListView1.ListItems.add(, , RecSet("titel"))
lItem.SubItems(1) = RecSet("reg")
lItem.SubItems(2) = RecSet("Prod_ar")
lItem.SubItems(3) = RecSet("status")
lItem.SubItems(4) = RecSet("betyg")

RecSet.MoveNext
Loop
RecSet.Close
Set RecSet = Nothing
End If
End Sub

Är det mycket jag behöver ändra för att det ska fungera eller ?
Mvh :h

@ndersMedlem sedan juni 200032 967 inlägg

16 juli 2003 11:07#2

http://www.connectionstrings.com/

mvh

FIgg3Medlem sedan sep. 2001354 inlägg

16 juli 2003 11:08#3

Tack så mycket ska kolla inte den direkt :)

PsyDoniaMedlem sedan maj 2003924 inlägg

16 juli 2003 14:31#4

FIgg3
om du kollar i din andra tråd listview och acces så står det där.
i det inlägget som jag skrev om hur man öppnar en databas.

FIgg3Medlem sedan sep. 2001354 inlägg

16 juli 2003 14:43#5

Okej, såg inte de faktiskt :) då var de lite onödigt att jag startade denna tråden, men ja fick en bra länken tack vara den i alla fall, bra att ha i framtiden.

hadé