A voir également:
- Connection Rdo à partir d'un module
- Structure module ✓ - Forum VB.NET
- Exception edbengineerror in module ✓ - Forum Delphi / Pascal
- Violation d'accès à l'adresse dans le module ✓ - Forum Delphi / Pascal
- Vba graphique à partir d'un tableau - Forum Visual Basic 6
- Connection reset by peer python - Forum Java
1 réponse
-------------------------------
Réponse au message :
-------------------------------
URGENT MERCI
tt d'abord : bonne année, bon siècle, bon millénaire !
je cherche à me connecter à une BDD oracle à partir d'une feuille qui appelle une fonction dans un module:
il bogue sur la ligne : ConnectBDD.connect = C
*** dans le module .bas **********
déclaration
Global ConnectBDD As rdoConnection
Global ResultBDD As rdoResultset
'variable pour mémoriser si on est connecté
Global ConnectBDDGlobal As Boolean
************ CONNECTION **************
Public Sub ConnectionBDD()
If ConnectBDDGlobal = False Then
C="DSN=bidule;UID=bidule;PWD=bidule"
ConnectBDD.connect = C
ConnectBDD.CursorDriver = rdUseOdbc
ConnectBDD.EstablishConnection
DoEvents
ConnectBDDGlobal = True
End If
End Sub
-------------------------------
Réponse au message :
-------------------------------
URGENT MERCI
tt d'abord : bonne année, bon siècle, bon millénaire !
je cherche à me connecter à une BDD oracle à partir d'une feuille qui appelle une fonction dans un module:
il bogue sur la ligne : ConnectBDD.connect = C
*** dans le module .bas **********
déclaration
Global ConnectBDD As rdoConnection
Global ResultBDD As rdoResultset
'variable pour mémoriser si on est connecté
Global ConnectBDDGlobal As Boolean
************ CONNECTION **************
Public Sub ConnectionBDD()
If ConnectBDDGlobal = False Then
C="DSN=bidule;UID=bidule;PWD=bidule"
ConnectBDD.connect = C
ConnectBDD.CursorDriver = rdUseOdbc
ConnectBDD.EstablishConnection
DoEvents
ConnectBDDGlobal = True
End If
End Sub
-------------------------------
