Delphi Can
Zeos TZStoredProc ile Procedure Sonucu Listeleme - Baskı Önizleme

+- Delphi Can (http://www.delphican.com)
+-- Forum: Delphi (http://www.delphican.com/forumdisplay.php?fid=3)
+--- Forum: Genel Programlama (http://www.delphican.com/forumdisplay.php?fid=6)
+--- Konu Başlığı: Zeos TZStoredProc ile Procedure Sonucu Listeleme (/showthread.php?tid=3663)



Zeos TZStoredProc ile Procedure Sonucu Listeleme - 3ddark - 24-05-2019

SELECT public.get_grup_maliyet_analiz(
   array['AAA', 
     'BBB',
     'CCC',
     'DDD',
     'EEE']
);

Yukarı şekilde stored procedure kodunu postgreSQL veri tavanında pgAdmin üzerinden çalıştırdığımda sorunsuz olarak sonucu alıyorum.

Fakat aşağıdaki kod ile Zeos bileşen setindeki TZStoredProc ile yukarıdaki kodu çağırıyorum ve doğru sonucu alıyorum. En azından dönen satır sayısı doğru fakat bu bilgileri bir string grid üzerinde göstermek istediğimde ise sürekli ilk satırın bilgisini alıyorum. 
FirstResultSet
NextResultSet
EOR //(End of Result Set) Boolean bilgileri var.

Bunları da denedim yanlış yapmadıysam bu bilgilerle de olmadı.

  sp := TZStoredProc.Create(nil);
  try
    sp.Name := 'spGrupMaliyetAnaliz';
    sp.Active := False;
    sp.Connection := m_table.Database.Connection;
    sp.StoredProcName := 'public.get_grup_maliyet_analiz';
    sp.Prepare;
    sp.ParamByName('precete_adi_list').Value := arrayList;
    sp.Open;
    sp.First;
    while not sp.Eof do
    begin
      //burada grid dolduruyorum.
      sp.Next;
    end;
    sp.Close;
  finally
    sp.Free;
  end;

Mesela çalıştırdığım örnekte 14 tane bilgi gönderiyorum dönmesi gereken kayıt sayısı da 14 olması gerekiyor. Debug ile sp.FetchCount bilgisine baktığımda 14 olarak geliyor.

Bu şekilde bir stored procedure uygulama örneği yapan oldu mu?


Zeos TZStoredProc ile Procedure Sonucu Listeleme - esistem - 16-10-2019

Merhaba, sorunu çözdünüzmü acaba ? Stored procedure ile değilde query ile almayı denedinizmi ?