VBNet - Форум - Подключение ADO

Вопрос: Подключение ADO Добавлено: 11.11.08 02:26

Автор вопроса: Aston | ICQ: 214-179-991

Всем привет.
Просьба подскажите кто знает. Немогу подключить адо к базе. Пишет что не удается найти указанного поставщика. Хотя я указал вроде всё правильно путь точно правильный.

Private Sub Form_Load()
Dim cn As ADODB.Connection
Set cn = New ADODB.Connection
cn.ConnectionString = "Provider=Microsoft.Jet.4.0;Data Sourse=E:\Testkyrs\Baza\baza.mdb"
cn.ConnectionString = "Driver=Microsoft Access Driver (*.mdb);DBQ=E:\Testkyrs\Baza\baza.mdb"
cn.Open ошибку выдаёт на открытие тое в этой строке, но она возникает в ConnectionString подскажите пожалуйста, что я мог сделать не так?
Ответить

Ответы Всего ответов: 2

Номер ответа: 1 Автор ответа: sne Разработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445	Web-сайт: hw.t-k.ru Профиль \| \| #1	Добавлено: 11.11.08 19:55
	ми так работает. Public m_db As ADODB.Connection Public Function DBConnect(ByVal szDataBase As String) As Boolean On Error GoTo err_h Set m_db = New ADODB.Connection m_db.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & szDataBase & _ ";Persist Security Info=False" Call m_db.Open DBConnect = True Exit Function err_h: DBConnect = False Set m_db = Nothing End Function Public Sub DBClose() If m_db Is Nothing Then _ Exit Sub Call m_db.Close Set m_db = Nothing End Sub а ошибку на открытие выдает потому что это ошибка на открытие там где ты присваиваешь строку подключения - никаких проверок, никаких действий не идет. Ответить

Номер ответа: 2 Автор ответа: Aston ICQ: 214-179-991 Вопросов: 42 Ответов: 272	Профиль \| \| #2	Добавлено: 11.11.08 22:50
	Спасибо - разобрался где ошибся и пример супер - хороший способ подключения Ответить

Страница: 1 |