Visual Basic

Public Shared DB_Connection As New OleDbConnection, DB_Command As New OleDbCommand

Public Shared DB_Connection As New OracleConnection, DB_Command As New OracleCommand 

Here is some code of ORACLE_SQL.vb class:<br />
<br />
    Public Sub New()<br />
        If DB_Connection.State <> ConnectionState.Open Then<br />
            Dim CONNECTION_STRING As String = ""<br />
            'NewTec_Connection provides a default security for my app<br />
            Dim NC As New NewTec_Connection<br />
            CONNECTION_STRING = "Server=" & NC.ServerName & ";Uid=" & NC.UserName & ";Pwd=" & NC.Password<br />
            Try<br />
                DB_Connection = New OracleConnection(CONNECTION_STRING)<br />
                DB_Connection.Open()<br />
                'Create a transaction point<br />
                BeginTransaction()<br />
            Catch ex As Exception<br />
                MsgBox("Can't use New() without having connection with 'NewTec' Server! Try New($) or New($,$,$) constructor.", MsgBoxStyle.Critical)<br />
                Throw ex<br />
            End Try<br />
            'different types connections for oledb 'CONNECTION_STRING = "Provider=OraOLEDB.Oracle.1;Password=mypw;Persist Security Info=True;User ID=myname;Data Source=myserver"        'mdb'= "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & FileName        'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\Desktop\DDLTEST.mdb;Persist Security Info=True;Jet OLEDB:Database Password=asd        'pw access="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\Desktop\pwdb.mdb;Persist Security Info=True;Jet OLEDB:Database Password=***"        'ms sql=Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=master;Data Source=iZMA\SQLEXPRESS        'CONNECTION_STRING = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=master;Data Source=iZMA\SQLEXPRESS"        'DB_Connection = New OleDbConnection(CONNECTION_STRING)        'DB_Connection.Open()<br />
        End If<br />
    End Sub<br />
<br />
    ''' <summary><br />
    ''' Connect to oracle.<br />
    ''' </summary><br />
    ''' <param name="CONNECTION_STRING">set CONNECTION_STRING Like 'Server=giit;Uid=iZMA;Pwd=***' if using oracle provider. Otherwise for oledb 'CONNECTION_STRING = "Provider=OraOLEDB.Oracle.1;Password=mypw;Persist Security Info=True;User ID=myname;Data Source=myserver"</param><br />
    ''' <remarks></remarks><br />
<br />
    Public Sub New(ByVal CONNECTION_STRING As String)<br />
        If DB_Connection.State <> ConnectionState.Open Then<br />
            DB_Connection = New OracleConnection(CONNECTION_STRING)<br />
            DB_Connection.Open()<br />
            BeginTransaction()' UF<br />
        End If<br />
    End Sub<br />
<br />
    Sub New(ByVal ServerName As String, ByVal UserName As String, ByVal Password As String)<br />
        Dim CONNECTION_STRING As String = "Server=" & ServerName & ";Uid=" & UserName & ";Pwd=" & Password<br />
        If DB_Connection.State <> ConnectionState.Open Then<br />
            DB_Connection = New OracleConnection(CONNECTION_STRING)<br />
            DB_Connection.Open()<br />
            BeginTransaction()<br />
        End If<br />
    End Sub<br />
<br />
'Execute<br />
    ''' <summary><br />
    ''' Not for select. For Insert, update, delete Statment.<br />
    ''' </summary><br />
    ''' <param name="SQL_Command"></param><br />
    ''' <returns></returns><br />
    ''' <remarks></remarks><br />
<br />
    Function Execute(ByVal SQL_Command As String) As Integer<br />
        Dim AffectedRow As Integer<br />
        DB_Command.CommandText = SQL_Command<br />
        AffectedRow = DB_Command.ExecuteNonQuery()<br />
        RequireCommit = True<br />
        Return AffectedRow<br />
    End Function<br />
<br />