У меня есть конект к базе данных Access, все работает без проблем, но если я ставлю пароль на базу то сонеста нет, знаю что ето можно как то прописать
Подскажите пожалуйста как как обойти пароль??
Option Explicit
Public cn As ADODB.Connection
Public rs As ADODB.Recordset
Public cm As ADODB.Command
Private Sub Form_Load()
Dim strConn As String
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\file.mdb"
Set cn = New ADODB.Connection
With cn
.ConnectionString = strConn
.Open
End With
'-------------------------------------------------
' инициализация класса
'-------------------------------------------------
Public Sub OpenConnection()
Set gcConnection = New ADODB.Connection
On Error GoTo errH:
' устновка соединения ( основной объект)
With gcConnection
.Provider = "Microsoft.Jet.OLEDB.4.0"
.Properties("Jet OLEDB:Database Password") = "PASSWORD"
.Open myApp.LocalDB
End With
Exit Sub
errH:
EM
End Sub
На сайте осуществляется обработка файлов cookie, необходимых для работы сайта, а также для анализа использования сайта и улучшения предоставляемых
сервисов с использованием метрической программы Яндекс.Метрика.
Продолжая использовать сайт, вы даёте согласие на обработку файлов cookie, необходимых для работы сайта. Другие опции вы можете выбрать по своему усмотрению.
По нижеприведенным ссылкам мы можете ознакомиться с действующим на сайте пользовательским соглашением и политикой конфиденциальности.
