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
