Формат даты в ORACLE

@_pva · Регистрация: 27.02.2010

Author24 — интернет-сервис помощи студентам

Delphi

        qwRange.Active := False;
        qwRange.SQL.Clear;
        qwRange.SQL.Add('select Count (Summ) as rrr from transactions'
                + ' where summ between ' + FloatToStr(RangeArray[i].rStart.Value) + ' and ' + FloatToStr(RangeArray[i].rEnd.Value)//);
                + ' and Debit = 17069 '
                + ' and credit not in (47514,223376, 242777) '
                + ' and MOMENT between ' + '''' + FormatDateTime('dd.mm.yyyy hh:nn:ss' ,(deStart.Date+tpStart.Time)) + '''' + ' and ' + '''' + FormatDateTime('dd.mm.yyyy hh:nn:ss' , (deEnd.Date+tpEnd.Time)) +'''');
        qwRange.Active := True;

Запрос к базе данных ORACLE Выдается ошибка связанная с датой, подскажите каков правильный синтаксис ввода в данной СУБД.

@THTP · 31.03.2010, 22:32

По умолчанию, вроде как DD-MON-YY. Но вообще обычно пользуются To_Date( строка, 'формат'). Что-то в духе

Delphi

' and MOMENT between to_date(' + '''' + FormatDateTime('dd.mm.yyyy hh:nn:ss' ,(deStart.Date+tpStart.Time)) + ''', ''dd.mm.yyyy hh:mi:ss'')' + ' and to_date(' + '''' + FormatDateTime('dd.mm.yyyy hh:nn:ss' , (deEnd.Date+tpEnd.Time)) +''')''dd.mm.yyyy hh:mi:ss''');

@_pva · 31.03.2010, 23:42 **[ТС]**

Выдает ошибку.. Missing keyword

@THTP · 01.04.2010, 08:29

Ну я там со скобочками перемудрил.. Запрос должен получиться такой:

SQL

1	MOMENT BETWEEN to_date(:deStart, 'dd.mm.yyyy hh:mi:ss') AND to_date(:deEnd, 'dd.mm.yyyy hh:mi:ss')

Ну и вместо параметров, соответсвенно, те две строчки, сформированные дельфёй из даты в формате 'dd.mm.yyyy hh:nn:ss'.

to_date парсит строку по предложенному ему формату в дату.

@_pva · 01.04.2010, 10:42 **[ТС]**

Delphi

 
qwRange.Active := False;
qwRange.SQL.Clear;
qwRange.SQL.Add('select Count (Summ) as rrr from transactions'
                + ' where summ between ' + FloatToStr(RangeArray[i].rStart.Value) + ' and ' +   FloatToStr(RangeArray[i].rEnd.Value)//);
                + ' and Debit = 17069 '
                + ' and credit not in (47514,223376, 242777) '
                + ' and MOMENT between to_date :dStart  and to_date :dEnd');
qwName.Parameters.ParamByName('dStart').Value := deStart.Date+tpStart.Time;
qwName.Parameters.ParamByName('dEnd').Value := deEnd.Date+tpEnd.Time;
qwRange.Active := True;

Опять выдает ошибку (((
Parametr 'dStart' not Found...

@THTP · 01.04.2010, 11:21

Возможно поможет Parameters.Refresh
Возможно потребуется еще и указать типы параметров Parameters.ParamByName('').DataType:= ftDateTime;
Но запрос всеравно сругнется на синтаксис. Я выше написал как выглядит to_date - это функция с двумя параметрами. Хотя при передаче параметров она не должна понадобиться вообще.

@Mawrat · 01.04.2010, 13:43

_pva, проверь - возможно возникла путаница с именем параметра в тексте запроса: :dStart или :deStart.

@_pva · 01.04.2010, 22:13 **[ТС]**

Спасибо, попробую...

@_pva 57 / 57 / 10 Регистрация: 27.02.2010 Сообщений: 282
	31.03.2010, 23:42 [ТС]	3
	Выдает ошибку.. Missing keyword 0

@THTP 15 / 15 / 1 Регистрация: 30.03.2010 Сообщений: 47
	01.04.2010, 11:21	6
	Возможно поможет Parameters.Refresh Возможно потребуется еще и указать типы параметров Parameters.ParamByName('').DataType:= ftDateTime; Но запрос всеравно сругнется на синтаксис. Я выше написал как выглядит to_date - это функция с двумя параметрами. Хотя при передаче параметров она не должна понадобиться вообще. 1

@Mawrat 13104 / 5885 / 1706 Регистрация: 19.09.2009 Сообщений: 8,808
	01.04.2010, 13:43	7
	_pva, проверь - возможно возникла путаница с именем параметра в тексте запроса: :dStart или :deStart. 1

@_pva 57 / 57 / 10 Регистрация: 27.02.2010 Сообщений: 282
	01.04.2010, 22:13 [ТС]	8
	Спасибо, попробую... 0

Опции темы