Новые сообщения [новые:0]
Дайджест
Горячие темы
Избранное [новые:0]
Форумы
Пользователи
Статистика
Статистика нагрузки
Мод. лог
Поиск
|
03.11.2003, 12:03
|
|||
---|---|---|---|
|
|||
Связка VB-ACCESS |
|||
#18+
Имеется база защищенная на уровне пользователей.Хочу к ней подсоедениться посредвством ADODB, подскажите как это сделать? ... |
|||
:
Нравится:
Не нравится:
|
|||
|
03.11.2003, 14:00
|
|||
---|---|---|---|
|
|||
Связка VB-ACCESS |
|||
#18+
Много текста - а где конкретика? ... |
|||
:
Нравится:
Не нравится:
|
|||
|
03.11.2003, 15:05
|
|||
---|---|---|---|
|
|||
Связка VB-ACCESS |
|||
#18+
Имею такой код - что не так??? Dim wrkJet As Workspace Dim dbsNorthwind As Database Dim dbsPubs As Database Set wrkJet = CreateWorkspace("", "admin", "", dbUseJet) Set dbsNorthwind = wrkJet.OpenDatabase("", dbDriverNoPrompt, True, "odbc;Driver=Microsoft Access Driver (*.mdb);Dbq=c:\111\sdd.mdb;SystemDB=\\server2\sopr1\secured.mdw;VIL; 123456;") ... |
|||
:
Нравится:
Не нравится:
|
|||
|
03.11.2003, 15:36
|
|||
---|---|---|---|
Связка VB-ACCESS |
|||
#18+
Я делал так (правда не ODBS а JET): Public cnn As New ADODB.Connection Public datHansa As ADODB.Recordset cnn.Provider = "Microsoft.Jet.OLEDB.4.0" cnn.Properties("Jet OLEDB:System database") = App.path & "\SYSTEM.MDW" cnn.Open "Data Source=" & App.path & "\PMK.mdb;User Id=Administrator;Password=admin;" Set datHansa = New ADODB.Recordset datHansa.Open "SELECT * FROM HansaExport", cnn, 2, 2 ... и погнали.... ... |
|||
:
Нравится:
Не нравится:
|
|||
|
03.11.2003, 18:01
|
|||
---|---|---|---|
Связка VB-ACCESS |
|||
#18+
4AloneWarlock Код: plaintext 1. 2. 3. 4. 5.
это не ADODB ,а DAO !!!!! ... |
|||
:
Нравится:
Не нравится:
|
|||
|
|
start [/forum/topic.php?fid=60&tablet=1&tid=2170496]: |
0ms |
get settings: |
10ms |
get forum list: |
14ms |
check forum access: |
5ms |
check topic access: |
5ms |
track hit: |
233ms |
get topic data: |
15ms |
get forum data: |
3ms |
get page messages: |
49ms |
get tp. blocked users: |
2ms |
others: | 338ms |
total: | 674ms |
0 / 0 |