| Вопрос: Подключение к *.MDB по паролю | Добавлено: 16.09.09 10:19 |
Автор вопроса:  directZeR0
|
|
Добрый день
Помогите пожалуйста подключиться к базе ACCESS! есть база db1.mdb с паролем "55555" Dim DBS As DAO.Database 'Объявляем базу данных Dim RST As DAO.Recordset 'Объявляем рекордсет Dim oSQL as String oSQL = "SELECT * FROM MyTable;" Set DBS = DAO.OpenDatabase("db1.mdb", False, False, ";pwd=55555") Set RST = DBS.OpenRecordset(oSQL) Если база mdb без пароля, всё работает на УРА! Как только ставлю пароль пишет всякие гадости, про то что невозможно поключиться к базе .... Может ошибка в Set DBS = DAO.OpenDatabase("db1.mdb", False, False, ";pwd=55555") Спасибо за помощь |
| Ответы | Всего ответов: 6 |
|
Номер ответа: 1 Автор ответа:  AndreyMp ICQ: 237822510 Вопросов: 28 Ответов: 1182 |
Профиль | | #1 | Добавлено: 16.09.09 10:44 |
| http://www.connectionstrings.com/access А юзер где? | ||
|
Номер ответа: 2 Автор ответа: directZeR0 Вопросов: 4 Ответов: 2 |
Профиль | | #2 | Добавлено: 16.09.09 10:57 |
|
Если можно поправьте строку, а то что-то та же ошибка
Set DBS = DAO.OpenDatabase("db1.mdb", False, False, ";uid=Admin ;pwd=55555" 
|
||
|
Номер ответа: 3 Автор ответа: Aston ICQ: 214-179-991 Вопросов: 42 Ответов: 272 |
Профиль | | #3 | Добавлено: 16.09.09 11:17 |
| Если честно, я такой вопрос тоже когда то задавал и ответа не получили сам не нашёл как подключится к базе Аксес запароленную. Получить ответ на этот вопрос самому интересно, но как я понял, нельзя её открыть при указании пароля при подключении - это используется в основном с базами SQL и подобными. А запароленную Аксес базу можно открыть только с помощью аксес. | ||
|
Номер ответа: 4 Автор ответа: AWPICQ: 345685652 Вопросов: 96 Ответов: 1212 |
Web-сайт: Профиль | | #4 | Добавлено: 16.09.09 12:58 |
| http://www.google.ru/codesearch?as_q=OpenDatabase&btnG=%D0%9F%D0%BE%D0%B8%D1%81%D0%BA+%D0%BA%D0%BE%D0%B4%D0%B0&hl=ru&as_lang=basic&as_license_restrict=i&as_license=&as_package=&as_filename=&as_case= | ||
|
Номер ответа: 5 Автор ответа: AndreyMpICQ: 237822510 Вопросов: 28 Ответов: 1182 |
Профиль | | #5 | Добавлено: 16.09.09 13:28 |
|
Может так.
http://www.carlprothman.net/Default.aspx?tabid=87#OLEDBProviderForMicrosoftJet |
||
|
Номер ответа: 6 Автор ответа: AndreyMpICQ: 237822510 Вопросов: 28 Ответов: 1182 |
Профиль | | #6 | Добавлено: 16.09.09 14:47 |
|
В общем на VB6 я бы делал примерно так:
Private Sub Command1_Click()
 im con1 As ADODB.Connection
im rs1 As ADODB.Recordset
im conStr
im oSQL As String
conStr = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ " ata Source=D:\sprav.mdb;" & _
"Jet OLEDB:System Database=system.mdw;Jet OLEDB:Database Password=222" oSQL = "SELECT * FROM sprav;" Call OpenConnect(conStr, oSQL, con1, rs1) Call CloseConnect(con1, rs1) End Sub Public Sub OpenConnect(ByVal sConnStr As String, sStr1 As String, sConnection As ADODB.Connection, sRecordset As ADODB.Recordset) Set sConnection = New ADODB.Connection sConnection.CursorLocation = adUseClient sConnection.Open sConnStr Set sRecordset = New ADODB.Recordset sRecordset.Open sStr1, sConnection, adOpenDynamic, _ adLockOptimistic, adCmdUnknown End Sub Public Sub CloseConnect(sConnection As ADODB.Connection, sRecordset As ADODB.Recordset) Set sRecordset.ActiveConnection = Nothing sConnection.Close Set sConnection = Nothing End Sub |
||
Страница: 1 |