|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
29.05.2011, 15:00 | #1 |
Пользователь
Регистрация: 24.05.2011
Сообщений: 12
|
Проблема с sql запросом
Здраствуйте! помогите пожалуйста сделать запрос.
Есть 4 CheckListBox по клику мыши в них появляется информация из разных таблиц по нажатию на кнопку надо вывести выбранную информацию на форму в dbgrid. Запрос должен быть как во вложении. Есть код который выбирает по одному CheckListBox и одной таблице: [CODE] var s:STRING; i,k:integer; begin with Form1.ADOQuery2 do begin close; k:=0; SQL.Clear; SQL.Add ('SELECT Вуз.№, Вуз.[Название вуза], Вуз.[Название специальности], Вуз.[Форма обучения], Вуз.[Вид обучения], Вуз.[Конкурс прошлого года], Вуз.[Плата за обучение]'); SQL.Add (' FROM Вуз '); s:=''; for i:=0 to CheckListBox1.Items.Count - 1 do if CheckListBox1.Checked[i] then begin if k=0 then s:=s+(' [Название вуза] ="'+CheckListBox1.Items[i]+'"') ELSE s:=s+(' OR [Название вуза] ="'+CheckListBox1.Items[i]+'"'); k:=1; END; if s<>'' then SQL.Add(' where '+s+';'); Open; Datasource1.dataset:=AdoQuery2; Последний раз редактировалось CRASH040; 30.05.2011 в 12:47. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Проблема с запросом SQL | lyle_200490 | SQL, базы данных | 2 | 20.11.2010 08:09 |
Проблема с SQL-запросом | stscolt | БД в Delphi | 5 | 19.02.2010 16:47 |
Проблема с SQL запросом | Bilargo | БД в Delphi | 4 | 27.11.2009 19:10 |
Проблема с SQL Запросом | Worms | БД в Delphi | 7 | 13.01.2008 23:09 |