Форум программистов, компьютерный форум, киберфорум
C++ Builder: Базы данных
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.75/8: Рейтинг темы: голосов - 8, средняя оценка - 4.75
0 / 0 / 0
Регистрация: 09.09.2009
Сообщений: 9

Помогите с запросом SQL

09.09.2009, 22:39. Показов 1756. Ответов 6
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Здравствуйте. Ребята у меня такой к вам вопрос. Я делал базу в ней осуществлял поиск по четырём полям: фамилия (FAM), имя (IMA), отчество (OT), год (DATA). Это я делал с помощью фильтрации, т.е. вводил значения в Edit-ы и получал то что хотел. Вот код:
Code
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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
AnsiString filtr;
filtr="";
if (! this->Edit1->Text.IsEmpty())
{
filtr += AnsiString( "[FAM] like '" ) + this->Edit1->Text.Trim() + "*'" ;
}
 
if (! this->Edit2->Text.IsEmpty())
{
if ( ! filtr.IsEmpty())
filtr += " AND ";
else
filtr += "";
filtr += AnsiString( "[IMA] like '" ) + this->Edit2->Text.Trim() + "*'";
}
 
if (! this->Edit3->Text.IsEmpty())
{
if ( ! filtr.IsEmpty())
filtr += " and  ";
else
filtr += "";
 filtr += AnsiString( "[OT] like '" ) + this->Edit3->Text.Trim() + "*'";
 }
 
 if (! this->Edit4->Text.IsEmpty())
{
if ( ! filtr.IsEmpty())
filtr += " and  ";
else
filtr += "";
 filtr += AnsiString( "[DATA] like '" ) + this->Edit4->Text.Trim() + "*'";
}
try
 {
        ADOTable1->Filter = filtr;
        if ( ! ADOTable1->Filtered )
        {
                ADOTable1->Filtered = true;
        }
 }
 catch( Exception &e )
 {
        ShowMessage( "Какая-то ошибка" );
}


Теперь возникла нужда использовать запросы (SQL). Подскажите пожалуйста, как осуществить запрос с помощью SQL тоже через Edit-ы, т.е. вводишь значение в любой Edit и нажимаешь кнопку и производиться запрос который не зависит от комбинации заполненных Edit-ов. База MySQL. Если можно покажите пример. Да и ещё почему -то данный вид фильтрации не хочет работать в базе MySQL раньше работал в Акссес.
Спасибо.
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
09.09.2009, 22:39
Ответы с готовыми решениями:

Помогите с запросом INSERT в InterBase
Вопрос следующий. Создана БД в InterBase CREATE TABLE "AS_TETRAD" ( "STATIA" CHAR(40) NOT NULL, "PRIHOD" ...

Вставка картинки в базу SQL запросом
Доброе время суток! Не получается вставить картинку в БД Paradox7 Bd->Query1->Close(); ...

Запись файла в BLOB поле SQL запросом
Имеется код для записи файла в BLOB поле с помощью ADOTable ADOTable2->Active=true; ADOTable2->Append(); TMemoryStream *M = new...

6
Почетный модератор
 Аватар для Lord_Voodoo
8785 / 2538 / 144
Регистрация: 07.03.2007
Сообщений: 11,873
09.09.2009, 22:54
alesoleg, не работает, потому что есть различия в языках запросов этих баз... а вообще как на счет познаний sql?
0
0 / 0 / 0
Регистрация: 09.09.2009
Сообщений: 9
09.09.2009, 23:26  [ТС]
На начальном уровне.
0
Почетный модератор
 Аватар для Lord_Voodoo
8785 / 2538 / 144
Регистрация: 07.03.2007
Сообщений: 11,873
10.09.2009, 00:21
ничего сложного нет, все методы практически идентичны TADOTable... просто нужно записать в свойство SQL запрос и Open (для выборок) или ExecSQL (для остальных запросов)... большее вы найдете по кнопке f1... если что будент не выходить, пиши...
0
 Аватар для Sasha
4956 / 2420 / 531
Регистрация: 05.06.2008
Сообщений: 7,518
Записей в блоге: 3
10.09.2009, 10:56
Вот тебе пример в помощь

C++
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
void __fastcall TFindInvent_Number::Edit1Change(TObject *Sender)
{
    Edit1->MaxLength = 5;
    if(Edit1->Text.IsEmpty())
   {
    MainForm->ADOQuery1->Close();
    MainForm->ADOQuery1->SQL->Clear();
    MainForm->ADOQuery1->SQL->Add("Select * from Glavnaya ORDER BY Invent_Number");
    MainForm->ADOQuery1->Open();
    SpeedButton1->Enabled = false;
    SpeedButton2->Enabled = false;
   }
   else
   {
    MainForm->ADOQuery1->Close();
    MainForm->ADOQuery1->SQL->Clear();
    MainForm->ADOQuery1->SQL->Add("Select * from Glavnaya WHERE Invent_Number LIKE '"+Edit1->Text+"%' ORDER BY Invent_Number");
    MainForm->ADOQuery1->Open();
    SpeedButton1->Enabled = true;
    SpeedButton2->Enabled = true;
   }
    if (MainForm->ADOQuery1->RecordCount ==1||MainForm->ADOQuery1->RecordCount ==0)
     {ShowScrollBar(MainForm->DBGrid1->Handle,SB_VERT,false);}
     else
     {ShowScrollBar(MainForm->DBGrid1->Handle,SB_VERT,true);}
0
0 / 0 / 0
Регистрация: 09.09.2009
Сообщений: 9
10.09.2009, 21:32  [ТС]
Всем спасибо, всё сделал, всё работает.
0
125 / 116 / 17
Регистрация: 27.02.2007
Сообщений: 291
10.09.2009, 21:52
http://forum.codenet.ru/showth... post296508
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
10.09.2009, 21:52
Помогаю со студенческими работами здесь

Помогите с запросом в SQL !!!
Помогите, пожалуйста решить проблему в SQL: есть Table1 с ключевым полем ID и привязаная к ней по ID Table2 (один ко многим). В Table2...

Помогите с sql запросом
запрос "телефон Nokia N73" необходимо найти все записи в таблице, где всртечаются все слова запроса Типа select id from table where...

Помогите с SQL запросом
У меня есть таблица в которой оргинизовано иерархическое меню, мне нужен запрос, который бы выбирал все элементы и под-элементы какой либо...

Помогите со сложным SQL запросом.
Есть таблица вида: cntr fld1 fld2 fld3 ... 5 15.11.01 IN avr 6 16.11.01 OUT avr 7 17.11.01 IN avr 8 18.11.01 OUT avr ...

помогите с SQL-запросом в Paradox (преобразовать к верхнему регистру)
Досталась база парадокс с полем txt типа String. Данные там введены в разных регистрах. как мне правильно сформировать запрос, чтоб...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Новые блоги и статьи
Уведомление о неверно выбранном значении справочника
Maks 06.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .
Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt
8Observer8 05.04.2026
Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .
AkelPad-скрипты, структуры, и немного лирики..
testuser2 05.04.2026
Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .
Отображение реквизитов в документе по условию и контроль их заполнения
Maks 04.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .
Фото всей Земли с борта корабля Orion миссии Artemis II
kumehtar 04.04.2026
Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .
Вывод диалогового окна перед закрытием, если документ не проведён
Maks 04.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .
Программный контроль заполнения реквизитов табличной части документа
Maks 02.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .
wmic не является внутренней или внешней командой
Maks 02.04.2026
Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru