oracledatabase.vb

读取Oracle数据库的一个源代码

Imports System.Data
Imports Oracle.DataAccess.Client
Imports System.ComponentModel
Public Class OracleDataBase
    '实现接口IDisposable
    Implements IDisposable
    '数据库连接对象
    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
            '建立数据库连接对象
            SqlConn = New OracleConnection(sConn)
            '打开数据库连接
            SqlConn.Open()
        End If
    End Sub
    Public Sub Close()
        '如果数据库连接对象不为空则关闭数据库连接
        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