Discussion :

[yaumme]

Bonjour,

Pour commencer je tient à dire que je ne suis pas tres doué en VB.

Jusqu'à present j'accedai à une BDD sous access par la ligne suivante:

M_DB.connection("\\xxxx\yyy.mdb")

Or je souhaiterai que le chemin soit contenu dans un fichier ini que j'ai ecris comme suit:

Fichier.ini
*******
[BASE]
chemin=\\xxxx\yyy.mdb



Mais apres cela je ne sais pas quoi ecrire dans mon programme VB et par quoi remplacer la ligne de dessus, j'ai essayé en m'inspirant d'exemple du net mais je n'ai pas reussi à le faire fonctionner.

PS: j'utilise VB 2005 Express


Merci à ceux qui auront l'amabilité de m'éclairer.

[The_badger_man]

Utilise plutot le fichier de config "App.config" qui a du etre intégré à ton projet.

Code xml :

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

1
2
3
4
5
6
7
8
9
10
11
 
<configuration>
  <configSections>
  </configSections>
  <appSettings>
  </appSettings>
  <connectionStrings>
    <add name="maConnexion" connectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\Data\maBase.mdb;Persist Security Info=True"
      providerName="System.Data.OleDb" />
  </connectionStrings>
</configuration>

Et tu récupère la chaine avec

Code C# :

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

1
2
3
 
using System.Configuration;
String chaine = ConfigurationManager.ConnectionStrings["maConnexion"].ConnectionString;

[Gdal]

Salut,

J'ai trouvé ça :

Code VB.Net :

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
19
20
 
    * 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
    *
    * Function LireINI(Entete As String, Variable As String) As String
    * Dim Retour As String
    * Fichier = App.Path & "\" & App.EXEName & ".ini"
    * Retour = String(255, Chr(0))
    * LireINI = Left$(Retour, GetPrivateProfileString(Entete, ByVal Variable, "", Retour, Len(Retour), Fichier))
    * End Function
    *
    * Function EcrireINI(Entete As String, Variable As String, Valeur As String) As String
    * Fichier = App.Path & "\" & App.EXEName & ".ini"
    * WriteINI = WritePrivateProfileString(Entete, Variable, Valeur, Fichier)
    * End Function
    *
    * ' Pour l'executer ex :
    * EcrireINI("MonEntete", "MaVariable", "MaValeur")
    * LireINI("MonEntete", "MaVariable")

Mais je te conseil de lire ce qui se trouve sur Plasserre, la partie Configuration par paramètres Settings de VB2005 (Framework 2) me semble parfaite pour ce que tu souhaites faire.

Autrement sur le forum tu as
[Résolu] [VB.NET] Comment implémenter le stockage de paramètres dans les fichiers .Ini ?
[Résolu] [VB.NET] Classe qui pilote des Fichier .INI

Bon je fini, par curiosité j'ai fait une recherche pour lire et écrire dans des fichiers XML.

Regarde aussi du côté des fichiers textes je crois qu'il y a une classe qui fait sa très bien

Bonne lecture.

Gwendal