★★★★★Oracle+Delphi(存储过程的问题)★★★★★ ( 积分: 100 )

  • 主题发起人 主题发起人 200103067
  • 开始时间 开始时间
2

200103067

Unregistered / Unconfirmed
GUEST, unregistred user!
存储过程:<br>create&nbsp;or&nbsp;replace&nbsp;procedure&nbsp;lsp_PacsGetPatInfo(PatType&nbsp;varchar2,CardNo&nbsp;varchar2,name&nbsp;out&nbsp;varchar,sex&nbsp;out&nbsp;varchar,birthday&nbsp;out&nbsp;date,cureno&nbsp;out&nbsp;number,dept&nbsp;out&nbsp;varchar,bedno&nbsp;out&nbsp;varchar)&nbsp;is<br>begin<br>&nbsp;&nbsp;IF&nbsp;LTRIM(RTRIM(PatType))&nbsp;=&nbsp;'1'&nbsp;then<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;SELECT&nbsp;A.BRXM,A.BRXB,A.CSNY,A.ZYH,to_char(A.BRKS),A.BRCH<br> &nbsp;&nbsp;&nbsp;into&nbsp;name,sex,birthday,cureno,dept,bedno<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;FROM&nbsp;ZY_BRRY&nbsp;A&nbsp;WHERE A.ZYHM&nbsp;=&nbsp;LTRIM(RTRIM(CardNo));<br>&nbsp;&nbsp;else<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;SELECT&nbsp;A.BRXM,A.BRXB,A.CSNY,A.BRID<br> &nbsp;into&nbsp;name,sex,birthday,CureNo<br> &nbsp;&nbsp;&nbsp;FROM&nbsp;MS_BRDA&nbsp;A&nbsp;WHERE&nbsp;A.MZHM&nbsp;=&nbsp;LTRIM(RTRIM(CardNo));<br>&nbsp;&nbsp;end&nbsp;if;<br>end&nbsp;lsp_PacsGetPatInfo;<br>Delphi代码:<br>try<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;MySP.Close;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;MySP.Parameters.ParamByName('PatType').Value:='0';<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;MySP.Parameters.ParamByName('CardNo').Value:=Trim(EDCLINIC_NO.Text);<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;MySP.ExecProc;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;except&nbsp;on&nbsp;E:&nbsp;exception&nbsp;do<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Exit;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;end;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Str:=MySP.Parameters.ParamByName('name').Value+'@'+<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;MySP.Parameters.ParamByName('sex').Value+'@'+<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;MySP.Parameters.ParamByName('birthday').Value;<br>///////////////////////////////////////////<br>报错:<br>[microsoft][odbc&nbsp;driver&nbsp;for&nbsp;Oracle][oracle]ora-06550:line&nbsp;1&nbsp;,column7:<br>pls-00306:wrong&nbsp;number&nbsp;or&nbsp;types&nbsp;of&nbsp;arguments&nbsp;in&nbsp;call&nbsp;to&nbsp;'LSP_PACSGETPATINFO'&nbsp;ORA-06550:line&nbsp;1,column&nbsp;7:<br>PL/SQL:&nbsp;Statement&nbsp;ignored
 
[blue]Oracle中birthday&nbsp;为Date类型,可MySP在设置时不能设置成ftDate&nbsp;,我应该设置成ftString,还是其他类型?<br>[/blue]
 
后退
顶部