Nous sommes conscient que la s\u00e9paration des donn\u00e9es et de l’ihm est primordiale pour une application\u00a0MS Access. L’attachement automatique est depuis de nombreuses ann\u00e9es rentr\u00e9 dans les m\u0153urs, chaque d\u00e9veloppeur\u00a0utilise le sien.<\/p>\n\n\n\n
Si au moment de l’installation, il est obligatoire de sp\u00e9cifier le chemin du fichier de donn\u00e9es, lors des mises \u00e0 jour de l’application cela peut agacer l’utilisateur. Surtout si elles sont r\u00e9guli\u00e8res. On se doit alors d’utiliser la persistance pour sauvegarder ces param\u00e8tres.<\/p>\n\n\n\n
En fait il n’y a pas une, mais plusieurs m\u00e9thodes pour stocker ses valeurs de configuration. La premi\u00e8re utilise les fichiers ini. Ce sont des fichiers texte qui ont une structure particuli\u00e8re dont voici un exemple :<\/p>\n\n\n\n
[Etiquette1] \nparametre1=Valeur \nparametre2=Valeur \n\n[Etiquette2] \nparametre1=Valeur<\/code><\/pre>\n\n\n\nLire et \u00e9crire dans un fichier ini<\/h2>\n\n\n\n
Lire et \u00e9crire dans ce type de fichier ne constitue pas une grosse difficult\u00e9 puisque Windows poss\u00e8de ces 2 fonctions dans l’API Kernel32.<\/p>\n\n\n\n
Je vous livre ici ces 2 fonctions impl\u00e9ment\u00e9es en VBA qui permettent de g\u00e9rer un fichier ini dans le r\u00e9pertoire de l’application.<\/p>\n\n\n\n
Private Declare Function GetPrivateProfileString Lib \"kernel32\" _ \n Alias \"GetPrivateProfileStringA\" _ \n (ByVal lpApplicationName As String, _ \n ByVal lpKeyName As Any, ByVal lpDefault As String, _ \n ByVal lpReturnedString As String, _ \n ByVal nSize As Long, _ \n ByVal lpFileName As String) As Long \n\nPrivate Declare Function WritePrivateProfileString Lib _ \n \"kernel32\" Alias \"WritePrivateProfileStringA\" _ \n (ByVal lpApplicationName As String, _ \n ByVal lpKeyName As Any, ByVal lpString As Any, _ \n ByVal lpFileName As String) As Long \n\nConst vgInifile = \"monapplication.ini\" \n\nFunction pIniLireParametre(vlEntete As String, _ \n vlNomParametre As String) As String '---------------------------------------------------------------- \n' Procedure : pIniLireParametre \n' Description : renvoi un param\u00e8tre depuis un fichier ini \n' sp\u00e9cifi\u00e9 par vgIniFile \n' Parameters : vlNomParametre est le nom du param\u00e8tre \u00e0 renvoyer \n' Return : le param\u00e8tre correspondant \u00e0 vlNomParametre '---------------------------------------------------------------- \n\nOn Error GoTo Errsub \n\nDim vParam As String, vlLong As Long \n\nvParam = String(255, 0) \nvlLong = GetPrivateProfileString(vlEntete, vlNomParametre, _ \n \"\", vParam, 255, CurrentProject.Path & \"\\\" & vgInifile) \n\nIf vlLong <> 0 Then vParam = Left$(vParam, vlLong) \n\npIniLireParametre = RTrim(vParam) \nExit Function \n\nErrsub: pIniLireParametre = \"\" \n\nEnd Function \n\nFunction pIniEcrireParametre(vlEntete As String, _ \n vlNomParametre As String, _ \n vlValeurParametre As String) As Boolean '-------------------------------------------------------------- \n' Procedure : pIniEcrireParametre \n' Description : remplace le param\u00e8tre dans un fichier ini sp\u00e9cifi\u00e9 \n' Parameters : vlEntete est l'ent\u00eate de la rubrique [] \n' vlNomParametre est le nom du param\u00e8tre \n' vlValeurParametre est la valeur du param\u00e8tre ' Return : N\/A '-------------------------------------------------------------- ' \nOn Error GoTo Errsub \n pIniEcrireParametre = True \n WritePrivateProfileString vlEntete, vlNomParametre, vlValeurParametre, _ \n CurrentProject.Path & \"\\\" & vgInifile \n\nExit Function \n\nErrsub: \npIniEcrireParametre = False \n\nEnd Function<\/code><\/pre>\n\n\n\nMise en \u0153uvre de la persistance<\/h2>\n\n\n\n
Admettons un fichier Ini comportant plusieurs param\u00e8tres dont celui indiquant le r\u00e9pertoire du fichier de donn\u00e9es.<\/p>\n\n\n\n
[Donnees] \nCheminData=C:\\Donnees\\ApplicationData\\data.accdb<\/code><\/pre>\n\n\n\nLa lecture se fera via l’instruction suivante :<\/p>\n\n\n\n
vFichierData = pIniLireParametre(\"Donnees\", \"CheminData\")<\/code><\/pre>\n\n\n\nIl sera alors tr\u00e8s simple de v\u00e9rifier le chemin fourni et celui des tables attach\u00e9es.<\/p>\n\n\n\n
Pour \u00e9crire le param\u00e8tre on utilise cette instruction lors de la premi\u00e8re installation :<\/p>\n\n\n\n
pIniEcrireParametre \"Donnees\", \"CheminData\", _ \n \"c:\\Donnees\\ApplicationData\\data.accdb\"<\/code><\/pre>\n\n\n\nConclusion<\/h2>\n\n\n\n
En quelques commandes vous avez donn\u00e9 de la persistance \u00e0 votre application et apporter un s\u00e9rieux gain de confort \u00e0 l’utilisateur.<\/p>\n","protected":false},"excerpt":{"rendered":"
Nous sommes conscient que la s\u00e9paration des donn\u00e9es et de l’ihm est primordiale pour une application\u00a0MS Access. L’attachement automatique est depuis de nombreuses ann\u00e9es rentr\u00e9 dans les m\u0153urs, chaque d\u00e9veloppeur\u00a0utilise le sien. Si au moment de l’installation, il est obligatoire … Continuer la lecture