delphi µ÷Óô洢¹ý³Ì - Delphi / Êý¾Ý¿âÏà¹Ø

create proc ImportData 

@ImportUserNo int OUTPUT --·µ»Øµ¼ÈëµÄÓû§Êý
as

delphi ÀïÔõô½ÓÊÕ´æ´¢¹ý³ÌÖеÄ@ImportUserNo°¡

---

1.Adoquery:='declare @ii int'
  +' exec ImportData @ii'
  +' select @ii as ii'
2.ÀûÓô洢¹ý³Ì¿Ø¼þ

---

ÓÿؼþµÄ»°£¬ÔõôŪѽ£¿£¿£¿

ÄÜд¾ßÌåµãÂð£¿

---

Delphi(Pascal) code:

with ADOStoredProc1 do
begin
ProcedureName := 'ImportData';
Parameters.Clear;
Parameters.CreateParameter('@ImportUserNo', ftInteger, pdoutput, 0, 0);
ExecProc;
showmessage(Parameters[0].Value);
end

---

'Could not convert variant of type (String) into type (Double)'. Process 

ÌáʾÕâ¸ö´í°¡¡£

---

ÒýÓÃ

'Could not convert variant of type (String) into type (Double)'. Process

ÌáʾÕâ¸ö´í°¡¡£

Double ÊÇ´ÓÄÄÀïÀ´µÄ ÄãµÄ´úÂëÓÐÎÊÌâ

---

ProcedureName:='ImportData';
  Parameters.Clear;
  Close;

  Parameters.CreateParameter('@ImportUserNo',ftInteger,pdoutput,0,0);


  Prepared:=True;
  ExecProc;
  //showmessage(Parameters[0].Value);
  FrmYHDAGL.lbl6.Caption:='Êý¾Ýµ¼ÈëÍê³É,¹²µ¼Èë'+Parameters[0].Value+'»§';

ÎÒÊÇ