[Aps]

Всем привет.
Проблема такая:
Мне для статистического отчета нужно чтобы программа считала записи с определенным содержанием и выводила количество (цифрой) таких записей например в QRLabel. В SQL не силен. Если кто может поделиться примером или дать ценный совет буду очень признателен.
Заранее спасибо!

[Ildar-tsr]

А связь с базой через какой компонент реализована?
И какая БД? Firebird, Access, MSSQL, Oracle?
Желательно еще имя таблицы и по какому параметру отбирать "нужные" записи, в каком поле это значение смотреть?

[Aps]

Акцес, подключение через адо.
Имя главной таблицы LichDan
считать например по гражданству, с российским грожданством.

[Ildar-tsr]

А как называется поле где указано гражданство? И какой тип данного поля?
Вот так будет делаться, надо только с запросом определиться:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var q: TADOQuery; //кверик, который будет возвращать количество "нужных" записей
begin
  q:= TADOQuery.Create(nil); //создаем кверик
  q.Connection:= ADOConnection1; //тут надо указать нужный connection
  q.SQL.Text:= ''; //задаем текст запроса
  q.Open; //открываем кверик
  QRLabel.Caption:= q.FieldByName('').AsString; //вставляем число записей в лэйбл
  q.Close; //закрываем кверик
  q.Free; //освобождаем кверик
end;

[Aps]

Поле так и называется гражданство, тип текстовый, размер 20.
Процедура понятна спасибо. И если не сложно с запросом помогите.

[Aristarh Dark]

Навскидку так будет:

Код:

SELECT Count([гражданство]) FROM LichDan
WHERE [гражданство] LIKE '%осси%'

"осси" - чтобы попадали и "Россия" и "Российская Федерация"

[Aps]

И сразу еще вопрос. Чтобы запрос работал работал не по нажатию на кнопку, а при открытии формы, то процедуру onCreate создать?

[Ildar-tsr]

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

Поле так и называется гражданство, тип текстовый, размер 20.
Процедура понятна спасибо. И если не сложно с запросом помогите.

Вообще тут простой запрос структура следующая:
select {что-то} from {откуда} where {тут задаются условия}
А для подсчета запись есть функция count()

Код:

q.SQL.Text:= 'select count(*) from LichDan where [гражданство] = '+QuotedStr('Российское');

QuotedStr возвращает строку с корректно проставленными апострофами.
А вообще это все конечно же не правильно, надо бы поле гражданство переделать на числовой тип, завести таблицу "Справочник гражданства" где будет храниться код и наименование и в таблице LichDan в поле гражданство хранить код.

[Aps]

Я бы так и сделал если бы знал, практики маловато. Недавно только начал программированием заниматься.
Спасибо всем за помощь.

[Ildar-tsr]

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

И сразу еще вопрос. Чтобы запрос работал работал не по нажатию на кнопку, а при открытии формы, то процедуру onCreate создать?

Нет, на onShow.