gerer le fichier appconfig

Version imprimable

19/03/2011, 18h29
Brialex

gerer le fichier appconfig

Bonjour à tous,

Je souhaiterais mettre une application que j'ai réalisé sur plusieurs poste pour l'instant elle est presente sur un seul poste et donc pour le développement j'ai pas eu de probleme j'ai adapter les chemins d'accès au donné, les chemins des fichiers a récuperer ... directement dans le code.

Sauf que la comme j'aurai besoin de la mettre disponible sur plusieurs autre poste je souhaiterais que les differents chemins sois placer dans un autre fichier et que lors de l'instal on est juste a configurer ce fichier.
¨
Pour cela, on ma conseillé de passé par le fichier config present dans Visual studio mais je ne vois pas comment placer les ficier j'ai reussi a placer celui de la base de donnée mais lorsque je souhaite mettre les differents chemins que l'application doit utilisé j'ai toujours des erreurs comme quoi des attributs son manquant

Je voudrais donc savoir si vous avez d'autre idée pour résoudre mon probleme ou si vous avez une idée pour configurer mon fichier appconfig

Merci à tous
20/03/2011, 00h06
Jerede

Bonsoir,

Concernant les attributs manquants, ta syntaxe xml ne doit pas être correct. On peut voir le fichier avec les "ajouts" ?
20/03/2011, 16h18
Brialex
pour déclarer par exemple un chemin d'accès je suis passer par des balise appconfig
Code:

1 2 3 <appSettings> <add key="fichiernom" value="C:\Users\Alexandre\Desktop\appli\Nom.xls"/> </appSettings>
et pour récupere le chemin dans le form j'ai le code :
Code:

1 2 Dim fichiernom As System.Configuration.AppSettingsSection xlsBook = excel.Workbooks.Open(System.Configuration.ConfigurationManager.AppSettings.GetValues(fichiernom))
et donc j'ai des erreurs précisant que

Citation:

La résolution de surcharge a échoué, car aucun 'GetValues' accessible ne peut être appelé avec ces arguments :
'Public Overridable Function GetValues(index As Integer) As String()' : Impossible de convertir une valeur de type 'System.Configuration.AppSettingsSection' en 'Integer'.

et une erreurs comme quoi des attributs son manquant
20/03/2011, 18h22
Jerede
Bonjour,
Citation:
Envoyé par Brialex

Code:

1 2 Dim fichiernom As System.Configuration.AppSettingsSection xlsBook = excel.Workbooks.Open(System.Configuration.ConfigurationManager.AppSettings.GetValues(fichiernom))
GetValues() te retourne un tableau de String, or tu veut passer le premier élement de ce tableau, donc fait plutôt GetValues(fichiernom)(0).
De plus c'est la chaine fichiernom que tu dois lui passer en paramètre et non la variable, donc "fichiernom".

Pour l'erreur concernant les attributs manquants, je dois voir le fichier xml complet.
20/03/2011, 18h31
Anklor

C'est en C# mais facilement transcodable
http://nico-pyright.developpez.com/t...sectioncsharp/
21/03/2011, 00h47
Brialex
Merci Jerede pour ton aide, après plusieurs essaie je me suis débarraser de mon erreur xml par contre j'ai toujours une erreur

Citation:

Impossible de convertir une valeur de type 'Tableau à 1 dimension(s) de String' en 'String'.
Code:

1 2 Dim fichiernom As System.Configuration.AppSettingsSection xlsBook = excel.Workbooks.Open(System.Configuration.ConfigurationManager.AppSettings.GetValues("fichiernom"))
Merci à Anklor justement je chercher des information sur appconfig pour mieux comprend son fonctionnement.

Je vous tiens au courant bonne soirée
21/03/2011, 09h29
Jerede
Citation:
Envoyé par Brialex

Merci Jerede pour ton aide, après plusieurs essaie je me suis débarraser de mon erreur xml par contre j'ai toujours une erreur
Impossible de convertir une valeur de type 'Tableau à 1 dimension(s) de String' en 'String'.

Code:

1 2 Dim fichiernom As System.Configuration.AppSettingsSection xlsBook = excel.Workbooks.Open(System.Configuration.ConfigurationManager.AppSettings.GetValues("fichiernom"))
Citation:

Envoyé par Jerede

GetValues() te retourne un tableau de String, or tu veut passer le premier élement de ce tableau, donc fait plutôt GetValues(fichiernom)(0).
22/03/2011, 02h20
Brialex

Excuse moi j'ai oublier de préciser j'ai essayer en ajoutant (0) a ce moment la l'erreur disparait mais à la place sa me dit que fichiernom est déclarer mais inutilé et donc quand je test l'application il recupere rien.

J'ai essayé avec le lien qui ma ete donné mais toujours pareil :?

Merci en tous cas, j'espere que vous pourrez m'aider

MY.SETTINGS,user

bonjour
pourquoi n'utilse-tu simplement my.settings,porte user dans parametres d'application ou tu stockeras tes differents chemins
nom : Chemin1
type :string
porte :User
valeur:\dossier1\
nom : Chemin2
type :string
porte :User
valeur:dossier2\Exemple\
Apres deployement on les trouves dans monAppli.AppSettings.exe.config
voici un exemple du fichier apres installation dans repertoire Application:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
<?xml version="1.0" encoding="utf-8" ?>
<!--........................................-->
<!--section userSettings ou il faut intervenir----->
  <userSettings>
    <AppSettings.My.MySettings>
      <setting name="chemin1" serializeAs="String">
        <value>\dossier1\</value>
      </setting>
      <setting name="chemin2" serializeAs="String">
        <value>\dossier2\Exemple\</value>
      </setting>
    </AppSettings.My.MySettings>
  </userSettings>
  </configuration>

apres modification de ce fichier sur poste user:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
<?xml version="1.0" encoding="utf-8" ?>
<!--........................................-->
<!--section userSettings modifie dans monAppli.exe.config ----->
<userSettings>
  <AppSettings.My.MySettings>
    <setting name="chemin1" serializeAs="String">
      <value>D:\dossier1\</value>
    </setting>
    <setting name="chemin2" serializeAs="String">
      <value>E:\dossier2\Exemple\</value>
    </setting>
  </AppSettings.My.MySettings>
</userSettings>
</configuration>

code application d'acces aux chemins "stores":

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
 
Public Class Form2
    Dim strPath1 As String = String.Empty
    Dim strPath2 As String = String.Empty
    Private Sub Form2_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        strPath1 = My.Settings.chemin1
        strPath2 = My.Settings.chemin2
    End Sub
    'avant intervention
    Private Sub btnCheminInitial_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCheminInitial.Click
        TextBox1.Text = strPath1 & vbCrLf
        TextBox1.Text = TextBox1.Text & strPath2
 
    End Sub
    'apres intervention
    Private Sub btnCheminModifie_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCheminModifie.Click
        TextBox2.Text = strPath1 & vbCrLf
        TextBox2.Text = TextBox2.Text & strPath2
    End Sub
End Class

bon code....