如何在VB.NET中调用Oracle 的stored-procedure

Dim oConn As OleDbConnection
Dim oCmd As OleDbCommand

'Conection DB ....

... oCmd.CommandText = sQueryRepairWIP_NG
oCmd.CommandType = CommandType.StoredProcedure

oCmd.Parameters.Add("xSSN", OleDbType.VarChar, 16)
oCmd.Parameters("xSSN").Direction = ParameterDirection.Input
oCmd.Parameters("xSSN").Value = sSSN

oCmd.Parameters.Add("xErrorCode", OleDbType.VarChar, 10)
oCmd.Parameters("xErrorCode").Direction = ParameterDirection.Input
oCmd.Parameters("xErrorCode").Value = sErrCode

oCmd.ExecuteNonQuery()

And procedure Name as:

Create or Replace PROCEDURE INSERT_REPAIRWIP(xSSN in Varchar2,xErrorCode in Varchar2) as

Begin

Insert into bnw_ms_repairwip
(motherboardserialnbr,site,motherboardpartnbr,consoleserialnbr,
consolepartnbr,motherboardmfgdate,lasttestdate,lasttestoperation,
gpupartnbr,gpulotnbr,cpupartnbr,cpulotnbr,memorypartnbr,memorylotnbr,hddserialnbr,hddpartnbr,errorcode)


select ISNO, SITE, PARTNO, SSN, SPN, SDT, LAST_D, STAGE, GPUPN, GPUSN, CPUPN,
CPUSN, HDDPN, HDDSSN, CSN03, CPN03,xErrorCode from V_Repair_WIP where ssn=xSSn;

end;

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/30193/viewspace-90001/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/30193/viewspace-90001/