Access ASP SQL Server VBA NET - Форумы по проектированию

LEADERSOFT.ru Разработка на заказ программ и сайтов

Форумы по информационным технологиям

Начало

Forums

Регистрация | Вход

Форумы

Поиск

Список форумов

Программирование

Microsoft Access. Файлы mdb и accdb

Тема: Подключен...

Тема: Подключение к базе!

15.06.2007 21:03:56

Дмитрий13

1 сообщения

Тема: Подключение к базе!

База находится на сервере WinNT когда пытаюсь добратся до нее чтобы подключится к таблицам выскакивает окошко Имя пользователя и пароль.
Подскажите как заполнить эти поля из под Access(у меня MSAccess XP Sp1)

P.S. Проблемы с базой данных
Автор: Дмитрий от 13.04.2003 15:33:29 Источник ...

15.06.2007 21:03:56

All

4316 сообщения

RE: Подключение к базе!

Я думаю нехватает разрешений на использование данной папки на сервере. Администратор должен дать разрешение на использование этой папки.
В данном случае Сервер требует имя и пароль пользователя имеющего разрешения на использование.

P.S. Проблемы с базой данных
Автор: Артур от 0:00:00 Источник ...

15.06.2007 21:03:56

All

4316 сообщения

RE: Подключение к базе!

В том то и дело Имя пользователя и Пароль известны Как автоматически(не руками) заполнить эти поля из под Access. Возможно ли это.

P.S. Проблемы с базой данных
Автор: Дмитрий от 0:00:00 Источник ...

15.06.2007 21:03:56

All

4316 сообщения

RE: Подключение к базе!

1. Необходимо создать строку подключения:
Private Sub butADO_Click()
Dim cnn As ADODB.Connection ' Переменная для соединения

' Определяем новое соединение
Set cnn = New ADODB.Connection

' Определяем строку соединения для Microsoft.Jet.OLEDB
Dim strCnn As String
strCnn = "Provider=Microsoft.Jet.OLEDB.4.0;" ' Провайдер
strCnn = strCnn & "Data Source=" & CurrentProject.Path & "\la_form.mdb;" ' база данных
strCnn = strCnn & "User ID=Admin;" ' Пользователь
strCnn = strCnn & "Mode=ReadWrite|Read;" ' Режим чтения и записи+другие свойства
strCnn = strCnn & "Extended Properties='';" ' Расширенные свойства, например, файл udl
strCnn = strCnn & "Persist Security Info=False;"
strCnn = strCnn & "Locale Identifier=1033;"
strCnn = strCnn & "Jet OLEDB:System database='';" 'C:\..\SYSTEM.MDW;
strCnn = strCnn & "Jet OLEDB:Database Password='';" ' Пароль внутри базы
strCnn = strCnn & "Jet OLEDB:New Database Password='';"
strCnn = strCnn & "Jet OLEDB:Encrypt Database=False;"
strCnn = strCnn & "Jet OLEDB:Create System Database=False;"
strCnn = strCnn & "Jet OLEDB:Registry Path='';"
strCnn = strCnn & "Jet OLEDB:Engine Type=5;"
strCnn = strCnn & "Jet OLEDB:Database Locking Mode=1;"
strCnn = strCnn & "Jet OLEDB:Global Partial Bulk Ops=2;"
strCnn = strCnn & "Jet OLEDB:Global Bulk Transactions=1;"
strCnn = strCnn & "Jet OLEDB:Don't Copy Locale on Compact=False;"
strCnn = strCnn & "Jet OLEDB:SFP=False;"
strCnn = strCnn & "Jet OLEDB:Compact Without Replica Repair=False;"

' Назначаем строку соединения
cnn.ConnectionString = strCnn

' Открываем соединение
cnn.Open

End Sub
2. Если привязывать таблицы, то в параметре при присоединении надо указать пароль с ключевым словом ;Password=

P.S. Проблемы с базой данных
Автор: Expert от 0:00:00 Источник ...

15.06.2007 21:03:56

All

4316 сообщения

RE: Подключение к базе!