Installierbares ISAM nicht gefunden

23/01/2008 - 17:10 von Andreas Arriens | Report spam
Hallo,

ich versuche eine Passwort geschützte Access 97 DB zu öffnen mit:

Set test = CreateObject("ADODB.Connection")
With thdb
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;pwd=test;Data
Source=C:\\test.mdb"
.Open
End With

Dabei kommt der Fehler: "Installierbares ISAM nicht gefunden".

Entferne ich das Passwort aus der Access und den Befehl:";pdw=test"
wird die DB vom Progamm geöffnet.

Das Passwort beim Aufruf und in der DB stimmer überein.

Danke!

Andreas
 

Lesen sie die antworten

#1 Peter Götz
23/01/2008 - 20:19 | Warnen spam
Hallo Andreas,


ich versuche eine Passwort geschützte Access 97
DB zu öffnen mit:



Es gibt zwei Arten eine *.mdb zu schützen.
Die eine Art wàre mit einem internen Datenbankkennwort,
die andere auf Benutzerebene mit einer zugehörigen#
System.mdw.

Welche der beiden Schutzarten verwendest Du?

Ich rate mal Du hast eine mit internem DB-Kennwort
geschützte *.mdb.
Beim internen DB-Kennwort öffnet man die Connection so:

Dim FileName as string
Dim DBPwd as string
Dim cnn as ADODB.Connection

FileName = "H:\Verzeichnis\DB.mdb"
DBPwd = "DeinDBKennwort"
Set cnn = New ADODB.Connection


With cnn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.Properties("Data Source") = FileName

If Len(DBPwd) > 0 Then
.Properties _
("Jet OLEDB:Database Password") = DBPassword
End If

If LockingMode <> 0 Then
' PageLocking (0) / RowLocking (1)
.Properties _
("Jet OLEDB:Database Locking Mode") = LockingMode
End If

If CursorLocation <> 0 Then
.CursorLocation = CursorLocation
End If

If ConnectMode <> 0 Then
' Exclusiv, ReadOnly usw.
.Mode = ConnectMode
End If

.Open
End With

Gruß aus St.Georgen
Peter Götz
www.gssg.de (mit VB-Tipps u. Beispielprogrammen)

Ähnliche fragen