[VB6] passage de variable

Marsh Posté le 27-05-2004 à 19:18:21

Bonjour, je suis en train de faire un programme en VB6 qui gère une base de donnée. Le problème est que je demande le chemin dans une boite de dialogue, je la stocke dans une variable mais elle n'est pas récuperé dans l'autre form...

des extraits de code:

Code :

'Lorsque je quite la form
Private Sub ciao()
bdpath = Dir.Path & File.FileName
t4cDb.Visible = True
'Call MsgBox(bdpath)
Unload Me
End Sub

Code :

'Test de la connexion
Private Sub cmdTestConnex_Click()
Dim connex As ADODB.Connection
Set connex = New ADODB.Connection
connex.Provider = "Microsoft.Jet.OLEDB.3.51"
connex.ConnectionString = bdpath
Call MsgBox(bdpath) 'Cette msgbox ne renvoi rien (bdpath est vide)
connex.Open
If connex.State = ADODB.adStateOpen Then
Call MsgBox("Connexion réussi", vbOKOnly, Réussi)
Else
Call MsgBox("Connexion échouée, vérifier que le fichier existe bien" )
End If
connex.Close
End Sub

Code :

'mon module
Option Explicit
Dim bdpath As String

Comme je l'ai écrit, la msgbox du test de la connexion ne renvoi rien...
Voila, si quelqu'un connait la solution, car la je bloque

merci

Message édité par loiklo le 27-05-2004 à 19:19:46

Marsh Posté le 27-05-2004 à 19:18:21

Marsh Posté le 27-05-2004 à 20:08:13

D'après mes vieux souvenirs de VB3 (16 bits), pour qu'une variable soit vue de partout, il faut qu'elle soit déclarée dans un fichier .BAS (ou autre qui soit pas une feuille). En global (sinon "locale" au module BAS).
Les variables des feuilles sont locales à leur feuille.

Faudrait essayer
Global bdpath As String

Marsh Posté le 27-05-2004 à 21:23:02

C'est deja dans module
il fallait juste mettre
public blabla as string
au lieu de
dim blabla as string

merci qd mm!

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed

Name *

Email *

URL

Message *