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




Вниз

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


Draculenok   (2002-02-27 14:12) [0]

Здравствуйте программеры!!!!!!
для создания отчета в Excele пишу вот такой кусок кода!!


query1.close;
query1.SQL.Add("select sum(price),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[2]:=Query1.FieldByName("AdvrtName").AsString;
XArr[3]:=Query1.FieldByName("ConstrType").AsString;
XArr[4]:=Query1.FieldByName("GroupTov").AsString;
..........


все идет нормально все данные которые получаются из Query он заносит правильно через FieldbyName ...

подскажите а если у меня в query sum(Price) то он не отражается как можно закинуть sum(price) в ячейку?



Balu   (2002-02-27 14:15) [1]

Так подойдет?
...
query1.SQL.Add("select sum(price) AS SumPrice, Company,GroupTov,
...
XArr[5]:=Query1.FieldByName(" SumPrice").AsString;
..........



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;



Shirson   (2002-02-27 14:18) [3]


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;



Shirson   (2002-02-27 14:19) [4]


query1.close;
query1.SQL.Add("select sum (price) "+ quotedstr("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;



Shirson   (2002-02-27 14:21) [5]

Блин... прошу прощения за дапы - форум что-то странно себя повел. Последний вариант верен.



Draculenok   (2002-02-27 14:27) [6]

>>>>>Shirson ©
query1.SQL.Add("select sum (price) "+quotedstr("SumPrice")+" ,Company,GroupTov, AdvrtName,ConstrType from comcon2.db where
он пишет ошибка почему то послевыделеннго он остальные поля из базы не вытаскивает
потом припередаче показывает что нечем заполнять а именно Company,GroupTov, AdvrtName,ConstrType



Draculenok   (2002-02-27 14:29) [7]

пишет что "+quotedstr("SumPrice")+" не правильно выбран (типа такого нет)....



Draculenok   (2002-02-27 14:32) [8]

>>>>>>>>>>>>>Balu ©
спасибо большое получилось как надо!!!!!!!!!!!
благодарю........




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




Наверх





Память: 0.73 MB
Время: 0.017 c
1-80554           Ramill                2002-03-09 07:44  2002.03.25  
ShowMesage


7-80707           LORN                  2001-12-19 22:13  2002.03.25  
Есть ли у кого - готовая прога ФОРМАТИРОВАНИЕ ДИСКЕТ?


4-80714           Dr Dredd              2001-12-02 22:30  2002.03.25  
Как заморозить комп?


1-80481           spp211                2002-03-12 08:39  2002.03.25  
Преобразование приложений под Web.


3-80428           SZap                  2002-02-26 14:16  2002.03.25  
вопрос по SQL