VB.NET连接Oracle共通模块

使用方法：

1、在解决方案的引用中添加以下引用
Imports system.Data.OracleClient

2、将DBLink.vb添加到现有项目中

 

———————————————————华丽的分割线—————————————————————

Option Strict Off

Option Explicit On

Imports System.Data.OracleClient

Module DBLink

#Region "自定义常量及变量"

    Private Ora_Connection As New OracleConnection

    Private Ora_Command As New OracleCommand

    Private StartTime As DateTime

    Private EndTime As DateTime

    Private TimeSpan As New TimeSpan

    Private Ora_DataAdapter As OracleDataAdapter

    Private Ora_Transaction As OracleTransaction

#End Region

#Region "打开数据库连接"

    ''' <summary>

    ''' 打开数据库连接

    ''' </summary>

    ''' <remarks></remarks>

    Public Sub Open()

        Try

            Ora_Connection = New OracleConnection(getConnction())

            Ora_Connection.Open()

      

        Catch e As Exception

            Throw New System.Exception(e.Message)

        End Try

    End Sub

#End Region

#Region "得到连接字符串"

    ''' <summary>

    ''' 得到连接字符串

    ''' </summary>

    ''' <returns></returns>

    ''' <remarks></remarks>

    Private Function getConnction() As String

        Dim strConnection As String = ""

        '设置要访问的数据库、登录名、密码

  

        Call GetCOMMAND()

        strConnection = "Data Source="  DatabaseName  ";" _

                             & "user id= " 　UserName　 ";password="  Password  ";" _

                             & "persist security info=false"

        Return strConnection

    End Function

#End Region

#Region "关闭数据库连接"

    ''' <summary>

    ''' 关闭数据库连接

    ''' </summary>

    ''' <remarks></remarks>

    Public Sub DBClose()

        Try

            If Ora_Connection Is Nothing Then

                Return

            End If

            If Ora_Connection.State = ConnectionState.Closed Then

                Return

            End If

            Ora_Command = New OracleCommand

            Ora_Connection.Close()

        Catch e As Exception

            Throw New System.Exception(e.Message)

        End Try

    End Sub

#End Region

#Region "释放资源"

    ''' <summary>

    ''' 释放资源

    ''' </summary>

    ''&#