Vb6 y access
Hola, veo que eres experto en access y visual basic6, espero que me puedas ayudar, mi problema es que tengo un formulario en vb6 que contienen dos botones, (common1 y common2) lo que necesito es que cuando yo de clic en el botón common1 me abra una base de datos de access, es decir me abra la base llamada base1 que cree en access en el directorio c:monik (no quiero que se cree solamente una conexión sino que abra la base base1.mdb con la aplicación de access, para que una vez abierta la base base1.mdb yo trabaje bajo el ambiente de access),
Nota:
Yo se algo de access. Hice un formulario en access que me permite abrir dos formularios de visual basic, pues como sabes en access se pueden crear botones de comando que permiten abrir aplicaciones de word, excel, e incluyso de vb6, pero lo que no se escomo hacerle en caso contrario es decir de vb6 a access, pues yo no se nada de vb6, solo se hacer formulario simples, no se utilizar la ventana de propiedades, ni como guardar un archivo de vb6.
Espero me entiendas gracias
monik
Nota:
Yo se algo de access. Hice un formulario en access que me permite abrir dos formularios de visual basic, pues como sabes en access se pueden crear botones de comando que permiten abrir aplicaciones de word, excel, e incluyso de vb6, pero lo que no se escomo hacerle en caso contrario es decir de vb6 a access, pues yo no se nada de vb6, solo se hacer formulario simples, no se utilizar la ventana de propiedades, ni como guardar un archivo de vb6.
Espero me entiendas gracias
monik
1 Respuesta
Respuesta de aja72
1
Prueba a añadir el siguiente código en tu formulario:
' Esto al principio del formulario, en las declaraciones.
Private Declare Function ShellExecute Lib "shell32" _
Alias "ShellExecuteA" _
(ByVal hwnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long
'Esto abrirá la bbdd al hacer click
Private Sub Command1_Click()
ShellExecute Me.hwnd, "Open", "c:\monik\base1.mdb", "", "", SW_SHOWNORMAL
End Sub
' Esto al principio del formulario, en las declaraciones.
Private Declare Function ShellExecute Lib "shell32" _
Alias "ShellExecuteA" _
(ByVal hwnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long
'Esto abrirá la bbdd al hacer click
Private Sub Command1_Click()
ShellExecute Me.hwnd, "Open", "c:\monik\base1.mdb", "", "", SW_SHOWNORMAL
End Sub
