powered by simpleCommunicator - 2.0.56     © 2025 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Связка VB-ACCESS
8 сообщений из 8, страница 1 из 1
Связка VB-ACCESS
    #32313310
AloneWarlock
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Имеется база защищенная на уровне пользователей.Хочу к ней подсоедениться
посредвством ADODB, подскажите как это сделать?
...
Рейтинг: 0 / 0
Связка VB-ACCESS
    #32313405
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
вот\r
...
Рейтинг: 0 / 0
Связка VB-ACCESS
    #32313490
AloneWarlock
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Много текста - а где конкретика?
...
Рейтинг: 0 / 0
Связка VB-ACCESS
    #32313548
Фотография Senin Viktor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
2AloneWarlock

вот еще

в одном из топиков точно есть ответ на твой вопрос.
Удачи!
...
Рейтинг: 0 / 0
Связка VB-ACCESS
    #32313608
AloneWarlock
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Имею такой код - что не так???
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;")
...
Рейтинг: 0 / 0
Связка VB-ACCESS
    #32313659
viper
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Я делал так (правда не 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
...
и погнали....
...
Рейтинг: 0 / 0
Связка VB-ACCESS
    #32313999
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
4AloneWarlock
Код: plaintext
1.
2.
3.
4.
5.
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 ;")

это не ADODB ,а DAO !!!!!

...
Рейтинг: 0 / 0
Связка VB-ACCESS
    #32314269
AloneWarlock
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
4All
Всем тенькс, вроде поехало....
...
Рейтинг: 0 / 0
8 сообщений из 8, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Связка VB-ACCESS
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]