Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Базы";
Текущий архив: 2004.01.13;
Скачать: [xml.tar.bz2];

Вниз

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;

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



Страницы: 1 2 вся ветка

Форум: "Базы";
Текущий архив: 2004.01.13;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.53 MB
Время: 0.009 c
1-37719
ыыыыыыыыыы
2003-12-30 17:03
2004.01.13
Паузы в работе программы


6-37828
Денисыч
2003-11-11 13:49
2004.01.13
Ошибка 12018


14-37854
Style
2003-12-22 22:32
2004.01.13
Оцените движок сайта


1-37798
ghg
2003-12-28 11:57
2004.01.13
TPersistent.Assign


8-37799
Scote
2003-09-14 20:55
2004.01.13
Нестандартное расширение битмапа





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский