Çözüldü-lazarus da store procedure kullanımı

[sadikacar60]

arkadaşlar store procedure hazırladım

Kod: (Select All)

update TBL_SORULAR set DADET=DADET+1 where SBID=:KIM;

firebird veritanı programı ibexpertde sorunsuz çalışıyor 

lazarus formundan ulaşıp bu procudure yi çalıştırmam lazım
aşagıdaki kodları deniyorum olmadı.

Kod: (Select All)

procedure DogruCevapKaydet(sbid:string);
begin

 //DMvt.SQLQuery1.Close;
 DMvt.SQLQuery1.SQL.Clear;
 DMvt.SQLQuery1.SQL.Add('execute procedure D_CEVAPARTTIR(:KIM,'''+sbid+''' ');

 DMvt.SQLQuery1.Open;
 DMvt.SQLTransaction1.Commit;

end;

delphide storeproc elemanını kullanarak yapıyprdum ama lazarusda benzer bir eleman bulamadım araştırdım yukardaki koddakine benzer bir şeyler buldum ama çalıştırmayı başaramadım neyi yanlış yapıyorum acaba

saygılarımla

[mcuyan]

:KIM yazan parametreyi de sbid gibi verip bir denermisiniz..

[sadikacar60]

(15-06-2019, Saat: 16:59)mcuyan Adlı Kullanıcıdan Alıntı: :KIM yazan parametreyi de sbid gibi verip bir denermisiniz..

bu şekilde düzelttim çok teşekkürler hocam

Kod: (Select All)

procedure DogruCevapKaydet(sbid:string);
var
 str:string;
begin

 DMvt.SQLTransaction1.Commit;
 DMvt.SQLQuery1.Close;
 str:='execute procedure D_CEVAPARTTIR('''+sbid+''' )';
 DMvt.SQLQuery1.SQL.Text:=str;

 DMvt.SQLQuery1.ExecSQL;
 DMvt.SQLTransaction1.CommitRetaining;  //* ÜSTÜ üste çalışınca hataya neden oluyor
 DMvt.SQLTransaction1.Active:=false;

end;