1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25
|
Public Class BigBDE
Public L_cnOracle
Public cn, cn2 As New OleDbConnection
Private Sub BigBDE_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim L_DATASOURCE As String = "BDE_BDEPKG_*****"
Dim L_USER As String = "****"
Dim L_Password As String = "****"
L_cnOracle = New OleDbConnection("Provider=MSDAORA.0; Data Source="+L_DATASOURCE+";User Id="+L_USER+";Password="+L_Password+";")
connexion_BDE()
End Sub
Public Sub connexion_BDE()
If L_cnOracle.State = ConnectionState.Broken Then L_cnOracle.Close()
If L_cnOracle.State = ConnectionState.Closed Then
Try
L_cnOracle.Open()
Catch
MsgBox("Impossible de se connecter à la base ", vbAbort, "ERREUR")
End Try
End If
End Sub
End Class |