ZEOS 7.3 i StoredProc ... i wogóle

Thread View: pl.comp.lang.delphi.bazy-danych

8 messages

[T] Back to Threads [V] Tree View [G] Group Articles

8 total messages Started by Morff Fri, 07 Oct 2016 12:46

#82704

Author: Morff
Date: Fri, 07 Oct 2016 12:46

13 lines
1440 bytes

Próbuję zaprząc ZEOSA do roboty z Oracle.
I jakoś przy StoredProc nie chcą się automatycznie tworzyć parametry :

prc.StoredProcName := schema_+'.'+package_+'.'+procname_;
prc.prepare;

no i prc.paramcount = 0

Tak przy okazji , do czego służy własciwość Properties w query ? do dowolnego wykorzystania ?

--
Pozdrawiam
Morff

Re: ZEOS 7.3 i StoredProc ... i wogóle

#82705

Author: miab
Date: Fri, 07 Oct 2016 19:59

24 lines
1640 bytes

W dniu 2016-10-07 o 14:46, Morff pisze:
> Próbuję zaprząc ZEOSA do roboty z Oracle.
> I jakoś przy StoredProc nie chcą się automatycznie tworzyć parametry :
>
> prc.StoredProcName := schema_+'.'+package_+'.'+procname_;
> prc.prepare;
>
> no i prc.paramcount = 0
>

A u mnie taki zestaw instrukcji jak najbardziej kompiluje się, działa i 
daje sensowne wyniki:

ZStoredProc1.Close;
ZStoredProc1.StoredProcName:='ADQA_TESTBINDING';
Edit1.Text:=IntToStr(ZStoredProc1.Params.Count);
ZStoredProc1.Params[0].Value:=12.367;
ZStoredProc1.Params[1].Value:='zupa';
ZStoredProc1.ExecProc;
Edit2.Text:=ZStoredProc1.Params[0].AsString+' 
'+ZStoredProc1.Params[1].AsString;
ZStoredProc1.Open;

miab

Re: ZEOS 7.3 i StoredProc ... i wogóle

#82706

Author: miab
Date: Sat, 08 Oct 2016 12:55

31 lines
1910 bytes

W dniu 2016-10-07 o 21:59, miab pisze:
> W dniu 2016-10-07 o 14:46, Morff pisze:
>> Próbuję zaprząc ZEOSA do roboty z Oracle.
>> I jakoś przy StoredProc nie chcą się automatycznie tworzyć parametry :
>>
>> prc.StoredProcName := schema_+'.'+package_+'.'+procname_;
>> prc.prepare;
>>
>> no i prc.paramcount = 0
>>
>
> A u mnie taki zestaw instrukcji jak najbardziej kompiluje się, działa i
> daje sensowne wyniki:
>
> ZStoredProc1.Close;
> ZStoredProc1.StoredProcName:='ADQA_TESTBINDING';
> Edit1.Text:=IntToStr(ZStoredProc1.Params.Count);
> ZStoredProc1.Params[0].Value:=12.367;
> ZStoredProc1.Params[1].Value:='zupa';
> ZStoredProc1.ExecProc;
> Edit2.Text:=ZStoredProc1.Params[0].AsString+'
> '+ZStoredProc1.Params[1].AsString;
> ZStoredProc1.Open;
>
> miab
>

powinno być(ciekawiej):
Edit2.Text:=ZStoredProc1.Params[0].AsString+ZStoredProc1.Params[1].AsString+ZStoredProc1.Params[2].AsString+ZStoredProc1.Params[3].AsString;

miab

Re: ZEOS 7.3 i StoredProc ... i wogóle

#82707

Author: Morff
Date: Sun, 09 Oct 2016 13:15

8 lines
1653 bytes

> > ZStoredProc1.Close;
> > ZStoredProc1.StoredProcName:='ADQA_TESTBINDING';
> > Edit1.Text:=IntToStr(ZStoredProc1.Params.Count);


Czyli nawet prepare nie jest potrzebne ?
Hmmm
w takim razie może coś jeszcze położyć na formie, czy samo connection i storedproc powinno wystarczyć ?

Re: ZEOS 7.3 i StoredProc ... i wogóle

#82708

Author: Morff
Date: Mon, 10 Oct 2016 18:35

14 lines
1997 bytes

W unicie ZDbcOracleMetadata chyba jest błąd w linii 1459

   if CheckSchema then
        TempProcedureNamePattern := ProcedureNamePattern

chyba powinno być :
if CheckSchema then
        TempProcedureNamePattern := SchemaPattern+'.'+ProcedureNamePattern
      
W oryginalnej wersji unit źle rozpoznaje procedurę zadeklarowaną jako schemat.pakiet.procedura. 
Miab , testowałeś procedurę w swoim schemacie - dlatego Ci zadziałało.

Niestety nadal Params.Count = 0
Nie miałem czasu poszukać głębiej , ale może to Cię jakoś naprowadzi.

Re: ZEOS 7.3 i StoredProc ... i wogóle

#82709

Author: miab
Date: Tue, 11 Oct 2016 10:22

24 lines
1852 bytes

W dniu 2016-10-10 o 20:35, Morff pisze:
> W unicie ZDbcOracleMetadata chyba jest błąd w linii 1459
>
>    if CheckSchema then
>         TempProcedureNamePattern := ProcedureNamePattern
>
> chyba powinno być :
> if CheckSchema then
>         TempProcedureNamePattern := SchemaPattern+'.'+ProcedureNamePattern
>
> W oryginalnej wersji unit źle rozpoznaje procedurę zadeklarowaną jako schemat.pakiet.procedura.
> Miab , testowałeś procedurę w swoim schemacie - dlatego Ci zadziałało.
>
> Niestety nadal Params.Count = 0
> Nie miałem czasu poszukać głębiej , ale może to Cię jakoś naprowadzi.
>

A jak zrobisz:

prc.StoredProcName := '"'+schema_+'"."'+package_+'"."'+procname_+'"';

też nie działa?

miab

Re: ZEOS 7.3 i StoredProc ... i wogóle

#82710

Author: Morff
Date: Tue, 11 Oct 2016 18:51

16 lines
1714 bytes

W dniu wtorek, 11 października 2016 12:24:49 UTC+2 użytkownik miab napisał:

> A jak zrobisz:
> 
> prc.StoredProcName := '"'+schema_+'"."'+package_+'"."'+procname_+'"';
> 
> też nie działa?
> 
> miab


niestety ilość parametrów nadal 0

--
Pozdrawiam
Morff

Re: ZEOS 7.3 i StoredProc ... i wogóle

#82711

Author: Morff
Date: Tue, 11 Oct 2016 18:57

14 lines
1944 bytes

W dniu wtorek, 11 października 2016 12:24:49 UTC+2 użytkownik miab napisał:

> 
> A jak zrobisz:
> 
> prc.StoredProcName := '"'+schema_+'"."'+package_+'"."'+procname_+'"';
> 
> też nie działa?
> 
> miab

Ilość parametrów nadal 0

Ale po poprawce ZDbcOracleMetadata parametry są zapisywane do cache'a z prawidłowym kluczem , tylko pewnie procedura odczytująca z cache'a parametry ma też źle ustawione kawałkii dlatego nie działa.

Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads