Imports System.Data
Imports Oracle.DataAccess.Client
Imports System.ComponentModel
Public Class OracleDataBase
    '實現(xiàn)接口IDisposable
    Implements IDisposable
    '數(shù)據(jù)庫連接對象
    Private SqlConn As OracleConnection
    'Public Shared sConn As String
    Public Sub Dispose() Implements System.IDisposable.Dispose
        Dispose(True)
        GC.SuppressFinalize(True)
    End Sub
    Protected Sub Dispose(ByVal disposing As Boolean)
        If disposing <> True Then
            Return
        End If

        If SqlConn Is Nothing = False Then
            SqlConn.Dispose()
            SqlConn = Nothing
        End If
    End Sub

    Public Sub Open(ByVal sConn As String)
        If SqlConn Is Nothing = True Then
            '建立數(shù)據(jù)庫連接對象
            SqlConn = New OracleConnection(sConn)
            '打開數(shù)據(jù)庫連接
            SqlConn.Open()
        End If
    End Sub
    Public Sub Close()
        '如果數(shù)據(jù)庫連接對象不為空則關(guān)閉數(shù)據(jù)庫連接
        If SqlConn Is Nothing = False Then
            SqlConn.Close()
        End If
    End Sub
    Public Function RunSelectSQL(ByVal oConnStr As String, ByVal sSQLString As System.String) As DataSet
        Me.Open(oConnStr)
        Dim SqlDS As DataSet = New DataSet
        Dim SqlDA As OracleDataAdapter = New OracleDataAdapter(sSQLString, Me.SqlConn)
        SqlDA.Fill(SqlDS)
        Return SqlDS
        'Return SqlDS.Tables(0).DefaultView
    End Function
    Public Function RunDelOrInsSQL(ByVal oConnStr As String, ByVal sSQLString As System.String)
        Me.Open(oConnStr)
        Dim SqlComm As OracleCommand = New OracleCommand(sSQLString, Me.SqlConn)
        SqlComm.ExecuteNonQuery()
    End Function
End Class