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