Connexion Base de donnée via module

**alec--** · 15/06/2007, 15h55

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