OracleOperate(oracle操作)

objconn.Open()
End If Try Fra mandText = strSQL
objda.Fill(ds, "Table")
Catch ex As Exception
End Try
End Function
Public Sub CloseConnection()
objconn.Close()
End Sub
'return a dataset by execute sql query
Return True
Catch ex As Exception
Return False
Finally
End Try
End Function
'return a sql reader by executing sql query
objconn.Open()
End If
Dim myTrans As OracleTransaction
' Start a local transaction
myTrans = objconn.BeginTransaction(IsolationLevel.ReadCommitted)
objconn.Open()
End If
Dim ds As DataSet = New DataSet
Try
mandText = strSQL
objda.Fill(ds, strTableName)
Return True
Catch ex As Exception
Console.WriteLine("Connect to database failed! with Connection String is " + ConnString + " " + ex.Message)
Imports System.Data
Imports System.Data.OracleClient
Imports System.AppDomain
Public Class clsDBProcessOracle
Public objconn As OracleConnection
Catch e As Exception
myTrans.Rollback()
objconn.Close()
Return False
End Try
End Function
End Class
End Try
Return iCount
End Function
Public Function ExecuteSQLTrans(ByVal strSQL() As String) As Boolean
If objconn.State = ConnectionState.Closed Then
Public Overloads Function FillDataSet(ByVal strSQL As String, ByVal strTableName As String) As DataSet
If objconn.State = ConnectionState.Closed Then
Public Function ExecuteSQLReader(ByVal strSQL As String) As OracleDataReader
Dim result As OracleDataReader
If objconn.State = ConnectionState.Closed Then
Public Overloads Function FillDataSet(ByVal strSQL As String) As DataSet
Dim ds As DataSet = New DataSet
If objconn.State = ConnectionState.Closed Then
' Assign transaction object for a pending local transaction
objcmd.Transaction = myTrans
Try
For Each strCmd As String In strSQL
objcmd = New OracleCommand
objda = New OracleDataAdapter(objcmd)
objcmd.Connection = objconn
Try
objconn.Open()
mandText = strCmd
objcmd.ExecuteNonQuery()
Next
mit()
Return False
Catch ex As Exception
Return Nothing
End Try
Return ds
End Function
' execute sql return
Public Overloads Function ExecuteSQL(ByVal strSQL As String) As Boolean
'Dim strConnString As String = "server=hkgfpkt03; database=ELP; user id=sa; password=; Connect Timeout=15"
objconn = New OracleConnection(ConnString)
objconn.Open()
End If
mandText = strSQL
Try
result = objcmd.ExecuteReader
Catch ex As Exception
Get
ConnString = strConnString
End Get
Set(ByVal value As String)
strConnString = value
End Set
Public objda As OracleDataAdapter
Public objcmd As OracleCommand
Private strConnString As String
Public Property ConnString() As String
Return Nothing
End Try
Return result
End Function
'return short number to count records in table
Public Function ExecuteSQLScalar(ByVal strSQL As String) As Short
objconn.Dispose()
objcmd.Dispose()
objda.Dispose()
Return True
Catch ex As Exception
Return False
If objconn.State = ConnectionState.Closed Then
objconn.Open()
End If
mandText = strSQL
Dim iCount As Short = 0
End Property
Public Function DBOpen() As Boolean
'Dim strConnString As String = "Data Source=FTRDEV;Persist Security Info=True;User ID=TRADEIN1;Password=TRADEIN1;Load Balance Timeout=1000"
Try
iCount = Int(objcmd.ExecuteScalar)
Catch ex As Exception
objconn.Close()
Return 0
Finally
Return Nothing
End Try
Return ds
End Function
'return a dataset that create table by table name and by execute sql query
Return False
End Try
End Function
'Close database
Public Function Dispose() As Boolean
Try
objconn.Close()
If objconn.State = ConnectionState.Closed Then
objconn.Open()
End If
mandText = strSQL
Try
objcmd.ExecuteNonQuery()