Formularios en vb6
Estoy trabajando en vb6, hice un formulario en visual que contiene un botón (llamado common1), lo que necesito es que cuando yo de clic en ese botón me abra una base de datos que hice en access2000,
Bueno no se si se pueda hacer esto, de abrir todo una base de datos.ya que como les comento no se mucho de visual b6. Gracias
Bueno no se si se pueda hacer esto, de abrir todo una base de datos.ya que como les comento no se mucho de visual b6. Gracias
1 Respuesta
Respuesta de aja72
1
Prueba el siguiente código a ver si hace lo que tu deseas:
Private Const SW_SHOWNORMAL As Long = 1
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
Private Sub common1_Click()
ShellExecute Me.hwnd, "Open", App.Path & "\fichero.mdb", "", "", SW_SHOWNORMAL
End Sub
Básicamente lo que hace es abrir la base de datos llamada fichero.mdb que se encuentra en el mismo direcotorio de la aplicación.
Si no es esto a lo que te referías, por favor, indícamelo. Si resuelve tu duda, no olvides valorar la respuesta, xD.
Private Const SW_SHOWNORMAL As Long = 1
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
Private Sub common1_Click()
ShellExecute Me.hwnd, "Open", App.Path & "\fichero.mdb", "", "", SW_SHOWNORMAL
End Sub
Básicamente lo que hace es abrir la base de datos llamada fichero.mdb que se encuentra en el mismo direcotorio de la aplicación.
Si no es esto a lo que te referías, por favor, indícamelo. Si resuelve tu duda, no olvides valorar la respuesta, xD.
