| |
|
|
| | Всем доброго времени суток.
Такой вопрос. Если просто нужно открыть базу, то можно использовать такой код:
Dim MYDB As Database
Dim baseStr As String
baseStr = "C:\baza.mdb"
Set MYDB = OpenDatabase(baseStr)
|
А как быть, если у базы есть пароль? По-возможности приведите пример кода. Спасибо. | |
| |
| |
| |
|
|
| |
по аксесс-справке
Visual Basic for Applications
Sub WorkspaceX()
Dim wrkNewAcc As Workspace
Dim wrkLoop As Workspace
Dim prpLoop As Property
' Create a new Microsoft Access workspace.
Set wrkNewAcc = CreateWorkspace("NewAccessWorkspace", _
"admin", "", dbUseJet)
Workspaces.Append wrkNewAcc
' Enumerate the Workspaces collection.
For Each wrkLoop In Workspaces
With wrkLoop
Debug.Print "Properties of " & .Name
' Enumerate the Properties collection of the new
' Workspace object.
For Each prpLoop In .Properties
On Error Resume Next
If prpLoop <> "" Then Debug.Print " " & _
prpLoop.Name & " = " & prpLoop
On Error GoTo 0
Next prpLoop
End With
Next wrkLoop
wrkNewAcc.Close
End Sub
|
а как открыть если в базе есть autoexec или форма начальной загрузки
или и то и другое
не держать же shift | |
| |
| |
| |
|
|
| | Разобрался:
Dim MYDB As Database
Dim baseStr As String
baseStr = "C:\baza.mdb"
Set MYDB = OpenDatabase(baseStr, True, False, ";pwd=МойПароль")
|
| |
| |
| |
