VPF::Не работает запрос - Форум программистов

Valdemaras

Дата 17.3.2006, 11:31 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 28
Регистрация: 30.1.2006

Репутация: нет
Всего: нет

Не работает параметрический запрос в Delphi следующего содержания.

Код


select 
             pol_name, 
             sum(Pay_Summa), 
             sum(Pay_Comm_Pay),
             sum(Pay_Comm_Pol) 

from Payments
where   pay_date_oper >= :date_min and 
             pay_date_oper <= :date_max


 
group by Pol_name
order by Pol_name

говорит следующее "ORA-00979 not a Group by expression"!!!

Заполняю параметры следующим образом, и заполнение происходит корректно.

Код


    Form_Report_Pay_1.Query_Pay_Sum.Close;
    Form_Report_Pay_1.Query_Pay_Sum.Parameters.ParamByName('date_min').Value := DE_Begin.Date;
    Form_Report_Pay_1.Query_Pay_Sum.Parameters.ParamByName('date_max').Value := DE_End.Date;
    Form_Report_Pay_1.Query_Pay_Sum.Open;

На последней строке соответственно выводит ошибку. В sql navigator этот запрос работает если подставить реальные даты. Без параметров в Дельфе тоже работает.

КАК СДЕЛАТЬ ЧТОБЫ РАБОТАЛО С ПАРАМЕТРОМ!!???

LSD

Дата 17.3.2006, 11:37 (ссылка)

(нет голосов)

Загрузка ...

Leprechaun Software Developer

Профиль
Группа: Модератор
Сообщений: 15718
Регистрация: 24.3.2004
Где: Dublin

Репутация: 18
Всего: 538

Попробуй переписать условие так:

Код

where ( ( pay_date_oper >= :date_min ) and ( pay_date_oper <= :date_max ) )

--------------------

Disclaimer: this post contains explicit depictions of personal opinion. So, if it sounds sarcastic, don't take it seriously. If it sounds dangerous, do not try this at home or at all. And if it offends you, just don't read it.

Valdemaras

Дата 17.3.2006, 12:14 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 28
Регистрация: 30.1.2006

Репутация: нет
Всего: нет

Не помогло, аналогичная ошибка!

bas

Дата 17.3.2006, 13:06 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 446
Регистрация: 14.8.2002
Где: Молдова, Кишинев

Репутация: нет
Всего: 2

А between не подойдет?
или

Код


select 
             pol_name, 
             sum(Pay_Summa), 
             sum(Pay_Comm_Pay),
             sum(Pay_Comm_Pol) 

from Payments
where   pay_date_oper >= to_char(:date_min,'YYYY-MM-DD')
            and 
             pay_date_oper <= to_char(:date_max,'YYYY-MM-DD')

// или to_date в зависимости какого типа DE_Begin.Date
 
group by Pol_name
order by Pol_name

Формат даты можно узнать

Код


select sysdate from dual;

Добавлено @ 13:19

Цитата(Valdemaras @ 17.3.2006, 11:31

)

говорит следующее "ORA-00979 not a Group by expression"!!!

Говорит что Идентификатор столбца ни стоит в предложении GROUP BY , ни является аргументом групповой функции.
Либо запрос приеден не полностью или поробуй

Код


group by рol_name
order by рol_name

Это сообщение отредактировал(а) bas - 17.3.2006, 13:10

LSD

Дата 17.3.2006, 13:59 (ссылка)

(нет голосов)

Загрузка ...

Leprechaun Software Developer

Профиль
Группа: Модератор
Сообщений: 15718
Регистрация: 24.3.2004
Где: Dublin

Репутация: 18
Всего: 538

Попробуй так:

Код

Form_Report_Pay_1.Query_Pay_Sum.Close;    
Form_Report_Pay_1.Query_Pay_Sum.Open;

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

--------------------

Valdemaras

Дата 3.4.2006, 08:59 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 28
Регистрация: 30.1.2006

Репутация: нет
Всего: нет

Вот что работает

Код


select * from payments a,  poluchatel b
where b.pol_check = 1 and 
(a.pay_date_oper between :date_min and :date_max)
order by a.pol_name, a.pay_date_oper

а этот не работает

Код


select 
             pol_name, 
             sum(Pay_Summa), 
             sum(Pay_Comm_Pay),
             sum(Pay_Comm_Pol) 

from Payments
where (pay_date_oper between :date_min and :date_max) 
group by Pol_name
order by Pol_name

все таже ошибка, я панике бегаю по офису и рву волосы на голове соседки! smile

LSD

Дата 3.4.2006, 23:46 (ссылка)

(нет голосов)

Загрузка ...

Leprechaun Software Developer

Профиль
Группа: Модератор
Сообщений: 15718
Регистрация: 24.3.2004
Где: Dublin

Репутация: 18
Всего: 538

Цитата(Valdemaras @ 3.4.2006, 09:59

)

я панике бегаю по офису и рву волосы на голове соседки!

Оставь девушку в покое! smile

Попробуй создать такую процедуру:

Код

create or replace and compile java source named TEST as
import java.util.Calendar;
import java.sql.*;
import java.sql.Date;

public class Test
{
  public static ResultSet query() throws SQLException
  {
    Connection conn = DriverManager.getConnection("jdbc:default:connection:");
    PreparedStatement preparedStatement = conn.prepareStatement("select pol_name, sum(Pay_Summa), sum(Pay_Comm_Pay), sum(Pay_Comm_Pol) from Payments where (pay_date_oper between ? and ?) group by Pol_name order by Pol_name");
    Calendar calendar = Calendar.getInstance();
    calendar.clear();
    calendar.set(2005, Calendar.JANUARY, 1);
    preparedStatement.setDate(1, new Date(calendar.getTimeInMillis()));
    calendar.clear();
    calendar.set(2006, Calendar.JANUARY, 1);
    preparedStatement.setDate(1, new Date(calendar.getTimeInMillis()));
    return preparedStatement.executeQuery();
  }
}
/

Код

create or replace package REFCURPKG is
  type REFCUR_T is ref cursor;
end REFCURPKG;
/

create or replace function TEST return REFCURPKG.REFCUR_T as
language java name 'Test.query() return java.sql.ResultSet';

Если отработает нормально, значит проблема чисто в Delphi и дальше надо уже в Delphi-шном разделе спрашивать.

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Oracle \| Следующая тема »