Selectionner la source des donnees VB6
localch
-
Utilisateur anonyme -
Utilisateur anonyme -
Bonjour,
Je suis entrain de développer une application vb6 Access.
J'ai déclaré la base des données dans mon code, mais lors de l'exécution quand il bascule entre 2 formulaires, il me demande de sélectionner la source des données, malgré que la base est déclarée aussi dans le 2 eme formulaire. Pouvez vous m'aider SVP???
Merci d'avance.
Je suis entrain de développer une application vb6 Access.
J'ai déclaré la base des données dans mon code, mais lors de l'exécution quand il bascule entre 2 formulaires, il me demande de sélectionner la source des données, malgré que la base est déclarée aussi dans le 2 eme formulaire. Pouvez vous m'aider SVP???
Merci d'avance.
A voir également:
- Selectionner la source des donnees VB6
- Fuite données maif - Guide
- Vb6 - Télécharger - Divers Utilitaires
- Trier des données excel - Guide
- Sauvegarde des données - Guide
- Supprimer les données de navigation - Guide
2 réponses
Bonjour,
Il est souhaitable de lancer le programme par un module et un Main.
Ainsi, la BD sera vu de partout :
Ex.:
Attribute VB_Name = "modPrincipal"
Global gsDatabase As String
Global gsConnect As String
Global gsRecordsource As String
Global Chemin, Contenu As String, MenuIndex, Forme As Integer
Public fPrincipale As formPrincipale
'
'
Sub Main()
repertoire = App.Path
Chemin = (repertoire & "\MaBase.mdb")
gsDatabase = Chemin
gsConnect = ""
Set fPrincipale = New formPrincipale
fPrincipale.Show
End Sub
Cdt
Lupin
Il est souhaitable de lancer le programme par un module et un Main.
Ainsi, la BD sera vu de partout :
Ex.:
Attribute VB_Name = "modPrincipal"
Global gsDatabase As String
Global gsConnect As String
Global gsRecordsource As String
Global Chemin, Contenu As String, MenuIndex, Forme As Integer
Public fPrincipale As formPrincipale
'
'
Sub Main()
repertoire = App.Path
Chemin = (repertoire & "\MaBase.mdb")
gsDatabase = Chemin
gsConnect = ""
Set fPrincipale = New formPrincipale
fPrincipale.Show
End Sub
Cdt
Lupin
re:
Voilà, j'ai réinstallé VS6 pour voir dans mon projet :
(La virtualisation, quel bel outil :-) )
À l'ouverture du formulaire, tu connect ta BD ainsi :
Private Sub Form_Load()
dataAdministration.DatabaseName = Chemin
dataStat.DatabaseName = Chemin
dataStat.Refresh
dataStat.Recordset.MoveLast
dataStat.Recordset.MoveFirst
TimerOuvre.Enabled = True
End Sub
Cdt
Lupin
Voilà, j'ai réinstallé VS6 pour voir dans mon projet :
(La virtualisation, quel bel outil :-) )
À l'ouverture du formulaire, tu connect ta BD ainsi :
Private Sub Form_Load()
dataAdministration.DatabaseName = Chemin
dataStat.DatabaseName = Chemin
dataStat.Refresh
dataStat.Recordset.MoveLast
dataStat.Recordset.MoveFirst
TimerOuvre.Enabled = True
End Sub
Cdt
Lupin
