使用方法:
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>
''&#