vb.net连接oracle数据库

Imports Oracle.DataAccess.Client
Imports System.Runtime.CompilerServices
Imports System.Threading
Imports Microsoft.VisualBasic.CompilerServices

Public Class OracleDB
    Public Shared OraConnection As String

    Public Shared Function CallProcedure(ByVal strProcedureName As String, ByVal strParameters As IList) As Boolean
        Dim connection As OracleConnection = New OracleConnection()
        Dim adapter As OracleDataAdapter = New OracleDataAdapter()
        Dim command As OracleCommand = New OracleCommand()
        connection.ConnectionString = OraConnection
        connection.Open()
        command = New OracleCommand(strProcedureName, connection)
        command.CommandType = CommandType.StoredProcedure
        Dim num2 As Integer = strParameters.Count - 1
        Dim i As Integer
        For i = 0 To num2 Step i + 1
            command.Parameters.Add("", RuntimeHelpers.GetObjectValue(strParameters(i)))
        Next
        Try
            command.ExecuteNonQuery()
            command.Parameters.Clear()
            connection.Close()
        Catch exception1 As Exception
            Return False
        End Try
        Return True
    End Function

    Public Shared Function CallTranscation(ByVal ArrayStrSQL() As String) As Boolean
        Dim dbCN As OracleConnection = New OracleConnection()
        Dim adapter As OracleDataAdapter = New OracleDataAdapter()
        Dim command As OracleCommand = New OracleCommand()
        dbCN.ConnectionString = OraConnection
        dbCN.Open()
        Dim transaction As OracleTransaction = dbCN.BeginTransaction()
        Try
            Dim num2 As Integer = Information.UBound(ArrayStrSQL, 1)
            Dim i As Integer
            For i = 0 To num2 Step i + 1
                Dim strSQL As String = ArrayStrSQL(i)
                Thread.Sleep(100)
                ExecuteTranscationSQL(dbCN, strSQL, "")
            Next
            transaction.Commit()
        Catch exception1 As Exception
            ProjectData.SetProjectError(exception1)
            Dim exception As Exception = exception1
            If Not transaction Is Nothing Then
                transaction.Rollback()
                Return False
            End If
        End Try
        Return True
    End Function

    Public Shared Function ExecuteSQL(ByVal strSQL As String, Optional ByVal dsTableName As String = "") As DataSet
        Dim connection As OracleConnection = New OracleConnection()
        Dim adapter As OracleDataAdapter = New OracleDataAdapter()
        Dim command As OracleCommand = New OracleCommand()
        Dim dataSet As DataSet = New DataSet()
        connection.ConnectionString = OraConnection
        connection.Open()
        command.CommandText = strSQL
        command.CommandTimeout = 0
        adapter.SelectCommand = command
        adapter.SelectCommand.Connection = connection
        If dsTableName = "" Then
            adapter.Fill(dataSet)
        Else
            adapter.Fill(dataSet, dsTableName)
        End If
        connection.Close()
        Return dataSet
    End Function

    Public Shared Function ExecuteTranscationSQL(ByVal dbCN As OracleConnection, ByVal strSQL As String, Optional ByVal dsTableName As String = "") As Integer
        Dim command As OracleCommand = New OracleCommand()
        command.Connection = dbCN
        command.CommandText = strSQL
        command.CommandType = CommandType.Text
        Return command.ExecuteNonQuery()
    End Function

    Public Shared Function TestDBConnect() As Boolean
        Dim connection As OracleConnection = New OracleConnection()
        Dim adapter As OracleDataAdapter = New OracleDataAdapter()
        Dim command As OracleCommand = New OracleCommand()
        Dim dsset As DataSet = New DataSet()
        Try
            connection.ConnectionString = OraConnection
            connection.Open()
        Catch exception1 As Exception
            Return False
        End Try
        Return True
    End Function
End Class