OVH Cloud OVH Cloud

Question générale .INI

4 réponses
Avatar
Sébastien.
Bonjour,

j'i une question b=EAte et je n'arrive pas =E0 trouver d'info,

je voudrais que mon appli Access prenne des infos dans=20
un .INI au d=E9marrage (.ini diff=E9rents en fonction des=20
utilisateurs) mais... je ne sais pas comment on fait pour=20
fire lire access dans le .INI.

En gros ce que je voudrais qu'il r=E9cup=E8re, c'est=20
l'identifiant de mon utilisateur et un chemin d'acc=E8s.

je suis s=FBr que ce n'est pas dur mais je ne trouve pas les=20
infos.

Quelqu'un pourrait-il me dire o=F9 je peux trouver des infos=20
l=E0-dessus ou m'expliquer comment =E7a fonctionne ?

Merci par avance de vote aide.

S=E9bastien.

4 réponses

Avatar
Guy Detienne
Salut ;O)

Dans un module:
______________________________________________________-
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias
"GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal
lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As
String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Private Declare Function WritePrivateProfileString Lib "kernel32" Alias
"WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal
lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long

Public Function ReadINI(Section As String, sKeyName As String, FileName As
String) As String

Dim sRet As String

sRet = String(255, Chr(0))
ReadINI = Left(sRet, GetPrivateProfileString(Section, sKeyName, "",
sRet, Len(sRet), FileName))

End Function
Public Function WriteINI(sSection As String, sKeyName As String, sNewString
As String, sFileName) As Integer

Dim R As Long

R = WritePrivateProfileString(sSection, sKeyName, sNewString, sFileName)

End Function


Quelque part dans ton programme:
______________________________________________________-

'Pour lire la valeur d'une clé dans une section
Msgbox ReadINI("MaSection","MaClé","C:MonRépertoireMonFichierINI.ini")

'Pour écrire le contenu d'une clé dans section
Call
WriteINI("MaSection","MaClé","LaValeurAécrire","C:MonRépertoireMonFichierI
NI.ini")

J'espère que cela t'aidera.

Guy
__________________________________
Tchao.net: L'informatique à votre dimension
www.tchao.net
Pour toute réponse, retirer le .nospam de l'adresse mail
ou cliquez ici http://cerbermail.com/?6nQ9U2fpkD
"Sébastien." a écrit dans le message de
news:127d401c3f632$7578e200$
Bonjour,

j'i une question bête et je n'arrive pas à trouver d'info,

je voudrais que mon appli Access prenne des infos dans
un .INI au démarrage (.ini différents en fonction des
utilisateurs) mais... je ne sais pas comment on fait pour
fire lire access dans le .INI.

En gros ce que je voudrais qu'il récupère, c'est
l'identifiant de mon utilisateur et un chemin d'accès.

je suis sûr que ce n'est pas dur mais je ne trouve pas les
infos.

Quelqu'un pourrait-il me dire où je peux trouver des infos
là-dessus ou m'expliquer comment ça fonctionne ?

Merci par avance de vote aide.

Sébastien.
Avatar
Raymond [mvp]
bonjour.
tu trouveras une application sur :
http://access.seneque.free.fr/fichier_ini.htm

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Sébastien." a écrit dans le message de
news:127d401c3f632$7578e200$
Bonjour,

j'i une question bête et je n'arrive pas à trouver d'info,

je voudrais que mon appli Access prenne des infos dans
un .INI au démarrage (.ini différents en fonction des
utilisateurs) mais... je ne sais pas comment on fait pour
fire lire access dans le .INI.

En gros ce que je voudrais qu'il récupère, c'est
l'identifiant de mon utilisateur et un chemin d'accès.

je suis sûr que ce n'est pas dur mais je ne trouve pas les
infos.

Quelqu'un pourrait-il me dire où je peux trouver des infos
là-dessus ou m'expliquer comment ça fonctionne ?

Merci par avance de vote aide.

Sébastien.
Avatar
Sébastien.
Merci bcp, je vais tester ça.

Sébastien.

-----Message d'origine-----
Salut ;O)

Dans un module:
______________________________________________________-
Private Declare Function GetPrivateProfileString
Lib "kernel32" Alias

"GetPrivateProfileStringA" (ByVal lpApplicationName As
String, ByVal

lpKeyName As Any, ByVal lpDefault As String, ByVal
lpReturnedString As

String, ByVal nSize As Long, ByVal lpFileName As String)
As Long

Private Declare Function WritePrivateProfileString
Lib "kernel32" Alias

"WritePrivateProfileStringA" (ByVal lpApplicationName As
String, ByVal

lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName
As String) As Long


Public Function ReadINI(Section As String, sKeyName As
String, FileName As

String) As String

Dim sRet As String

sRet = String(255, Chr(0))
ReadINI = Left(sRet, GetPrivateProfileString(Section,
sKeyName, "",

sRet, Len(sRet), FileName))

End Function
Public Function WriteINI(sSection As String, sKeyName As
String, sNewString

As String, sFileName) As Integer

Dim R As Long

R = WritePrivateProfileString(sSection, sKeyName,
sNewString, sFileName)


End Function


Quelque part dans ton programme:
______________________________________________________-

'Pour lire la valeur d'une clé dans une section
Msgbox ReadINI
("MaSection","MaClé","C:MonRépertoireMonFichierINI.ini")


'Pour écrire le contenu d'une clé dans section
Call
WriteINI
("MaSection","MaClé","LaValeurAécrire","C:MonRépertoireMo

nFichierI
NI.ini")

J'espère que cela t'aidera.

Guy
__________________________________
Tchao.net: L'informatique à votre dimension
www.tchao.net
Pour toute réponse, retirer le .nospam de l'adresse mail
ou cliquez ici http://cerbermail.com/?6nQ9U2fpkD
"Sébastien." a écrit dans le
message de

news:127d401c3f632$7578e200$
Bonjour,

j'i une question bête et je n'arrive pas à trouver d'info,

je voudrais que mon appli Access prenne des infos dans
un .INI au démarrage (.ini différents en fonction des
utilisateurs) mais... je ne sais pas comment on fait pour
fire lire access dans le .INI.

En gros ce que je voudrais qu'il récupère, c'est
l'identifiant de mon utilisateur et un chemin d'accès.

je suis sûr que ce n'est pas dur mais je ne trouve pas les
infos.

Quelqu'un pourrait-il me dire où je peux trouver des infos
là-dessus ou m'expliquer comment ça fonctionne ?

Merci par avance de vote aide.

Sébastien.


.



Avatar
Michel Walsh
Salut,


Des fichiers *.ini, ça s'égare, etc. Pourquoi ne pas utiliser une table
avec trois champ, Utilisateur, Paramètre, Valeur. De cette façon, on peut
lire les valeurs associées aux paramètres, selon chaque utilisateur... et on
ne peut pas égarer la table, elle fait partie de l'application, elle suit
l'application. Et il n'y a rien de spécial à programmer, c'est le propre
d'une base de données de traiter des données, mieux que dans des fichiers
épars, ou que dans le registre du système d'exploitation...


Vaderghast, Access MVP

"Sébastien." wrote in message
news:127d401c3f632$7578e200$
Bonjour,

j'i une question bête et je n'arrive pas à trouver d'info,

je voudrais que mon appli Access prenne des infos dans
un .INI au démarrage (.ini différents en fonction des
utilisateurs) mais... je ne sais pas comment on fait pour
fire lire access dans le .INI.

En gros ce que je voudrais qu'il récupère, c'est
l'identifiant de mon utilisateur et un chemin d'accès.

je suis sûr que ce n'est pas dur mais je ne trouve pas les
infos.

Quelqu'un pourrait-il me dire où je peux trouver des infos
là-dessus ou m'expliquer comment ça fonctionne ?

Merci par avance de vote aide.

Sébastien.