Delphi Oracle Basit Select Cümlesi

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';
				
			

hakkında admin

Bir cevap yazın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir

Yardıma mı ihtiyacınız var? Bizimle sohbet edin