+- Delphi Can (https://www.delphican.com)
+-- Forum: Delphi (https://www.delphican.com/forumdisplay.php?fid=3)
+--- Forum: Delphi Linux (https://www.delphican.com/forumdisplay.php?fid=11)
+--- Konu Başlığı: Çözüldü-lazarus da store procedure kullanımı (/showthread.php?tid=3731)
Çözüldü-lazarus da store procedure kullanımı - sadikacar60 - 15-06-2019
arkadaşlar store procedure hazırladım
Kod:
update TBL_SORULAR set DADET=DADET+1 where SBID=:KIM;lazarus formundan ulaşıp bu procudure yi çalıştırmam lazım
aşagıdaki kodları deniyorum olmadı.
Kod:
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
lazarus da store procedure kullanımı - mcuyan - 15-06-2019
:KIM yazan parametreyi de sbid gibi verip bir denermisiniz..
Cvp: lazarus da store procedure kullanımı - sadikacar60 - 15-06-2019
(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:
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;