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

@tomhardy96 · Регистрация: 31.10.2018

Студворк — интернет-сервис помощи студентам

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

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
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

@tomhardy96 · 27.12.2018, 16:30 **[ТС]**

Catstail, ещё я попытался написать код без использования элемента ADODC , но столкнулся с ошибкой другого рода

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Dim con As New ADODB.Connection
Dim rs As New ADODB.Recordset
 
Private Sub Command1_Click()
Form1.CommonDialog1.ShowOpen
Form1.Text1 = Form1.CommonDialog1.FileName
Form1.Text1.Visible = False
con.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Text1 & "; Persist Security Info=False;"
rs.CursorLocation = adUseClient
Call Combo1_Click
rs.Open strRequest, con, adOpenKeyset, adLockPessimistic, adCmdText
Set DataGrid1.DataSource = rs
DataGrid1.Refresh
Set rs = Nothing
 
End Sub
 
 
 
Private Sub Combo1_Click()
Dim strRequest As String
 
strRequest = " Select * FROM " & Combo1.List(Combo1.ListIndex)
 
End Sub

@Catstail · 27.12.2018, 17:28

Сообщение от tomhardy96

но столкнулся с ошибкой другого рода

- ничего удивительного... У Вас же strRequest - локальная переменная процедуры Combo1_Click. Перенесите оператор

Visual Basic
1
Dim strRequest As String

в самое начало модуля (после описания con и rs) - и эта ошибка должна исчезнуть.

@tomhardy96 · 28.12.2018, 16:27 **[ТС]**

спасибо за поправки. ещё добавил в Combo1_Click MsgBox и увидел, что явно присутствует синтаксическая ошибка в SQL-запросе, видимо где-то лишняя скобка или знак

@Catstail · 29.12.2018, 09:02

Вот эта строка:

Visual Basic
1
strRequest = " Select * FROM " & Combo1.List(Combo1.ListIndex)

не может быть верной. ListIndex - число, а на этом месте должно стоять имя таблицы

@coderxx · 29.12.2018, 15:39

ListIndex число но Combo1.List(Combo1.ListIndex) же строка, может быть имя таблицы не выбрано в Combo1.

@Catstail · 29.12.2018, 19:20

coderxx, а, верно. Тогда возможно, что listIndex=-1 (т.е. ничего не выбрано).

@tomhardy96 · 02.01.2019, 16:32 **[ТС]**

Catstail, вы правы, действительно присваивается значение -1, но я не могу ничего выбрать в Сombo, потому что он пустой, база не выгружается же. Да и без пошагового выполнения у меня банально нет возможности перейти на форму для выбора в Combo, так как сразу происходит ошибка

@Catstail · 02.01.2019, 18:05

Сообщение от tomhardy96

потому что он пустой, база не выгружается же

- так заполни его. В примере, который я выкладывал, первый комбо-бокс заполнялся.

@tomhardy96 · 08.01.2019, 09:46 **[ТС]**

извиняюсь , но про какой пример идёт речь?

Добавлено через 34 секунды
Catstail, извиняюсь, но про какой именно пример идёт речь?

@Catstail · 08.01.2019, 10:42

Я имел в виду это

Новые блоги и статьи Все статьи Все блоги /
Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .	Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .	Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0. Maks 31.08.2026 При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .	Архитектура биовида Стива в Майнкрафте: Зачем бонобо кубический каннибализм anaschu 30.08.2026 Кубический Вагинокапитализм в Minecraft: Математический инвариант ОДУ и рок Стивов-бонобо Главная задача разработанной «Модели Всего» — наглядно продемонстрировать наличие системной «судьбы». . .
Оттачиваю умение писать js программы. russiannick 30.08.2026 Проектом выходного дня стало написание Книги шифров Виженера. Итогом стала версия 200, синий туман. Синий туман назван так, потому что замораживает текст под собой. Нажатие синих кнопок управляют. . .	мат медиц модель 30. презентация проекта anaschu 27.08.2026 хоп хоп хоп хидахоп, а я кладую))	Как у меня протекала болезнь zorxor 27.08.2026 Здравствуйте, друзья! Эта запись блога предназначена именно для вас - для моих дорогих друзей, которые знали меня лично. Чтобы ответить на вопрос - а что же со мной произошло на самом деле? Я учился. . .	Нашел вот забавное видео о измерениях. Лучшее что я видел на эту тему kumehtar 26.08.2026 ILETXiw9bMQ Основная суть и тезисы по измерениям: 0D (Нулевое измерение): точка, не имеющая длины, ширины, высоты или объема. Объект не может перемещаться в 0D. 1D (Первое измерение):. . .

@tomhardy96 -1 / 0 / 0 Регистрация: 31.10.2018 Сообщений: 69
	28.12.2018, 16:27 [ТС]
	спасибо за поправки. ещё добавил в Combo1_Click MsgBox и увидел, что явно присутствует синтаксическая ошибка в SQL-запросе, видимо где-то лишняя скобка или знак Изображения 0

@coderxx 469 / 183 / 16 Регистрация: 25.02.2012 Сообщений: 418 Записей в блоге: 2
	29.12.2018, 15:39
	ListIndex число но Combo1.List(Combo1.ListIndex) же строка, может быть имя таблицы не выбрано в Combo1. 1

@Catstail Супер-модератор 38223 / 21155 / 4314 Регистрация: 12.02.2012 Сообщений: 34,766 Записей в блоге: 14
	29.12.2018, 19:20
	coderxx, а, верно. Тогда возможно, что listIndex=-1 (т.е. ничего не выбрано). 1

@tomhardy96 -1 / 0 / 0 Регистрация: 31.10.2018 Сообщений: 69
	02.01.2019, 16:32 [ТС]
	Catstail, вы правы, действительно присваивается значение -1, но я не могу ничего выбрать в Сombo, потому что он пустой, база не выгружается же. Да и без пошагового выполнения у меня банально нет возможности перейти на форму для выбора в Combo, так как сразу происходит ошибка 0

@tomhardy96 -1 / 0 / 0 Регистрация: 31.10.2018 Сообщений: 69
	08.01.2019, 09:46 [ТС]
	извиняюсь , но про какой пример идёт речь? Добавлено через 34 секунды Catstail, извиняюсь, но про какой именно пример идёт речь? 0

@Catstail Супер-модератор 38223 / 21155 / 4314 Регистрация: 12.02.2012 Сообщений: 34,766 Записей в блоге: 14
	08.01.2019, 10:42
	Я имел в виду это 0