Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Базы данных
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 11.04.2012, 09:42
Aps Aps вне форума
Прохожий
 
Регистрация: 06.04.2012
Сообщения: 21
Репутация: 10
Печаль Помогите с запросом

сам запрос:
Код:
1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.Button1Click(Sender: TObject);
var q: TADOQuery;
begin
q:= TADOQuery.Create(nil);
q.Connection:= fDM.ADOConnection1;
q.SQL.Text:= 'select count(*) as cnt from LichDan where [Увольнение] ='+QuotedStr('По статье');
q.Open;
Label15.Caption:= q.FieldByName('cnt').Asstring;
q.Close;
q.Free;
end;

Мне нужно добавить отбор по еще одному столбцу этой же таблици, например по полю должность с записью инженер.
Пробовал сделать но практики не хватает, кому не сложно помогите пожалуйста.
заранее спасибо.
Ответить с цитированием
  #2  
Старый 11.04.2012, 09:45
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
Восклицание

SELECT statement
"c:\Program Files\Common Files\Borland Shared\BDE\LOCALSQL.HLP"
__________________
Пишу программы за еду.
__________________
Ответить с цитированием
  #3  
Старый 11.04.2012, 09:50
Aps Aps вне форума
Прохожий
 
Регистрация: 06.04.2012
Сообщения: 21
Репутация: 10
По умолчанию

Справка это конечно хорошо, но мне она как то не очень помогла с запросом)))
Ответить с цитированием
  #4  
Старый 11.04.2012, 09:57
Aps Aps вне форума
Прохожий
 
Регистрация: 06.04.2012
Сообщения: 21
Репутация: 10
По умолчанию

Код:
1
2
q.SQL.Text:= 'select count(*) as cnt from LichDan where [Увольнение] ='+QuotedStr('По статье') and
'select count(*) as cnt from LichDan where [Должность]='+QuotedStr('Инженер');
выдает ошибку: [Error] Glavnai.pas(151): Operator not applicable to this operand type
Ответить с цитированием
  #5  
Старый 11.04.2012, 10:20
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
Стрелка

а так:
Код:
1
q.SQL.Text:= 'select count(*) as cnt from LichDan where [Увольнение] ='+QuotedStr('По статье')+' and [Должность]='+QuotedStr('Инженер');
кста, на счет count(*) можно похоливарить
__________________
Пишу программы за еду.
__________________
Ответить с цитированием
Этот пользователь сказал Спасибо NumLock за это полезное сообщение:
Aps (11.04.2012)
  #6  
Старый 11.04.2012, 10:26
Aps Aps вне форума
Прохожий
 
Регистрация: 06.04.2012
Сообщения: 21
Репутация: 10
По умолчанию

Компильнулся, но при нажатии на кнопку вылетает ошибка несоответствие типов данных в выражении условия отбора...
Ответить с цитированием
  #7  
Старый 11.04.2012, 10:34
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
Смех

ну приведи в соответствие
__________________
Пишу программы за еду.
__________________
Ответить с цитированием
  #8  
Старый 11.04.2012, 10:37
Aps Aps вне форума
Прохожий
 
Регистрация: 06.04.2012
Сообщения: 21
Репутация: 10
По умолчанию

Это косяк с полями?
Ответить с цитированием
  #9  
Старый 11.04.2012, 10:46
Aps Aps вне форума
Прохожий
 
Регистрация: 06.04.2012
Сообщения: 21
Репутация: 10
По умолчанию

Спасибо. нашел касяк в типе данных поля.
Ответить с цитированием
  #10  
Старый 11.04.2012, 10:48
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
Вопрос

точно поля в [] надо? какая БД?
__________________
Пишу программы за еду.
__________________
Ответить с цитированием
  #11  
Старый 11.04.2012, 14:56
Aps Aps вне форума
Прохожий
 
Регистрация: 06.04.2012
Сообщения: 21
Репутация: 10
По умолчанию

Работает, просто тип данных не воспринимал.
Код:
1
q.SQL.Text:= 'select count(*) as cnt from LichDan where [Увольнение] ='+QuotedStr('По статье')+' and [Должность]='+QuotedStr('Инженер');
а мне вот стало интересно, как к этому запросу добавить отбор еще по одному полю?
Ответить с цитированием
  #12  
Старый 11.04.2012, 14:59
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
Хорошо

еще один and
__________________
Пишу программы за еду.
__________________
Ответить с цитированием
  #13  
Старый 11.04.2012, 15:10
Aps Aps вне форума
Прохожий
 
Регистрация: 06.04.2012
Сообщения: 21
Репутация: 10
По умолчанию

пробовал так
Код:
1
q.SQL.Text:= 'select count(*) as cnt from LichDan where [Увольнение] ='+QuotedStr('По статье')+'and [Должность]='+QuotedStr('Инженер')+'and [Должность]='+QuotedStr('Монтажник');
Программа компилируется, но кусок запроса после последнего end не работает и ошибок ни каких не выдает. В чем может быть проблема?
Ответить с цитированием
  #14  
Старый 11.04.2012, 15:16
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
Плохо

у тебя условие сейчас получилось:
"Увольнение"="По статье" and "Должность"="Инженер" and "Должность"="Монтажник"
чувствуешь?
__________________
Пишу программы за еду.
__________________
Ответить с цитированием
  #15  
Старый 11.04.2012, 15:18
Aps Aps вне форума
Прохожий
 
Регистрация: 06.04.2012
Сообщения: 21
Репутация: 10
По умолчанию

И что с этим делать? Не пойму что я пропустил
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 22:10.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025