Visual Basic Foro
Programación => Visual Basic 6 => Mensaje iniciado por: E N T E R en Agosto 29, 2013, 04:56:52 pm
-
Hola, hay una manera de saber si el MySQL-Connector-ODBC esta instalado en cualquier windows.
Tengo este code pero no me funciona. hay otra manera de saber si esta o instalado en el win.
Sub Comprobar_ODBC()
On Error Resume Next
Dim Wmi As Object
Dim Ret As Long
Dim Valor As String
Set Wmi = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
Path_clave = "SOFTWARE\ODBC\ODBCINST.INI\ODBC Drivers\"
Nombre_Valor = "MySQL ODBC 5.1 Driver"
Ret = Wmi.GetStringValue(HKEY_LOCAL_MACHINE, Path_clave, Nombre_Valor, Valor)
If Valor <> "" Then
Debug.Print "Si"
Else
Debug.Print "No"
End If
Set Wmi = Nothing
End Sub
-
La clave es correcta, el nobre del driver no lo se, en mi caso tengo el "MySQL ODBC 5.2 ANSI Driver" fija en la clave del registro si existe.
-
Si si existe todo cobein
-
Si estas en 64 bits estas claves estan mapeadas, aca dejo un ejemplo a ver si funciona.
https://dl.dropboxusercontent.com/u/43394978/Enum%20ODBC%20Drivers.zip
Saludos
Edit: Si todavia queres leer las mismas claves modifique la clase para forzarla a 32 o 64 bits y evitar el mapeo pero dudo que sea necesario.
-
perfecto cobein funciono de lujo, muchas gracias amigo.
Saludos...