LIRE LES CONNEXIONS ODBC DE SA MACHINE

'Declaration de cette fonction dans le module principale
Public Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long


'Declaration de cette fonctiion dans la feuille de demarrage
Public Function GetWindowsDir() As String

'Recherche du dossier windows qui ne se trouve pas forcement sur C:
Dim temp As String
Dim x As Long
temp = Space(255)
x = GetWindowsDirectory(temp, Len(temp))
GetWindowsDir = Left(temp, x)

End Function



Private Sub Form_Load()

'ouverture du fichier odbc.ini en lecture seule
Dim TextLine As String
Dim Position As Long
Open GetWindowsDir & "\odbc.ini" For Input As #1   ' Ouvre le fichier.
Do While Not EOF(1)   ' Effectue la boucle jusqu'à la fin du fichier.
   Line Input #1, TextLine      ' Lit la ligne dans la variable.
   If InStr(Left(TextLine, 4), "XXX") Then 'regarde si XXX est ecrit dans le fichier ODBC
        Position = InStr(TextLine, "=") - 1 'regarde ou se trouve le signe =
        CmbConnexion.AddItem (Left(TextLine, Position)) 'rajoute la connexion dans le choix de la combobox
   End If
Loop
Close #1

End Sub