Foros del Web

Foros del Web (http://www.forosdelweb.com/)
-   Visual Basic clásico (http://www.forosdelweb.com/f69/)
-   -   conexion base de datos (http://www.forosdelweb.com/f69/conexion-base-datos-370122/)

Jennifer_munn 10/02/2006 03:59

conexion base de datos
 
Tengo una duda... bastante gorda, creo...
Estoy creando un programita en el q utilizo una base de datos access 97 pero ahora estoy pensando qué pasaría si la persona que instala este programita no tiene access 97 y sí access 2003. a la hora de instalar yo instalaría una base access 97 pero si en esa maquina no tengo esta version podría hacer la conexion?? si la respuesta es no (q es lo q me estoy imaginando) cómo podría yo comprobar qué access esta instalado en la máquina y así realizar la conexion q corresponda?? si alguien puede decirme cómo conectarse a una base de datos 2003 tb lo agradecería.
GRACIAS

Jennifer_munn 10/02/2006 04:07

He encontrado este código para saber si existe access en la máquina o no, tal vez a alguien le sirva... yo por mi parte necesito algo más

Option Explicit
'Modulo para Visual Basic 6
Private Const MAX_FILENAME_LEN = 256
Private Declare Function FindExecutableA Lib "shell32.dll" (ByVal lpFile As String, ByVal lpDirectory As String, ByVal lpResult As String) As Long


Function ExisteAccess(UnaRutaBd As String) As Boolean
Dim I As Integer, S2 As String
Dim Buho As String
S2 = String(MAX_FILENAME_LEN, 32) & Chr$(0)
I = FindExecutableA(UnaRutaBd & Chr$(0), vbNullString, S2)
If I > 32 Then
Buho = Left$(S2, InStr(S2, Chr$(0)) - 1)
If Mid(Buho, InStrRev(Buho, "\") + 1) = "MSACCESS.EXE" Then
ExisteAccess = True
Else
ExisteAccess = False
End If
Else
ExisteAccess = False
End If
End Function
'Otra mas
Function ExisteAccess1() As Boolean
Dim ObjetoAccess As Object

On Error GoTo Etiqueta_Error
Set ObjetoAccess = CreateObject("Access.Application")
Set ObjetoAccess = Nothing

ExisteAccess1 = True

Etiqueta_Error:
MsgBox Err.Number
'aqui recoge el error que sea en una maquina donde no tengas
'access instalado, ya que no sé que error saldrá si no existe el Access
'pues yo en todas mis maquinas lo tengo. Yo creo que es el 429...pero pruebalo

End Function

Function probando1()
MsgBox ExisteAccess1
End Function

Function probando()
MsgBox ExisteAccess(App.Path & "\tubase.mdb")
End Function

Frehley 10/02/2006 05:19

No necesita tener Access instalado.


La zona horaria es GMT -6. Ahora son las 10:55.

Desarrollado por vBulletin® Versión 3.8.7
Derechos de Autor ©2000 - 2026, Jelsoft Enterprises Ltd.