Вопросы по ADO, ADOQuery, DBGrid, ComboBox

@xopkep · Регистрация: 28.07.2009

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

Здравья, господа и дамы.
Я в C++ пока еще совсем зелен, но стараюсь... И вот у меня возикли вопросики.
Я делаю некий телефонно-технический справочник и соответственно работаю с базами.
Выбор пал на ADO+MDB (MS Access), так как его советуют для большей совместимости и простоты юза на разных машинах.
В связи этим, вот:
1. Список таблиц выводится в ComboBox:

C++
1
2
3
4
5
void __fastcall TForm1::FormCreate(TObject *Sender)
{
        DMod1->ADOConnection1->GetTableNames(ComboBox1->Items);
        ComboBox1->ItemIndex=0;
}

Вопрос: как при смене (выборе) таблицы в ComboBox, изменить содержимое DBGrid1?
2. Я пыался сделать поиск через ADOQuery примерно так:

C++
1
2
3
4
5
6
7
                ADOQuery1->SQL->Add("SELECT * FROM ");
                ADOQuery1->SQL->Add("\047" + ListBox1->Items->Strings[ListBox1->ItemIndex] + "\047;");
//                ADOQuery1->SQL->Add(" WHERE (");
//                ADOQuery1->SQL->Add(Form1->ComboBox2->Text + " = " + Form1->Edit1->Text + ")");
                ShowMessage (">> " + ADOQuery1->SQL->Text + " <<" );
//                ADOQuery1->ExecSQL();
                ADOQuery1->Open();

(Закомментированые строки - некоторые попытки)
Но получал вот такую ошибку:

Project NAMEPROJECT.exe raised exception class EOleException with message 'Синтаксическая ошибка в запросе. Неполное предложение запроса'.

Такая ошибка присутствует даже при запросе

SELECT * FROM 'tablename'

Отсюда несколько вопросов: Может ли такая ошибка быть из-за того, что у меня таблицы названы по-русски? Где искать документацию по составлению запросов? Я SQL знаю довольно прилично, но что-то это не помогает с этим ADOQuery...
3. Почему кнопки DBNavigator не активны, а изменения вносятся спокойно?
4. Как привязать базу к относительному пути? Т.е. чтобы искала программа ее в своей папке. Хотя это так, могу и сам нагуглить ;)

P.S. Первая попытка была с BDE и там почти всё получилось. Однако потом я вычитал, что слишком много мороки с BDE на пользовательских машинах (где нет билдера) и стал юзать ADO.
P.P.S. Прошу ткнуть носом в документацию, где написано что может то или иное существо, по типу ADOQuery1->блабла... и DBGrid1->блабла... Например требуется аналог Table->Close(), типа DBGrid->Close(), но такого нет и не знаю шо юзать :(
С Уважением, хоря.

@Lord_Voodoo · 12.05.2011, 22:22

1) нужно подменить имя таблицы в свойстве TableName класса таблицы, либо в тексте запроса класса sql-запроса
2) какой тип данных поля, по которому идет поиск(для строковых и дат нужно обрамлять значение одинарными кавычками)
3) навигатор только предоставляет инструментарий для манипуляций данными, больше он никак на TDBGrid не влияет
4) Application->ExeName (полный путь к исполняемому файлу)

@xopkep · 12.05.2011, 22:36 **[ТС]**

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

2) какой тип данных поля, по которому идет поиск(для строковых и дат нужно обрамлять значение одинарными кавычками)

Так оно обрамлено - \047 и все равно ошибка. Я пробовал и двойной кавычкой и апострофом. тип данных... varchar собсна.

@Lord_Voodoo · 12.05.2011, 22:40

xopkep, в вашем коде обрамлено имя таблицы, а не значение искомого поля... а вообще в базе самой пробовали ваш запрос выполнять?

@xopkep · 13.05.2011, 06:26 **[ТС]**

Lord_Voodoo, таблицу я тоже оборачиваю в кавычки, там русские имена с пробелами. естественно что и запрос будет обернут ибо в нем могут быть пробелы. в самой базе запрос SELECT * FROM 'tablename' выдает то, что ожидается, т.е. все записи таблицы, в программе выдает синтаксическую ошибку

@xopkep · 15.05.2011, 16:21 **[ТС]**

Обрамление нифига не помогает. в упор не делается селект никакой.

Lord_Voodoo, А за 1) и 4) спасибо, сделал.

C++
1
ADOTable1->TableName = ListBox1->Items->Strings[ListBox1->ItemIndex];

(Поменял выбор таблицы в комбобоксе на выбор в листбоксе)

C++
1
2
3
4
        String WayToBase=ExtractFilePath(Application->ExeName)+"data.db";
        ADOConnection1->Connected = false;
        ADOConnection1->ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Password="";User ID=Admin;Data Source="+WayToBase+";Mode=ReadWrite;Extended Properties="";Jet OLEDB:System database="";Jet OLEDB:Registry Path="";Jet OLEDB:Database Password="";Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False";
        ADOConnection1->Connected = true;

Так выглядит поиск базы в текущей папке и задание ConnectionString...

Кстати DBNafigator убрал совсем ибо не нужен. Осталась проблема с поиском (ака SQL-запросом)

@Sasha · 15.05.2011, 16:40

Тебе надо через Edit совершить поиск? в любой таблице?

@xopkep · 15.05.2011, 16:46 **[ТС]**

Ну грубо говоря да. Но у меня не получается выборку сделать даже в одной таблице.

@Sasha · 15.05.2011, 16:52

Вот тебе пример переделай под себя

C++
1
2
3
4
ADOQuery1->Close();
ADOQuery1->SQL->Clear();
ADOQuery1->SQL->Add("Select * from Glavnaya WHERE  Number_in_Lan LIKE '"+Edit1->Text+"'");
ADOQuery1->Open();

@xopkep · 15.05.2011, 17:12 **[ТС]**

C++
1
2
3
4
ADOQuery1->Close();
ADOQuery1->SQL->Clear();
ADOQuery1->SQL->Add("Select * from 'Магистраль М-1' WHERE pairs LIKE '"+Edit1->Text+"'");
ADOQuery1->Open();

На скрине привычный уже ответ: "Синтаксическая ошибка в запросе. Неполное предложение запроса"

@Sasha · 15.05.2011, 17:55

Во-первых убери одинарные кавычки.
Во-вторых убери пробел между Магистраль и М-1;
В-третьих переименую имя таблицы на латинницу.
В твоём случае рабочий вариант будет такой, но только тогда, когда переименуешь имя таблицы

C++
1
2
3
4
ADOQuery1->Close();
ADOQuery1->SQL->Clear();
ADOQuery1->SQL->Add("Select * from Magistral_M-1 WHERE pairs LIKE '"+Edit1->Text+"'");
ADOQuery1->Open();

@xopkep · 15.05.2011, 20:30 **[ТС]**

Все это гребанный аксес... таблицу надо брать в [скобки]. уже переименовал в ангельские (только теперь придется ще гуглить как алиасы для листбокс\комбобокс писать), однако если взять таблицу в [], то и с русскими работает.
Теперь проблема в том, что "11" != "1/11", но наверное это уже вопрос к аксесу а не в эту ветку.

@Sasha · 15.05.2011, 23:28

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

Теперь проблема в том, что "11" != "1/11", но наверное это уже вопрос к аксесу а не в эту ветку.

Что это за условие?

@xopkep · 16.05.2011, 06:33 **[ТС]**

Если я ищу 11 пару первой магистрали, там получается типа так:

SQL
1
2
3
SELECT *
FROM [magistral-m1]
WHERE pairs LIKE "%11%"

А в базе забито 1/11, что не совпадает с 11, *11* или %11%.

@Sasha · 16.05.2011, 09:05

А так?

C++
1
WHERE pairs LIKE "1%"

или так

C++
1
WHERE pairs LIKE "1*"

@xopkep · 16.05.2011, 19:30 **[ТС]**

"1%" ищет и находит все 1* , но... 11 оно уже не найдет же.

@MsGuns · 17.05.2011, 09:39

перебирайте условия кляузами or:
aaa like '%11%' or aaa like '_/%' и т.д.

@xopkep · 17.05.2011, 20:01 **[ТС]**

Кляузами я не уметь, сделал через OR и на этом пока остановился. Есть несколько других заморочек, которые надо активно гуглить или создавать темку здесь

@xopkep · 21.05.2011, 12:16 **[ТС]**

Подведем итог для закрытия темы

1. Список таблиц выводится в ComboBox:

C++
1
2
        DMod1->ADOConnection1->GetTableNames(ComboBox1->Items);
        ComboBox1->ItemIndex=0;

Содержимое DBGrid1 меняется примерно так:

C++
1
ADOTable1->TableName = ComboBox1->Items->Strings[ComboBox1->ItemIndex];

2. Затык в поиске через SQL-запросы, оказался в синтаксисе самого SQL для MSAccess. Это все же к аксесу вопросы уже.

3. ХЗ. Удалил нафик этот нафигатор.

4. Привязка к относительному пути у меня получилась такая:

C++
1
2
3
4
        String WTBase=ExtractFilePath(Application->ExeName)+"data.db";
        Form1->ADOConnection1->Connected = false;
        Form1->ADOConnection1->ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Password="";User ID=Admin;Data Source="+WTBase+";Mode=ReadWrite;Extended Properties="";Jet OLEDB:System database="";Jet OLEDB:Registry Path="";Jet OLEDB:Database Password="";Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False";
        Form1->ADOConnection1->Connected = true;

База ищется в папке программы.
Всем спасибо, тема закрыта.

(все свободны

)

Новые блоги и статьи Все статьи Все блоги /
Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка SDL3 и Box2D из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .
Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»

@Lord_Voodoo Почетный модератор 8785 / 2538 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	12.05.2011, 22:22
	1) нужно подменить имя таблицы в свойстве TableName класса таблицы, либо в тексте запроса класса sql-запроса 2) какой тип данных поля, по которому идет поиск(для строковых и дат нужно обрамлять значение одинарными кавычками) 3) навигатор только предоставляет инструментарий для манипуляций данными, больше он никак на TDBGrid не влияет 4) Application->ExeName (полный путь к исполняемому файлу) 1

@Lord_Voodoo Почетный модератор 8785 / 2538 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	12.05.2011, 22:40
	xopkep, в вашем коде обрамлено имя таблицы, а не значение искомого поля... а вообще в базе самой пробовали ваш запрос выполнять? 0

@xopkep 0 / 0 / 0 Регистрация: 28.07.2009 Сообщений: 17
	13.05.2011, 06:26 [ТС]
	Lord_Voodoo, таблицу я тоже оборачиваю в кавычки, там русские имена с пробелами. естественно что и запрос будет обернут ибо в нем могут быть пробелы. в самой базе запрос *SELECT FROM 'tablename'** выдает то, что ожидается, т.е. все записи таблицы, в программе выдает синтаксическую ошибку 0

@Sasha 4956 / 2420 / 531 Регистрация: 05.06.2008 Сообщений: 7,518 Записей в блоге: 3
	15.05.2011, 16:40
	Тебе надо через Edit совершить поиск? в любой таблице? 0

@xopkep 0 / 0 / 0 Регистрация: 28.07.2009 Сообщений: 17
	15.05.2011, 16:46 [ТС]
	Ну грубо говоря да. Но у меня не получается выборку сделать даже в одной таблице. 0

@xopkep 0 / 0 / 0 Регистрация: 28.07.2009 Сообщений: 17
	15.05.2011, 20:30 [ТС]
	Все это гребанный аксес... таблицу надо брать в [скобки]. уже переименовал в ангельские (только теперь придется ще гуглить как алиасы для листбокс\комбобокс писать), однако если взять таблицу в [], то и с русскими работает. Теперь проблема в том, что "11" != "1/11", но наверное это уже вопрос к аксесу а не в эту ветку. 0

@xopkep 0 / 0 / 0 Регистрация: 28.07.2009 Сообщений: 17
	16.05.2011, 19:30 [ТС]
	"1%" ищет и находит все 1* , но... 11 оно уже не найдет же. 0

@MsGuns 1497 / 1238 / 245 Регистрация: 04.04.2011 Сообщений: 4,363
	17.05.2011, 09:39
	перебирайте условия кляузами or: aaa like '%11%' or aaa like '_/%' и т.д. 0

@xopkep 0 / 0 / 0 Регистрация: 28.07.2009 Сообщений: 17
	17.05.2011, 20:01 [ТС]
	Кляузами я не уметь, сделал через OR и на этом пока остановился. Есть несколько других заморочек, которые надо активно гуглить или создавать темку здесь 0