2
200103067
Unregistered / Unconfirmed
GUEST, unregistred user!
存储过程:<br>create or replace procedure lsp_PacsGetPatInfo(PatType varchar2,CardNo varchar2,name out varchar,sex out varchar,birthday out date,cureno out number,dept out varchar,bedno out varchar) is<br>begin<br> IF LTRIM(RTRIM(PatType)) = '1' then<br> SELECT A.BRXM,A.BRXB,A.CSNY,A.ZYH,to_char(A.BRKS),A.BRCH<br> into name,sex,birthday,cureno,dept,bedno<br> FROM ZY_BRRY A WHERE A.ZYHM = LTRIM(RTRIM(CardNo));<br> else<br> SELECT A.BRXM,A.BRXB,A.CSNY,A.BRID<br> into name,sex,birthday,CureNo<br> FROM MS_BRDA A WHERE A.MZHM = LTRIM(RTRIM(CardNo));<br> end if;<br>end lsp_PacsGetPatInfo;<br>Delphi代码:<br>try<br> MySP.Close;<br> MySP.Parameters.ParamByName('PatType').Value:='0';<br> MySP.Parameters.ParamByName('CardNo').Value:=Trim(EDCLINIC_NO.Text);<br> MySP.ExecProc;<br> except on E: exception do<br> Exit;<br> end;<br> Str:=MySP.Parameters.ParamByName('name').Value+'@'+<br> MySP.Parameters.ParamByName('sex').Value+'@'+<br> MySP.Parameters.ParamByName('birthday').Value;<br>///////////////////////////////////////////<br>报错:<br>[microsoft][odbc driver for Oracle][oracle]ora-06550:line 1 ,column7:<br>pls-00306:wrong number or types of arguments in call to 'LSP_PACSGETPATINFO' ORA-06550:line 1,column 7:<br>PL/SQL: Statement ignored