1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28
|
Private Sub Form_Load()
virgule = False
Dim i As Integer
i = 1
chemin = ""
boite.DialogTitle = "Sélection de la BDD Articles"
boite.Filter = "Base de Donnée (*.mdb)|*.mdb" 'permet de ne selectionner que les fichier texte
boite.ShowOpen
chemin = boite.FileName
If chemin <> "" Then
connexionADO.Provider = "Microsoft.jet.OLEDB.4.0"
connexionADO.ConnectionString = chemin
connexionADO.Open
Call remplir_flex_article
Else
MsgBox ("desolé vous ne pouvez pas utiliser l'application sans choisir la base de donnée")
End
End If
End Sub |