| Вопрос: ADO | Добавлено: 30.07.08 20:51 |
Автор вопроса:  Votmax  | Web-сайт: basiccenter.narod.ru
|
|
Добрый день. Я очень долго бился над тем, чтобы заставить работать вот этот код:
Dim db As Connection Dim RS As Recordset Dim com As Command Set db = New ADODB.Connection Set RS = New ADODB.Recordset Set com = New ADODB.Command db.CursorLocation = adUseClient db.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" + "Data Source=C:\;" + "Extended Properties=""DBASE IV;"";""" db.Open com.ActiveConnection = db com.CommandType = adCmdText com.CommandText = любая команда com.Execute Как выяснилось, код работает БЕЗ ОШИБОК, только на другом компьютере. Что делать? Я перенес все используемые библиотеки с того компьютера на свой, но код все равно не работает на моем компьютере, выдает в зависимости от выбранных MS ADO 2.0-2.8: - последовательность выборки не поддерживается ОС - не хватает какого то параметра. Подскажите, где моя ошибка?, как правильно поступить?, где можно взять проверенные работоспособные библиотеки? И как их правильно подключить? Большое спасибо. |
| Ответы | Всего ответов: 3 |
|
Номер ответа: 1 Автор ответа:  User Unknown Вечный Юзер! ICQ: uu@jabber.cz Вопросов: 120 Ответов: 3302 |
Профиль | | #1 | Добавлено: 30.07.08 21:05 |
| Насколько мне изменяет память... MDAC должен быть одной версии и там и там. | ||
|
Номер ответа: 2 Автор ответа:  ArsenyICQ: 298826769 Вопросов: 53 Ответов: 1732 |
Профиль | | #2 | Добавлено: 31.07.08 08:13 |
|
с базами DBASE почему-то грабли везде из-под VB6...
у меня, к примеру, никакой инсталлятор не может заставить нормально работать прогу с *.dbf на другом компе... За исключением инсталлятора шестой студии. Вот тогда - работает нормально. 
|
||
|
Номер ответа: 3 Автор ответа: Pravdin Вопросов: 1 Ответов: 6 |
Профиль | | #3 | Добавлено: 31.07.08 16:14 |
|
Однажды столкнулся с проблемой подключения к БД на компах с разными MS Office.
Обратите внимание в моем коде на свойство Data Source. Один вариант работает с MS Office 2007, другой с остальными. Set cnn = New ADODB.Connection On Error Resume Next cnn.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False  ata Source=dBASE Files;Initial Catalog=" & App.Path & "\DataBase"
cnn.Open If Err.Number <> 0 Then On Error Resume Next cnn.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False ata Source=файлы dBASE;Initial Catalog=" & App.Path & "\DataBase"
cnn.Open ..... |
||
Страница: 1 |