Soyez le premier à donner votre avis sur cette source.
Snippet vu 4 724 fois - Téléchargée 49 fois
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
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.