Запрос на подсчет записей за период - БД в Delphi

Luna_13 · 13.10.2008, 11:22

Есть таблица
В ней поля
Фамилия, Возраст, Дата поступления
Есть два EDIt в которые вводим дату поступления "от" и "до" по которым будем искать пациентов поступивших в такой период
Нужно чтобы в DBGrid выводились именно эти записи в этот период и подсчитывалось количество таких записей
Так делаю не получается, подскажите пож как нужно

Код:

procedure TForm2.BitBtn1Click(Sender: TObject);
begin
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add('Select count(FamPac),vozr, data_postupl from FamPac.db where Data_Postupl  beetween "'+Edit1.Text+'" and "'+Edit2.Text+'");
Query1.Open;
end;

mihali4 · 13.10.2008, 12:35

Код:

procedure TForm2.BitBtn1Click(Sender: TObject);
var count: integer;
begin
Query1.Close;
Query1.SQL.Text:='Select vozr, data_postupl from FamPac.db where Data_Postupl  beetween "'+Edit1.Text+'" and "'+Edit2.Text+'";
Query1.Open;
count:=Query1.RecordCount;
end;

Luna_13 · 13.10.2008, 22:54

Цитата:

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

Код:

procedure TForm2.BitBtn1Click(Sender: TObject);
var count: integer;
begin
Query1.Close;
Query1.SQL.Text:='Select vozr, data_postupl from FamPac.db where Data_Postupl  beetween "'+Edit1.Text+'" and "'+Edit2.Text+'";
Query1.Open;
count:=Query1.RecordCount;
end;

Выдает такую ошибку(((
[Error] Unit2.pas(58): Unterminated string

mihali4 · 13.10.2008, 23:58

Ну уж такие-то вещи...
Приводим в порядок все кавычки:
'Select vozr, data_postupl from FamPac.db where Data_Postupl beetween '+QuotedStr(Edit1.Text)+' and '+QuotedStr(Edit2.Text);

13.10.2008, 11:22	#1
Luna_13 Пользователь Регистрация: 19.09.2008 Сообщений: 13	Запрос на подсчет записей за период Есть таблица В ней поля Фамилия, Возраст, Дата поступления Есть два EDIt в которые вводим дату поступления "от" и "до" по которым будем искать пациентов поступивших в такой период Нужно чтобы в DBGrid выводились именно эти записи в этот период и подсчитывалось количество таких записей Так делаю не получается, подскажите пож как нужно Код: `procedure TForm2.BitBtn1Click(Sender: TObject); begin Query1.Close; Query1.SQL.Clear; Query1.SQL.Add('Select count(FamPac),vozr, data_postupl from FamPac.db where Data_Postupl beetween "'+Edit1.Text+'" and "'+Edit2.Text+'"); Query1.Open; end;`

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Статистический подсчет.	Reecon	Microsoft Office Excel	8	23.04.2009 13:53
Подсчет траффика	joker	Win Api	9	11.01.2009 13:29
подсчет записей в базе	1234	Общие вопросы Delphi	5	15.09.2008 13:52
запрос ссылается на несвязанный с ним запрос	kolebatel	SQL, базы данных	0	11.06.2008 12:50
Подсчет	r2n	Общие вопросы Delphi	4	01.05.2007 05:48

13.10.2008, 23:58	#4
mihali4 * Старожил Регистрация: 22.11.2006 Сообщений: 9,201	Ну уж такие-то вещи... Приводим в порядок все кавычки: 'Select vozr, data_postupl from FamPac.db where Data_Postupl beetween '+QuotedStr(Edit1.Text)+' and '+QuotedStr(Edit2.Text);