ADOQuery Подсчет кол-ва значений

← →
JibSkeart (2003-12-16 18:08) [40]

тфу у тебя оказывается есть код .
а почемы ты все это в хранимую процедуру не завернул ?

← →
JibSkeart (2003-12-16 18:09) [41]

ADOCommand1.Execute :)

← →
My (2003-12-16 18:11) [42]

Я только учусь и не знаю как это сделать.
В результате при выполнении не вставляется запись.
нужно как-то активировать ADOCommand1.

← →
JibSkeart (2003-12-16 18:13) [43]

with ADOQueryKolPar do
begin
Close;
lek:=ADOQueryKolPar.FieldByName("Par").AsInteger;
pr2:=ADOQueryKolPar1.FieldByName("Par").AsInteger;
pr3:=ADOQueryKolPar2.FieldByName("Par").AsInteger;
Open;
end;

Что то этого я утебя там не увидел

← →
My (2003-12-16 18:16) [44]

Сейчас немного по другому
with ADOQueryKolPar do
begin
//////////
ADOQueryKolPar.Close;
SQL.Clear;
SQL.Add("select Count (Gruppa) as Par from Promej where Gruppa=:Gruppa and Tip="+QuotedStr("Лек"));
ADOQueryKolPar.Open;
//////////

lek:=ADOQueryKolPar.FieldByName("Par").AsInteger;
pr2:=ADOQueryKolPar1.FieldByName("Par").AsInteger;
pr3:=ADOQueryKolPar2.FieldByName("Par").AsInteger;
//--------------
end;
ShowMessage(Inttostr(ADOQueryKolPar.RecordCount));
но в ShowMessage всеравно вечная 1.

← →
JibSkeart (2003-12-16 18:17) [45]

Да добавить запись можно и через TADOQuery

ADOQuery.Close;
ADOQuery.SQL.Clear;
ADOQuery.SQL.Add("Insert into Promej (Prepod,Para,Gruppa,Aud,Tip,Smena) Values (1,1,1,1,1,1)");
ADOQuery.ExecSQL; -- так как возрашяет 0 записей :)

ADOQuery.Close;
ADOQuery.SQL.Clear;
ADOQuery.SQL.Add("Select Count(*) as cnt from Promej where Para = 1");
ADOQuery.Open;

ShowMessage(ADOQuery.FieldByName("cnt").AsString);

попробуй так хотябы .

← →
My (2003-12-16 18:26) [46]

с небольшой модификацией пошло
procedure TForm1.Button2Click(Sender: TObject);
begin
ADOQuery.Close;
ADOQuery.SQL.Clear;
ADOQuery.SQL.Add("Insert into Promej (Prepod,Para,Gruppa,Aud,Tip,Smena) Values (1,1,1,1,1,1)");
ADOQuery.ExecSQL;// -- так как возрашяет 0 записей :)

ADOQuery.Close;
ADOQuery.SQL.Clear;
ADOQuery.SQL.Add("Select Count(*) as cnt from Promej where Para ="+Quotedstr("1"));
ADOQuery.Open;

ShowMessage(ADOQuery.FieldByName("cnt").AsString);

end;
Спасибо БОЛЬШОЕ,ВСЕм за помощь, завтра доразберу, вахта уже приходит 3 раз.

← →
JibSkeart (2003-12-16 18:30) [47]

точно насчет этого топика JibSkeart © (16.12.03 18:13) [43]
я действительно ошибся :)

← →
My (2003-12-17 10:01) [48]

Уважаемые Мастера, большое спасибо, но все равно не понимаю, когда перенес в процедуру код
{ADOQueryKolPar.Close;
SQL.Clear;
SQL.Add("select Count (Gruppa) as Par from Promej where Gruppa=:Gruppa and Tip="+QuotedStr("Лек"));
ADOQueryKolPar.Open;}

то работает

но когда на форме в ADOQueryKolPar.SQL пишу запрос

select Count (Gruppa) as Par
from Promej
where Gruppa=:Gruppa
and Tip="Лек"

Active=True

то в ShowMessage(IntToStr(ADOQueryPromej.RecordCount));
всегда 0.

Получается, ему надо было просто перенести в процедуру, но ведь это должно быть без разницы.

← →
sniknik (2003-12-17 10:32) [49]

> {ADOQueryKolPar.Close;
SQL.Clear;
SQL.Add("select Count (Gruppa) as Par from Promej where Gruppa=: Gruppa and Tip="+QuotedStr("Лек"));
ADOQueryKolPar.Open;}

параметр не задаеш? работает, понятно. что возвращает? (только не RecordCount тут 1 должна быть а значение поля Par)

(неважно где запрос задан (место) результат одинаков если условия одинаковы (и данные, естественно))

← →
JibSkeart (2003-12-17 11:54) [50]

ADOQueryKolPar.ParamByName("Gruppa").Value = xxx;
ADOQueryKolPar.Open;

может быть так ?

ADOQuery Подсчет кол-ва значений Найти похожие ветки