• Home
 · 
• Databases/Data Access/DAO/ADO
 · 
• VB.Net - Unique Oracle Data Connection

VB.Net - Unique Oracle Data Connection

VB.Net - Unique Oracle Data Connection

Rate VB.Net - Unique Oracle Data Connection

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

        Me.Cursor = Cursors.WaitCursor

        If oracon Is Nothing Then
            oracon = New OracleClient.OracleConnection("Data Source=DATASERVER;Persist Security Info=True;User ID=USERNAME;PWD=PASSWORD;Unicode=True")
        End If

        If oracon.State = ConnectionState.Closed Then
            oracon.Open()
            MessageBox.Show("Oracle Connection Is Now Avalilabe")
            Me.Cursor = Cursors.Default
            Exit Sub
        End If

        If oracon.State = ConnectionState.Open Then
            MessageBox.Show("Oracle Connection Already Open No Need To Open Again")
        End If

        Me.Cursor = Cursors.Default

    End Sub