| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Не хватает какой-то записи!!!! [D5, Paradox]

Draculenok ©   (2002-02-27 14:12:00) 

Здравствуйте программеры!!!!!!
для создания отчета в 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) в ячейку?

---

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

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

---

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

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

---

Draculenok   (2002-02-27 14:27:00) [3]

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

---

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

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

---

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


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:18:00) [6]


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:17:00) [7]


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;


---

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

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

---

Наверх