Discussion :

[alec--]

Hello

Afin de me connecter a ma base de donnée et creer un fichier .ini, j'ai fais cela :

Module connexion

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
19
Option Explicit
Dim Valeur As String
 
 
Private Sub form_load()
BDD_HDD = CStr(LIRE_INI("BDD"))
    If BDD_HDD = String(255, 0) Then
        Do
            Valeur = InputBox("indiquez le chemin permettant d'accéder a la base de données ")
            Call ECRIRE_INI(BDD, Valeur)
            BDD_HDD = CStr(LIRE_INI("BDD"))
       Loop Until Trim(BDD_HDD) <> ""
    End If
 
 
Set BDD = New ADODB.Connection
BDD.provider = "Microsoft.jet.oledb.4.0"
BDD.connectionString = BDD_HDD
End Sub

Module Variable

Code :

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

1
2
3
4
5
 
Option Explicit
 
Dim BDD_HDD As String
Dim BDD As ADODB.Connection

Et enfin, module Fichier_ini

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
19
20
21
22
23
24
Option Explicit
 
 
Private Declare Function getprivateprofilestring Lib "kernel32" Alias "getprivateprofilestringa" (ByVal ipapplicationName As String, ByVal ipkeyname As Any, ByVal ipdefault As String, ByVal ipreturnedstring As String, ByVal nsize As Any, ByVal ipfilename 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 LIRE_INI(Entete As String, variable As String) As String
Dim retour As String
Fichier = app.Path & "\" & app.EXENAME & ".ini"
retour = String(255, Chr(0))
LIRE_INI = Left$(retour, getprivateprofilestring#(Entete, ByVal variable, "", retour, Len(retour), Fichier))
End Function
 
 
Function ECRIRE_INI(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
 
ECRIRE_INI "entete", "variable", " valeur "
LIRE_INI "entete", "variable"

Bon tout ca, a été fait a partir d'un modélé... mais... une question me viens... a quel moment le programme sait a quelle BDD se connecter ? ne manque t'il pas une ligne de code avec le

Code :

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

" & app.path" MaBase.mdb

??

si oui, ou le placer ?

merci

[OhMonBato]

Que veux tu faire exactement ? Simplement stocker dans un fichier ini l'adresse de ta base de données ?
Déjà vu ce que tu mets dans le fichier texte, un simple "Print#, Adresse fichier" aurait suffit. Quand on peut il faut être fainéant, ça allège souvent le code

Faire définir à l'utilisateur le chemin de la base de données en le faisant taper avec ses petits doigts boudinés l'adresse complète, c'est pas tip top si je peux me permettre. Essaye d'utiliser le contrôle CommonDialog qui est là pour ça.

Dans ton appel à EcrireIni, que vaut BDD ? Tu lui passe 2 paramètres mais la fonction en demande 3 non ?