Lire les connexions odbc de sa machine

Commenter

Contenu du snippet

Permet de recuperer les connexions ODBC si on doit travailler avec plusieurs base de donnees de type differents. Le seul probleme est qu'elles doivent toutes commencer par la meme chose (XXX par exemple). Ainsi au demarrage du programme il ne reste plus qu'a choisir la base de donnees qui vous interresse.

Source / Exemple : 


‘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

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (mathnel)