VBsearch
Messages postés50Date d'inscriptionjeudi 21 juillet 2005StatutMembreDernière intervention22 août 2009 28 juil. 2010 à 03:33
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é.
Manugeo
Messages postés1Date d'inscriptionmardi 17 juillet 2007StatutMembreDernière intervention27 janvier 2010 27 janv. 2010 à 18:41
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.
BruNews
Messages postés21040Date d'inscriptionjeudi 23 janvier 2003StatutModérateurDernière intervention21 août 2019 12 août 2005 à 23:49
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.
mldzogoum
Messages postés2Date d'inscriptionsamedi 6 août 2005StatutMembreDernière intervention12 août 2005 12 août 2005 à 23:28
Je voudrais ajouter un source mais je ne sais pas comment faire ?
Neo.balastik
Messages postés796Date d'inscriptionjeudi 17 mai 2001StatutMembreDernière intervention 5 mai 20097 6 août 2005 à 20:30
BruNews > en effet ! Mais de toute façon je ne vois pas l'intérêt de ce que mldzogoum parlait.
Que vient faire ce gros lourdeau d'Access ici ?
BruNews
Messages postés21040Date d'inscriptionjeudi 23 janvier 2003StatutModérateurDernière intervention21 août 2019 6 août 2005 à 20:16
C'est de toute manière totalement illégal d'installer un client Access sur un autre poste si on ne développe pas sur Office Developer et si on n'as pas cette licence.
On dira qu'on a rien vu...
Neo.balastik
Messages postés796Date d'inscriptionjeudi 17 mai 2001StatutMembreDernière intervention 5 mai 20097 6 août 2005 à 19:14
Et c'est quoi cette API ? C'est bien de lancer un truc mais 'faut spécifier.
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...
mldzogoum
Messages postés2Date d'inscriptionsamedi 6 août 2005StatutMembreDernière intervention12 août 2005 6 août 2005 à 19:07
Lorsque l'on installe client Acess sur une machine on a une api qui nous permet de créer cela facilement
Neo.balastik
Messages postés796Date d'inscriptionjeudi 17 mai 2001StatutMembreDernière intervention 5 mai 20097 12 févr. 2004 à 13:28
Moustachu: Si on partage une source, tant qu'à faire, mieux vaut qu'elle soit présentable ;O) Merci !
cs_moustachu
Messages postés1079Date d'inscriptionjeudi 14 novembre 2002StatutMembreDernière intervention 1 janvier 2012 12 févr. 2004 à 11:22
Merci bien, j'avais une bidouille pour rechercher dans le fichier odbc.ini mais ce n'était pas aussi propre... Nickel
++
Moustachu
NicoProg
Messages postés26Date d'inscriptionlundi 2 avril 2001StatutMembreDernière intervention28 mars 2005 26 nov. 2003 à 15:22
Super tip top, je cherchais depuis un bout de temps ou trouver ces infos, et tu me donne la réponse ici avec la clé de base de registre.
Merciiiiiii beaucoup :)
@++, Nico
sarl_adc
Messages postés141Date d'inscriptionlundi 3 novembre 2003StatutMembreDernière intervention20 octobre 2005 26 nov. 2003 à 08:45
Hello !
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 ?)
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 ?)