Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - Работа с данными

Страница: 1 |

 

  Вопрос: Как из VB6 открыть базу данных Access с ПАРОЛЕМ? Добавлено: 12.11.07 16:27  

Автор вопроса:  П.С. | Web-сайт: psbatishev.narod.ru | ICQ: 225019134 
Подскажите, пожалуйста, как из кода Visual Basic 6 открыть базу данных Access 97/2000 средствами DAO360?

Строка:

Set dbsN = OpenDatabase(App.Path & "\db2nk.mdb", , , ";pwd=ibijd")


дает сообщение об ошибке, что неверный пароль.

Ответить

  Ответы Всего ответов: 7  

Номер ответа: 1
Автор ответа:
 vldmir



Вопросов: 6
Ответов: 16
 Профиль | | #1 Добавлено: 12.11.07 16:44
А если так:
Set dbsN = OpenDatabase(App.Path & "\db2nk.mdb", , , "Password=ibijd";)

Ответить

Номер ответа: 2
Автор ответа:
 П.С.



ICQ: 225019134 

Вопросов: 36
Ответов: 41
 Web-сайт: psbatishev.narod.ru
 Профиль | | #2
Добавлено: 12.11.07 20:08
При таком коде (как и при предыдущем) пишет "Ошибочный пароль", хотя пароль именно этот (проверено простым открытием базы данных).

Ответить

Номер ответа: 3
Автор ответа:
 vldmir



Вопросов: 6
Ответов: 16
 Профиль | | #3 Добавлено: 13.11.07 11:42
У меня тож ругается на пароль, справки перечитал примеры перепробывал.
А может лучше через ADOX ?
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=db1.mdb;Persist Security Info=False;Jet OLEDB:Database Password=pwd"
conn.Open
Set rs.ActiveConnection = conn
rs.Source = "select * from Таблица1;"

Ответить

Номер ответа: 4
Автор ответа:
 BlDm



Вопросов: 7
Ответов: 6
 Профиль | | #4 Добавлено: 13.11.07 18:38
забываете про DBEngine!!!

Прим.:

Set dbsN = DBEngine.OpenDatabase(App.Path & db2nk.mdb", , , ";pwd=ibijd";)

Ответить

Номер ответа: 5
Автор ответа:
 П.С.



ICQ: 225019134 

Вопросов: 36
Ответов: 41
 Web-сайт: psbatishev.narod.ru
 Профиль | | #5
Добавлено: 13.11.07 19:51
Нет, все равно не работает: "Ошибочный пароль"!

Ответить

Номер ответа: 6
Автор ответа:
 EUGY



Вопросов: 0
Ответов: 454
 Профиль | | #6 Добавлено: 14.11.07 03:18
Set dbsN = DBEngine.OpenDatabase(App.Path & "db2nk.mdb", False, False, "MS Access;pwd=ibijd;";)

Ответить

Номер ответа: 7
Автор ответа:
 vldmir



Вопросов: 6
Ответов: 16
 Профиль | | #7 Добавлено: 14.11.07 10:23
работает, проверял :)

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам