OpenDataBase und DB-Kennwort

Computer: Software & Programmierung Microsoft Access
#1

Ich muß per VBA in einer fremden DB was nachgucken und
will beim Öffnen deren Datenbankkennwort als Parameter übergeben.
Jetzt hab’ ich aber erstmal keine Lust auf ADO und Connection,
weil das dann hunderte von Seiten Code beträfe (vielleicht mal
morgen oder übermorgen).

Ich kann die Tabellen zwar verknüpfen, damit sich der Bursche
das DB-Kennwort merkt, aber auf verknüpfte Tabellen kann ich
nicht zugreifen, da ich die „SEEK“-Methode auf ein RS anwenden muß, die sich bekanntermaßen auf Verknüpfungen nicht anwenden läßt.

Also derart:

Set DB = OpenDataBase(„J:\datenbank.mdb“,…und wie nun PW?)

Bei ODBC-Bereichen kein Thema, aber s.o.

Danke schon mal!

Stephan

#2

Hallo Stephan
So öffne ich andere DB’s

Sub test()
Call DatabaseÖffnen(„c:\Nordwind.mdb“, „;pwd=Passwort“)
End Sub
Sub DatabaseÖffnen(strNameDatenbankFE As String, strVerbInfo As String)
‚********************************************************************************‘
'Prozedur : DatabaseÖffnen ’
'Aufgrufen von : Startprozedur ’
'Aufgabe : Diese Prozedur öffnet eine Datenbank ’
'Parameter : strNameDatenbankFE Laufwerk + Pfad + Dateiname ’
’ : strVerbInfo hier Verbindungsinformationen nur Passwort ’
'Hinweise : ’
'Aufruf Funktionen : keine ’
'Returnwert : keinen ’
‚--------------------------------------------------------------------------------‘
’ Entwicklungsübersicht ’
'Datum Verfasser Typ beschreibender Text ’
'------ --------- — ------------------- ’
'07.07.2000 Norbert Laas E Ersterstellung ’
'07.07.2000 Norbert Laas T Test ’
‚********************************************************************************‘
’ Es wird vorrausgesetzt, dass die Datenbank vorhanden ist
’ Datenbank öffnen
Set AndereDb = DBEngine.Workspaces(0).OpenDatabase _
(strNameDatenbankFE, False, False, strVerbInfo)
’ set AndereDb = nothing in Startprozedur
End Sub

viel Spass
Norbert Laas

#3

Jo, das wars
Hallo Norbert,

das war’s natürlich. Vielen Dank.

Genauso hab ich’s ja probiert, aber wenn man so blöd ist wie ich
und das Semikolon im Verbindungsparameter vergißt…

Nochmals Danke.
Stephan