stored procedure kullanımı

[Ahmet ALTUNTAŞ]

merhaba arkadaşlar
yazılımcı bir arkadaşım bana programda kullanmam için bir stored procedure yazdı.kod aşagıda,fakat delphi ye bu stored procedure yi bagladıgımda
procedure or function 'PersonelGirisCikis' expect parameters '@KartNo', wihich was not suppiled.
şeklinde hata veriyor.
sql query de çalıştırdıgım kod

drop procedure PersonelGirisCikis
go
create procedure PersonelGirisCikis @KartNo varchar(50)
as

if exists (select * from tbl_Haraket h (nolock) join tbl_TemelBilgi tb (nolock) on h.KartNo=tb.KartNo
where tb.KartNo=@KartNo and CikisTarihi is null)
begin
update tbl_haraket set CikisTarihi=getdate() where KartNo=@KartNo and CikisTarihi is null
end
else
begin
insert into tbl_Haraket (KartNo,GirisTarihi) values (@KartNo,Getdate())
end

go
grant execute on PersonelGirisCikis to public

[thelvaci]

İlgili procedure sizden @KartNo adında, string türünde bir parametre beklemektedir. Delphi tarafında TADOStoredProc nesnesini kullandığınızı varsayar isek;

Kod: Tümünü seç

  ADOStoredProc1.Close;
  ADOStoredProc1.Connection := MyDBConnection;
  ADOStoredProc1.ProcedureName := 'PersonelGirisCikis';
  ADOStoredProc1.Parameters.Refresh;
  ADOStoredProc1.Parameters.ParamByName('@KartNo').Value := '123';
  ADOStoredProc1.ExecProc;

şeklinde kullanmanız icap edecektir.

[Ahmet ALTUNTAŞ]

Çok teşekkür ederim.

[thelvaci]

Rica ederim.