cs_jimmy69
Messages postés778Date d'inscriptiondimanche 22 décembre 2002StatutMembreDernière intervention27 novembre 2008
-
7 sept. 2007 à 16:05
cs_jimmy69
Messages postés778Date d'inscriptiondimanche 22 décembre 2002StatutMembreDernière intervention27 novembre 2008
-
11 sept. 2007 à 11:00
Bonjour,
j'essayes de faire une fonction qui me retourne true ou false si une clef de registre existe ou pas !
Public Function CleRegistreExiste() As Boolean
Dim existe As Boolean
Dim val As String
val = ""
Dim WshShell
Set WshShell = CreateObject("WScript.Shell")
val = WshShell.RegRead("HKLM\Software\Microsoft\Microsoft SQL Server\FRAMEWORK\MSSQLServer\CurrentVersion\CSDVersion")
Set WshShell = Nothing
If (val <> "") Then
existe = True
Else
existe = False
End If
End Function
J'ai place un bouton sur ma form et j'appele ma function comme ceci :
Dim bo As Boolean
bo = CleRegistreExiste()
MsgBox bo
Le souci c'est qu'il me retourne toujours false alors que la clef a une valeur
8...pour sql server 2000
9... pour sql server 2005