|
Связка VB-ACCESS
|
|||
---|---|---|---|
#18+
Имеется база защищенная на уровне пользователей.Хочу к ней подсоедениться посредвством ADODB, подскажите как это сделать? ... |
|||
:
Нравится:
Не нравится:
|
|||
03.11.2003, 12:03 |
|
Связка VB-ACCESS
|
|||
---|---|---|---|
#18+
Много текста - а где конкретика? ... |
|||
:
Нравится:
Не нравится:
|
|||
03.11.2003, 14:00 |
|
Связка 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:05 |
|
Связка 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, 15:36 |
|
Связка VB-ACCESS
|
|||
---|---|---|---|
#18+
4AloneWarlock Код: plaintext 1. 2. 3. 4. 5.
это не ADODB ,а DAO !!!!! ... |
|||
:
Нравится:
Не нравится:
|
|||
03.11.2003, 18:01 |
|
|
start [/forum/topic.php?fid=60&msg=32313405&tid=2170496]: |
0ms |
get settings: |
10ms |
get forum list: |
12ms |
check forum access: |
4ms |
check topic access: |
4ms |
track hit: |
69ms |
get topic data: |
11ms |
get forum data: |
3ms |
get page messages: |
43ms |
get tp. blocked users: |
2ms |
others: | 384ms |
total: | 542ms |
0 / 0 |