ADODataSet1参数传不进oracle存储过程 ( 积分: 100 )

create&nbsp;or&nbsp;replace&nbsp;package&nbsp;PK_DestoryDataQuery&nbsp;is<br>&nbsp;&nbsp;type&nbsp;My_Cursor&nbsp;&nbsp;is&nbsp;REF&nbsp;CURSOR;<br>&nbsp;&nbsp;procedure&nbsp;DestoryDataQuery(bz&nbsp;varchar2,Result_Data&nbsp;out&nbsp;My_Cursor);<br>end&nbsp;PK_DestoryDataQuery;<br><br>create&nbsp;or&nbsp;replace&nbsp;package&nbsp;body&nbsp;PK_DestoryDataQuery<br>is<br>&nbsp;&nbsp;procedure&nbsp;DestoryDataQuery(bz&nbsp;&nbsp;varchar2,Result_Data&nbsp;out&nbsp;My_Cursor)is<br>&nbsp;&nbsp;begin<br>&nbsp;&nbsp;&nbsp;&nbsp;open&nbsp;Result_Data&nbsp;for&nbsp;select&nbsp;count(*)s&nbsp;from&nbsp;shc_dzcYds_1&nbsp;where&nbsp;bz=bz;<br>&nbsp;&nbsp;end&nbsp;DestoryDataQuery;<br>end&nbsp;PK_DestoryDataQuery<br><br>--调用<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;ADODataSet1.Close;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;ADODataSet1.Parameters.Clear&nbsp;;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;ADODataSet1.CommandType&nbsp;:=cmdText;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;ADODataSet1.CommandText&nbsp;:='{call&nbsp;PK_DestoryDataQuery.DestoryDataQuer(?)}';<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;ADODataSet1.Parameters.CreateParameter('bz',ftString,pdInput,50,'111');<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;ADODataSet1.Open;<br>ADODataSet1参数传不进oracle存储过程,有没有111都一样,请问是什么问题?