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

Вниз

Не хватает какой-то записи!!!!   Найти похожие ветки 

← →
Shirson   (2002-02-27 14:17) [2]


query1.close;
query1.SQL.Add("select sum(price) "SumPrice",Company,GroupTov, AdvrtName,ConstrType from comcon2.db where GroupTov="""+Edit1.Text+""" group by Company, AdvrtName, ConstrType,GroupTov");
query1.Open;

Query1.First;
While not Query1.Eof do
begin
XArr[1]:=Query1.FieldByName("SumPrice").AsString;
XArr[2]:=Query1.FieldByName("AdvrtName").AsString;
XArr[3]:=Query1.FieldByName("ConstrType").AsString;
XArr[4]:=Query1.FieldByName("GroupTov").AsString;


---

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

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

Наверх

Память: 0.43 MB
Время: 0.004 c