VB连接ORACAL过程及代码送给需要朋友!
Dim aCmd As ADODB.Command
Set aCmd = New ADODB.Command
With aCmd
’ .Name = \"PACKAGENAME\"
.ActiveConnection = ConnectionStr
.CommandType = adCmdStoredProc
.CommandText = \"PACKAGE.PROCEDORE\"
.Parameters.Append .CreateParameter(\"inNO\", adNumeric, adParamInput)
.Parameters(0).Value = 1
End With
Call aCmd.Execute(Options:=adExecuteNoRecords)
最新评论