vb.net 调用oracle的package中的Procedure

 

    ''' <summary>
    ''' 执行数据库中的存储过程，插入临时表数据
    ''' </summary>
    ''' <param name="strPara">参数</param>
    ''' <remarks></remarks>
    Private Sub ExecProcedure(ByVal strPara As String)
        '定义连接字符串
        Dim strConn As String = String.Empty
        strConn ="Data Source=TNS名称;Persist Security Info=True;User ID=用户名;Password=密码;"

        '定义oracle参数
        Dim oraParaAs OracleParameter = New OracleParameter("Para", OracleType.Char)
        '指定oracle参数的输入输出类型
        oraPara.Direction = ParameterDirection.Input
        '给oracle参数赋值
        oraPara.Value = strPara

        '定义oracle连接
        Dim oraConnection As OracleConnection = New OracleConnection(strConn)

        '定义oracle Command
        Dim oraCommand As New OracleCommand
        '指定Oracle Command的连接
        oraCommand.Connection = oraConnection
        '指定OracleCommand的类型
        oraCommand.CommandType = CommandType.StoredProcedure
        '指定OracleCommand的存储过程名
        oraCommand.CommandText = "包名.存储过程"
        '添加OracleCommand的参数
        oraCommand.Parameters.Add(oraPara)

        Try
            '打开数据库连接
            oraConnection.Open()

            '执行Command
            oraCommand.ExecuteNonQuery()

        Catch ex As Exception
            '异常抛出
            Throw ex
        Finally
            '如果连接打开中，则关闭
            If (oraConnection.State = ConnectionState.Open) Then
                '关闭数据库连接
                oraConnection.Close()
            End If
        End Try

    End Sub