Basit bir sql cümlesi kullanarak delphi ile oracle database veri çekme komutu
OraSession1.ConnectString := oracle_con;
OraSession1.Open;
OraQuery1.Close;
OraQuery1.sql.Clear;
OraQuery1.sql.Add
('select a.adi,a.soyadi,a.dosya_no,p.protokol_no,d.adi_soyadi,b.bolum_adi,k.kurum_adi,0 Ciro,0 SGK,0 Fark,0Efark,0 Kalan '
+ 'from hastane.kimlik a,hastane.protokol p,hastane.dradi d,hastane.bolum b, '
+ 'HASTANE.kurum k ' + 'where ' + 'a.dosya_no=p.dosya_no(+) and ' +
'p.dr_kodu=d.dr_kodu(+) and ' + 'p.bolum=b.bolum(+) and ' +
'p.kurum_no=k.kurum_no(+) and p.gtarih between to_date(''' +
DateTimeToStr(DateTimePicker1.Date) + ''',''dd.mm.yyyy hh24:mi:ss'') ' +
'and to_date(''' + DateTimeToStr(DateTimePicker2.Date) +
''',''dd.mm.yyyy hh24:mi:ss'') ');
OraQuery1.Open;
DBGrid1.Columns[0].FieldName := 'ADI';
DBGrid1.Columns[1].FieldName := 'SOYADI';
DBGrid1.Columns[2].FieldName := 'DOSYA_NO';
DBGrid1.Columns[3].FieldName := 'PROTOKOL_NO';
DBGrid1.Columns[4].FieldName := 'ADI_SOYADI';
DBGrid1.Columns[5].FieldName := 'BOLUM_ADI';
DBGrid1.Columns[6].FieldName := 'KURUM_ADI';