| Вопрос: VB 6.0 +ADO динамическое создание коннекта | Добавлено: 17.09.08 00:36 |
Автор вопроса:  Е.Багоцкий
|
|
Вроде и старая оболочка. Вроде и должно работать ан нет
на событие Form1_Load или Form1_Initialize прописываю для элемента ADO Connection ADC код для БД Access (Provider=Jet 4.0) ADC.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Zadanie\.mdb;Persist Security Info=False" ADC.Enable=true 'предварительно в конструкторе 'ConnectionString была пустой и ... не работает выдаётся сообщение при запуске "Microsoft ODBC Диспетчер драйверов ODBC. Источник не найден и не указан драйвер используеиый по умолчанию" Что не так? Работает только если в конструкторе через Мастер правильно выбрать ConnectionString. Что ему нехватает? Отдельно от ConnectionString тип провайдера задать ведь нельзя -нет такого свойства. |
| Ответы | Всего ответов: 4 |
|
Номер ответа: 1 Автор ответа:  mc-black ICQ: 308-534-060 Вопросов: 20 Ответов: 1860 |
Web-сайт: Профиль | | #1 | Добавлено: 19.09.08 15:26 |
| Ты ответил на свой вопрос: правильно укажи ConnectionString. Всякие там Persist Security Info не нужны. Как правильно составить ConnectionString смотри в примерах или хотя бы подсмотреть в Администраторе источников данных ODBC. | ||
|
Номер ответа: 2 Автор ответа: Teach Вопросов: 6 Ответов: 5 |
Профиль | | #2 | Добавлено: 25.09.08 00:21 |
|
Самый прстой коннект для MS Access!
conn.Mode = adModeReadWrite conn.CursorLocation = adUseClient conn.Open "  RIVER={Microsoft Access Driver (*.mdb)}riverId=25BQ=" + App.Path + "\base.mdb" + ";"
|
||
|
Номер ответа: 3 Автор ответа:  TeachВопросов: 6 Ответов: 5 |
Профиль | | #3 | Добавлено: 25.09.08 00:23 |
|
Самый прстой коннект для MS Access!
conn.Mode = adModeReadWrite conn.CursorLocation = adUseClient conn.Open " RIVER={Microsoft Access Driver (*.mdb)}riverId=25BQ=" + App.Path + "\base.mdb" + ";"
|
||
|
Номер ответа: 4 Автор ответа: Е.БагоцкийВопросов: 1 Ответов: 1 |
Профиль | | #4 | Добавлено: 25.09.08 22:48 |
|
Спасибо. проблема снята. Код типа приведёееого ниже всё делает даже до отурытия формы
Dim cat As String cat = CurDir + "\Çàä9_97.mdb" pth = "Provider=Microsoft.Jet.OLEDB.4.0 ata Source=" & cat & ";Persist Security Info=False"
'pth = "Provider=Microsoft.Jet.OLEDB.4.0 ata Source=D:\Zadanie\995\VB_Prj\Çàä9.mdb;Persist Security Info=False"
Form1.ADC1.ConnectionString = pth Form1.ADC1.RecordSource = "q_isp" Form1.ADC1.Enabled = True Form1.Text1(0).DataField = "Code" Form1.DataGrjd1.ReBind Form1.Show чтобы DataGrid наполнился данными, получается обязательно нужно выхывать метод DataGrjd1.ReBind |
||
Страница: 1 |