Hello,
A lancement de l'application j'ouvre une connexion à la base. Voici le code :
On Error GoTo ERRConnect
' on tente la connexion
Set Conn1 = New ADODB.Connection
Conn1.ConnectionString = "Provider=MSDAORA.1;Password=" & pPasswd & ";User ID=" & pName & ";Data Source=" & pDBName & ";Persist Security Info=True"
Conn1.Open
Set Cmd1 = New ADODB.Command
Cmd1.ActiveConnection = Conn1
' Trap any error/exception
ERRConnect:
On Error GoTo ERRGlobal
If (Error <> " ") Then
ConnectedToOracle = True
ConnectDB = 0
Connect_String = pName & "/" & pPasswd
Connect_Database = pDBName
Else
ConnectedToOracle = False
ConnectDB = Conn1.Errors(0)
End If
Exit Function
ERRGlobal:
ConnectDB = -1
.
Depuis l'appli VB 6 pas de PB, tous se passe bien. Je cré l'éxécutable et la je lance l'appli. et j'ai le mess : ORA - 06413 : Connection not open
Si quelqu'un a une solution se serai super cool.
A+