LISTE DES DRIVERS ODBC ET DSN ASSOCIES (MAJ)

Signaler
Messages postés
141
Date d'inscription
lundi 3 novembre 2003
Statut
Membre
Dernière intervention
20 octobre 2005
-
Messages postés
50
Date d'inscription
jeudi 21 juillet 2005
Statut
Membre
Dernière intervention
22 août 2009
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/18214-liste-des-drivers-odbc-et-dsn-associes-maj

Messages postés
50
Date d'inscription
jeudi 21 juillet 2005
Statut
Membre
Dernière intervention
22 août 2009

Si, dans la classe "clsFileInfo", on ajoute "Option Explicit" on a 4 beaux messages: Variable non définie.
Les variables en question sont avec leurs valeurs correctes :
1 - Const VFT_FONT_RASTER = &H1
2 - Const VFT_FONT_VECTOR = &H2
3 - Const VFT_FONT_TRUETYPE = &H3
et dans la structure
Select case udtVerBuffer.dwFileOS
............
............
Case Other : Il faut mettre Case Else
La raison est toute simple : Le code a été copié depuis ApiGuide en supprimant la clause "Option Explicit" pour ne pas avoir d'embêtement avec des variables non définies et en supprimant ce qui se rapporte à l'auteur légitime du code. En voici un extrait :
Private Sub Form_Load()
'KPD-Team 2000
'URL: http://www.allapi.net/
'E-Mail: KPDTeam@Allapi.net
'Source -> MS Knowledge Base
'set the file
Filename = "kernel32.dll"
Directory = "c:\windows\system"
FullFileName = Directory + Filename
'set graphics mode to persistent
Me.AutoRedraw = True
'retrieve the information
DisplayVerInfo
'show the results
Me.Print "Full filename: " + FullFileName
Me.Print "File version: " + FileVer
Me.Print "Product version: " + ProdVer
Me.Print "File flags: " + FileFlags
Me.Print "File OS: " + FileOS
Me.Print "File type: " + FileType + IIf(FileSubType = "", "", " (" + FileSubType + ")")
End Sub
Certes, il y a eu un effort pour code cette classe mais cela n'empêche pas de signaler le nom de l'auteur ou l'équipe qui l'a codé.
Messages postés
1
Date d'inscription
mardi 17 juillet 2007
Statut
Membre
Dernière intervention
27 janvier 2010

Excellent !
Grâce à ce code que j'ai simplifié (pas besoin de toutes les fonctions), j'ouvre des connexions de façon transparente, sans devoir créer mes DSN au préalable, et sans risquer le plantage si un driver ODBC a changé de version.
Beaucoup plus de sureté dans mes installs.

Merci.
Messages postés
21041
Date d'inscription
jeudi 23 janvier 2003
Statut
Modérateur
Dernière intervention
21 août 2019
26
en haut de page sous 'Information sur votre compte'
il y a un lien pour déposer une source, clic et tu suis bien ce qui est inscrit.
Messages postés
2
Date d'inscription
samedi 6 août 2005
Statut
Membre
Dernière intervention
12 août 2005

Je voudrais ajouter un source mais je ne sais pas comment faire ?
Afficher les 12 commentaires