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