соединение с базой данных по логину и паролю
Подскажите, пожалуйста, как при помощи ActiveX Data Objects установить соединение с базой данных, используя логин и пароль? То есть ситуация следующая - базу защищаем паролем и только программа должна автоматически открывать базу для добавления/редактирования записей. У меня этот механизм реализован примерно так:
Set db = CreateObject("ADODB.Connection") 'создаем соединение с базой
Dim Appl As String
Appl = App.Path
Appl = Appl + "\Excel.mdb"
strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Password=123;Persist Security Info=False;"
Appl = "Data Source='" & Appl & "'"
strConnect = strConnect + Appl
db.Open strConnect
Закрыв базу на пароль "123", получил вот что:
"Не удается запустить приложение. Системная база данных отсутствует или открыта с монопольным доступом другим пользователем". Что бы это значило?
Set db = CreateObject("ADODB.Connection") 'создаем соединение с базой
Dim Appl As String
Appl = App.Path
Appl = Appl + "\Excel.mdb"
strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Password=123;Persist Security Info=False;"
Appl = "Data Source='" & Appl & "'"
strConnect = strConnect + Appl
db.Open strConnect
Закрыв базу на пароль "123", получил вот что:
"Не удается запустить приложение. Системная база данных отсутствует или открыта с монопольным доступом другим пользователем". Что бы это значило?
Цитата:
Originally posted by shupik
Подскажите, пожалуйста, как при помощи ActiveX Data Objects установить соединение с базой данных, используя логин и пароль? То есть ситуация следующая - базу защищаем паролем и только программа должна автоматически открывать базу для добавления/редактирования записей. У меня этот механизм реализован примерно так:
Set db = CreateObject("ADODB.Connection") 'создаем соединение с базой
Dim Appl As String
Appl = App.Path
Appl = Appl + "\Excel.mdb"
strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Password=123;Persist Security Info=False;"
Appl = "Data Source='" & Appl & "'"
strConnect = strConnect + Appl
db.Open strConnect
Закрыв базу на пароль "123", получил вот что:
"Не удается запустить приложение. Системная база данных отсутствует или открыта с монопольным доступом другим пользователем". Что бы это значило?
Подскажите, пожалуйста, как при помощи ActiveX Data Objects установить соединение с базой данных, используя логин и пароль? То есть ситуация следующая - базу защищаем паролем и только программа должна автоматически открывать базу для добавления/редактирования записей. У меня этот механизм реализован примерно так:
Set db = CreateObject("ADODB.Connection") 'создаем соединение с базой
Dim Appl As String
Appl = App.Path
Appl = Appl + "\Excel.mdb"
strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Password=123;Persist Security Info=False;"
Appl = "Data Source='" & Appl & "'"
strConnect = strConnect + Appl
db.Open strConnect
Закрыв базу на пароль "123", получил вот что:
"Не удается запустить приложение. Системная база данных отсутствует или открыта с монопольным доступом другим пользователем". Что бы это значило?
почитай тут: http://www.gotdotnet.ru/Forums/Web/11031.aspx
сегодня сам наткнулся...
Цитата:
Originally posted by ip027
почитай тут: http://www.gotdotnet.ru/Forums/Web/11031.aspx
сегодня сам наткнулся...
почитай тут: http://www.gotdotnet.ru/Forums/Web/11031.aspx
сегодня сам наткнулся...
Все, сам догадался. Вот так нужно было делать:
Dim Appl As String
Appl = App.Path
Appl = Appl + "\Excel.mdb"
strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;"
Appl = "Data Source='" & Appl & "'"
strConnect = strConnect + Appl
strConnect = strConnect + ";Jet OLEDB: Database Password=123;"
db.Open strConnect