LISTE DES DRIVERS ODBC ET DSN ASSOCIES (MAJ)
sarl_adc
Messages postés
141
Date d'inscription
lundi 3 novembre 2003
Statut
Membre
Dernière intervention
20 octobre 2005
-
26 nov. 2003 à 08:45
VBsearch Messages postés 50 Date d'inscription jeudi 21 juillet 2005 Statut Membre Dernière intervention 22 août 2009 - 28 juil. 2010 à 03:33
VBsearch Messages postés 50 Date d'inscription jeudi 21 juillet 2005 Statut Membre Dernière intervention 22 août 2009 - 28 juil. 2010 à 03:33
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
https://codes-sources.commentcamarche.net/source/18214-liste-des-drivers-odbc-et-dsn-associes-maj
28 juil. 2010 à 03:33
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é.
27 janv. 2010 à 18:41
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.
12 août 2005 à 23:49
il y a un lien pour déposer une source, clic et tu suis bien ce qui est inscrit.
12 août 2005 à 23:28
6 août 2005 à 20:30
Que vient faire ce gros lourdeau d'Access ici ?
6 août 2005 à 20:16
On dira qu'on a rien vu...
6 août 2005 à 19:14
Ici, il n'est pas question de client Access mais purement de VB6 !
J'imagine mal installer le client Access pour que mon appli VB6 puisse connaître les drivers ODBC...
6 août 2005 à 19:07
12 févr. 2004 à 13:28
12 févr. 2004 à 11:22
++
Moustachu
26 nov. 2003 à 15:22
Merciiiiiii beaucoup :)
@++, Nico
26 nov. 2003 à 08:45
Ca peut être utile lorsqu'on installe une appli sur un autre ordi pour savoir rapidement s'il a les bons drivers.
D'ailleurs, une question (si quelqu'un peut me renseigner ce serait super ;p), j'ai une appli Windev compilée qui travaille avec une base et je cherche à accéder à cette base via VB mais je ne sais pas quels drivers ODBC utiliser... Les fichiers de la base portent les extensions .NDX, .FIC et .MMO, quelqu'un peut me dire avec quoi les lire ?)