Discussion :

[gouyette27420]

Bonjour

je souhaiterais pouvoir modifier mon data source dans le fichier app.config; a savoir :

Code xml :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
<?xml version="1.0" encoding="utf-8" ?>
<configuration>
    <configSections>
    </configSections>
    <connectionStrings>
        <add name="Gestion_SANDRINE.My.MySettings.contactslangConnectionString"
 
            connectionString="Provider=Microsoft.Jet.OLEDB.4.0;               Data Source=C:\Users\Admin\Desktop\mdb\xxxxxxxx.mdb"  <------- comment remplacer par une donnée externe 
 
 
            providerName="System.Data.OleDb" />
    </connectionStrings>
    <startup>
        <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.5" />
    </startup>
</configuration>

en vous remerciant par avance
JC

[themine702]

tu peut le trouver dans l'Explorateur de solution sous ton projet :

[gouyette27420]

Merci pour ta réponse, j'avais déjà trouvé ce fichier dans mon projet,
ma question est donc : comment mettre une variable a la place du code écrit pas le système :

Data Source="C:\Users\Admin\Desktop\mdb\xxxxxxxx.mdb" <--- écrit par le système, mais cela implique un fichier toujours au même endroit quelques soit l'ordi,

et en cas de déploiement c'est pas toujours le cas.

Merci encore pour ta réponse
JC

[themine702]

Mais si je comprend bien tu veux changer le Chemin (path) du fichier DataSource, et donc tu veux mettre une variable à la place du Path du DataSource non ?

Si c'est ça je pense pas que ce soit possible Parcontre tu peux modifier le app.config au runtime donc ça revient au même enfaite

Utilise ce code sur l'Event [Form.Loaded] :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
        Dim conf = ConfigurationManager.OpenExeConfiguration(ConfigurationUserLevel.None)
        Dim connectionStringsSection As ConnectionStringsSection = config.GetSection("connectionStrings")
        connectionStringsSection.ConnectionStrings("Gestion_SANDRINE.My.MySettings.contactslangConnectionString").ConnectionString = "Data Source= " & ta_variable & ";"
 
        conf.Save()
        ConfigurationManager.RefreshSection("connectionStrings")

et voilà

Edit :
Tu doit ajouter la référence "system.configuration" à ton projet puis l'includer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Import system.configuration

[gouyette27420]

Bonjour Themine,
merci pour ta réponse, je comprend ta réponse,
petite question subsidiaire, comment je peux faire, pour que la variable que je place dans mon app comfig, vienne d'un fichier
externe a l'application, es ce un fichier texte ou autre? et comment je peux le faire comprendre a l'application lors de l'ouverture
de la dite application.
je sais suis pénible, mais il y a pas longtemps que je pratique, je viens d’être en retraite et donc pour passer le temps......en plus du confinement.
d'avance merci

[themine702]

je sais suis pénible

oh mais t'inquète, ça me dérange pas du tout, tu sais avec le confinement j'ai pas vraiment grande chose à faire donc y'a pas de soucis

bah tu met la variable(valeur) que tu veux dans un fichier, puis tu lit cette valeur depuis ce fichier avec System.IO.StreamReader

tu crée un fichier et t'enregistre la valeur que tu veux dedans, moi je vais appeler le fichier : "Fichier.txt" pour l'example

puis dans ton code tu fait :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
	dim blabla as new System.IO.StreamReader("Fichier.txt")		
	dim ta_variable as string = blabla.ReadLine()
	blabla.close()
 
	Dim conf = ConfigurationManager.OpenExeConfiguration(ConfigurationUserLevel.None)
        Dim connectionStringsSection As ConnectionStringsSection = config.GetSection("connectionStrings")
        connectionStringsSection.ConnectionStrings("Gestion_SANDRINE.My.MySettings.contactslangConnectionString").ConnectionString = "Data Source= " & ta_variable & ";"
 
        conf.Save()
        ConfigurationManager.RefreshSection("connectionStrings")

[gouyette27420]

bonjour,
merci pour ta réponse, je regarde et j'essaie d'appliquer, je reviens vers toi pour te dire comment cela ce passe.
et merci encore
jc

[gouyette27420]

heu j'ai une question complémentaire
le fichier .txt que je doit créer, je le met ou ????
sur l'ordi, je sais mais dans quel répertoire ?

[themine702]

Dans le dossier ou tu as ton fichier Exe (dans ton Release/Debug), ou sinon au lieu de ne mettre que le nom du fichier, tu peux mettre un chemin de fichier, et sinon faut pas forcément qu'il soit .txt en fait l'extention importe peu )

[gouyette27420]

merci, je regarde et te tient au courant
encore merci

[themine702]

encore merci

pas besoin de me remercier y'a pas d'soucis !

[gouyette27420]

j'ai commencé à appliquer tes directives et je rencontre une erreur :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

        Dim connectionStringsSection As ConnectionStringsSection = config.GetSection("connectionStrings"),

j'ai une erreur sur "config.getsection..................".

le système m'indique que 'config' n'est pas déclaré

un peu dans le potage,

[gouyette27420]

je pense avoir trouvé, j'ai remplacer 'config' par 'conf', plus d'erreur,

[gouyette27420]

bon j'ai une erreur dans ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
  <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
         Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")>  _
        Friend Property Connection() As Global.System.Data.OleDb.OleDbConnection
            Get
                If (Me._connection Is Nothing) Then
 
 
             Me.InitConnection  ' <------------------------------sur cette ligne il me dit : Un fournisseur OLE DB n'était pas spécifié dans ConnectionString. Par exemple, 'Provider=SQLOLEDB;'.
                                        '                                       j 'ai rien touché a ce code , j'y comprend plus rien, et c'est code generé automatiquement, j'ai du rester couché le jour
                                        '                                       ou j'ai décidé de me lancer la dedans 
 
 
 
 
                End If
                Return Me._connection
            End Get
            Set