ADOQuery

← →
Vikuksa (2002-08-20 15:43) [0]

txt := "SELECT DatePart("mm",[Входящие]![Дата_поступления]) AS months, Count([Входящие]![Дата_поступления]) AS Количество "+
"FROM Входящие WHERE (([Входящие]![Входящий_кому] ="10") AND (Входящие.Год=Year(Date())) AND "+
"((DatePart("mm",[Входящие]![Дата_поступления])>=DatePart("mm","""+data1+"""))and (DatePart("mm",[Входящие]![Дата_поступления])<=DatePart("mm","""+data2+""")) ))"+
"GROUP BY DatePart("mm",[Входящие]![Дата_поступления])ORDER BY DatePart("mm",[Входящие]![Дата_поступления]);";
ADOQuery.SQL.text := txt;

после ADOQuery.Open;
выдается: Invalid procedure call
ЧТО ЕТО???

← →
SaS13 (2002-08-20 16:02) [1]

Для ACCESS"а дату вводи через символы #:
DatePart("mm",""#"+data1+"#""))

← →
Vikuksa (2002-08-20 16:06) [2]

> SaS13 Он на автомате добавляет!

← →
SaS13 (2002-08-20 16:19) [3]

попробуй так:
txt := "SELECT DatePart(""mm"",[Дата_поступления]) AS months, Count([Дата_поступления]) AS [Количество] "+
"FROM [Входящие] WHERE [Входящий_кому] =""10"" AND [Год]=Year(Date()) AND "+
"DatePart(""mm"",[Дата_поступления]) >= DatePart(""mm"","""+data1+""") and DatePart("mm",[Дата_поступления]) <= DatePart("mm","""+data2+""") ))"+
"GROUP BY DatePart(""mm"",[Дата_поступления]) ORDER BY DatePart(""mm"",[Дата_поступления])";

ADOQuery Найти похожие ветки