Witam mam nastepujacy problem z pobieraniem daty z oracle 10g do aplikacji pisanej w Delphi 7 :
Może najpierw pokażę skrypt perspektywy z której datę chcę pobrać:
create or replace view view_loty as
select
l.id_lotu, <font color="blue">l.data_odl, l.data_przyl,</font> p.miejsce_odlotu, p.miejsce_ladowania, f.imie
from
loty l ,trasy p, flota f
where
l.id_maszyny=f.id_maszyny and l.id_trasy=p.id_trasy and data_odl >(select to_char(sysdate, 'YYYY-MM-DD HH24:MI:SS') from dual)
aha , tabela w której "są trzymane" te daty zostala utworzona nastepujacym kodem:
CREATE TABLE Loty
(
id_lotu NUMBER(10) PRIMARY KEY,
data_odl timestamp(0),
data_przyl timestamp(0),
id_trasy NUMBER(10) REFERENCES Trasy(id_trasy),
id_maszyny NUMBER(10) REFERENCES Flota(id_maszyny)
);
proszę zwrócić uwagę na fragment
data_odl timestamp(0),
data_przyl timestamp(0),
To teraz przejdę do DELPHI , kod procedury pobierającej dane z tej perspektywy wygląda następująco:
procedure TForm1.Button11Click(Sender: TObject);
var
lista:TListItem;
begin
ListView3.Items.Clear;
SQLQuery4.Active:=False;
SQLQuery4.SQL.Clear;
SQLQuery4.SQL.Add('SELECT id_lotu,data_odl,DATA_PRZYL,MIEJSCE_ODLOTU,MIEJSCE_LADOWANIA,IMIE FROM view_LOTYY');
SQLQuery4.Active:=True;
while not SQLQuery4.Eof do DATA_PRZYL
begin
lista:=ListView3.Items.Add;
lista.Caption:=IntToStr(SQLQuery4.FieldValues['id_lotu']);
lista.SubItems.Add(SQLQuery4.FieldValues['data_odl']);
lista.SubItems.Add(SQLQuery4.FieldValues['data_przyl']);
lista.SubItems.Add(SQLQuery4.FieldValues['MIEJSCE_ODLOTU']);
lista.SubItems.Add(SQLQuery4.FieldValues['MIEJSCE_LADOWANIA']);
lista.SubItems.Add(SQLQuery4.FieldValues['IMIE']);
SQLQuery4.Next;
end;
SQLQuery4.Close;
end;
No więc dane nie wyświetlają się .... Sprawdzałem po kolei , perspektywa dziala w iSQLPlusie,
W delphi wszystkie pozostale kolumny sie wyswietlaja , ale gdy doloze te linijki z datami, to data sie nie wyswietla, moze trzeba to jakos przekonwertowac... próbowalem poprzez DateToStr, TimeToStr i nic
proszę o pomoc , jak te dane pobrać, co zmienić?