Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Последние темы форума

Показать новые сообщения »

Почтовая рассылка

Подписчиков: 6460
Последний выпуск: 19.06.2015

Проблемы с ADO при подключении базы данных в Visual Basic 6

88K
21 декабря 2018 года
YuriSemin
3 / / 21.12.2018
Всем доброго времени суток! Как-то уже обращался к форумчанам с подобной проблемой, но не нашёл отклика. Проблема следующая: в VB6 создаю форму, при помощи которой я вывожу базу данных Access в DataGridView по выбору через CommonDialog. Без использования CommonDialog по аналогичному алгоритму база данных беспроблемно отображается в Grid. При попытке использовать CommonDialog для работы с множетсвами баз возникает ADO-ошибка, связанная с построением SQL-запроса(как я предполагаю).
Ниже приведу код, который я использую(если в нём увидите синтаксические ошибки - не обращайте внимания : я переехал на другой системник и ещё не успел поставить Basic , код набирал в Блокноте). Заранее спасибо за помощь!

Код:
Option Explicit
Dim strRequest As String

Private Sub Combo1_Click()
Dim strRequest As String

strRequest = " Select * FROM " & Combo1.List(Combo1.ListIndex & " "

End Sub


Private Sub Text1_DblClick()

CommonDialog1.ShowOpen
Text1 = CommonDialog1.FileName
Adodc1.ConnectionString = "Provider = Microsoft.ACE.OLEDB.12.0;Data Source = " & Text1 & "; Persist Security Info = False;"
Combo1.Enabled = True
Adodc1.RecordSource = strRequest
Adodc1.CommandType = 4
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1.Recordset
DataGrid1.Refresh
End Sub
326
22 декабря 2018 года
UserNet2008
748 / / 03.04.2010
Text1- в таком контексте это объект Variant/String
Text1.Text - гарантирует String
Для страховки Trim(Text1.Text)
88K
26 декабря 2018 года
YuriSemin
3 / / 21.12.2018
Цитата: UserNet2008
Text1- в таком контексте это объект Variant/String
Text1.Text - гарантирует String
Для страховки Trim(Text1.Text)

указание в данном месте типа на чтение Бэйсиком кода и его работоспособность не влияет , как по мне

326
26 декабря 2018 года
UserNet2008
748 / / 03.04.2010
Цитата: YuriSemin

указание в данном месте типа на чтение Бэйсиком кода и его работоспособность не влияет , как по мне

Цитата:
Строковые данные, которые могут интерпретироваться как числа.

ссылка
Adodc1.ConnectionString = String & Variant & String
Вы выше печатали если вставить путь к BD без диалога, то все работает, что мешает проверить?

88K
27 декабря 2018 года
YuriSemin
3 / / 21.12.2018
Цитата: UserNet2008
Цитата: YuriSemin

указание в данном месте типа на чтение Бэйсиком кода и его работоспособность не влияет , как по мне

Цитата:
Строковые данные, которые могут интерпретироваться как числа.

ссылка
Adodc1.ConnectionString = String & Variant & String
Вы выше печатали если вставить путь к BD без диалога, то все работает, что мешает проверить?

немного не понял ваш посыл :что именно я должен проверить?

Знаете кого-то, кто может ответить? Поделитесь с ним ссылкой.

Ваш ответ

Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог