by Gehan Fernando. (13 Submissions)
Category: Databases/Data Access/DAO/ADO
Compatability: VB.NET
Difficulty: Unknown Difficulty
Originally Published: Wed 18th July 2007
Date Added: Mon 8th February 2021
Rating: (1 Votes)
VB.Net - Unique Oracle Data Connection
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