Retroceder   Foros del Web > Temas generales de computación > Programación > Visual Basic

Respuesta
 
Herramientas Desplegado
Antiguo 10-feb-2006, 02:59   #1 (permalink)
Jennifer_munn ha deshabilitado el karma
 
Fecha de Ingreso: marzo-2005
Mensajes: 262
Pregunta 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 está desconectado   Responder Citando
Antiguo 10-feb-2006, 03:07   #2 (permalink)
Jennifer_munn ha deshabilitado el karma
 
Fecha de Ingreso: marzo-2005
Mensajes: 262
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
Jennifer_munn está desconectado   Responder Citando
Antiguo 10-feb-2006, 04:19   #3 (permalink)
Frehley está en el buen camino
 
Avatar de Frehley
 
Fecha de Ingreso: junio-2005
Ubicación: Somewhere between Heaven and Hell
Mensajes: 324
No necesita tener Access instalado.
Frehley está desconectado   Responder Citando
Respuesta

No hay votos aún.


Herramientas
Desplegado

Normas de Publicación
No puedes crear nuevos temas
No puedes responder temas
No puedes subir archivos adjuntos
No puedes editar tus mensajes

BB code is Activado
Caritas están Activado
[IMG] está Activado
Código HTML está Desactivado


La Zona horaria es GMT -6. Ahora son las 01:23.


Message Board Statistics

LinkBacks Enabled by vBSEO 3.1.0

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93