• Viernes 29 de Marzo de 2024, 15:33

Autor Tema:  Abrir O Ejecutar Un Acrhivo *.mdb  (Leído 2482 veces)

jpardo84

  • Miembro activo
  • **
  • Mensajes: 65
    • Ver Perfil
Abrir O Ejecutar Un Acrhivo *.mdb
« en: Viernes 17 de Marzo de 2006, 22:12 »
0
hola, espero se encuentren bien, necesito ejecutar y abrir un archivo de acces desde un formulario de visual basic. ¿debo verificar alguna referencia en mi proyecto por menu Proyecto, Rerencias?

muchas gracias

hdr

  • Miembro MUY activo
  • ***
  • Mensajes: 128
    • Ver Perfil
Re: Abrir O Ejecutar Un Acrhivo *.mdb
« Respuesta #1 en: Viernes 17 de Marzo de 2006, 22:34 »
0
si no necesitas modificar datos puedes usar la funcion shell

a=shell(rutadelarchivo,estedo de la ventana)
ese estado de la ventana es como sale le ventana del otro programa con ej con foco, son foco, minimizado

RadicalEd

  • Moderador
  • ******
  • Mensajes: 2430
  • Nacionalidad: co
    • Ver Perfil
Re: Abrir O Ejecutar Un Acrhivo *.mdb
« Respuesta #2 en: Domingo 26 de Marzo de 2006, 18:53 »
0
Para abrir el archivo .mdb debes llamar a Access primero y despues colocar la ruta del archivo, por ejemplo para abrir un archivo txt:

Call Shell("notepad.exe C:\Mis documentos\Documentos Propios\pais.txt", vbMaximizedFocus)

Ojala te sirva.
Chao
El pasado son solo recuerdos, el futuro son solo sueños

pmike

  • Miembro activo
  • **
  • Mensajes: 62
    • Ver Perfil
    • http://www.autoresponder.com
Re: Abrir O Ejecutar Un Acrhivo *.mdb
« Respuesta #3 en: Domingo 26 de Marzo de 2006, 19:04 »
0
Hola

Tbn puedes utilizar la funcion shellExecute pero deberas hacer referencia a una libreria la shell32.dll

Private Declare Function ShellExecute Lib "shell32.dll" 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

si x es long
x=ShellExecute(hwnd, "Open", App.Path & "\arch.mdb", 0&, 0&, 1)
-------------------------------------------------------------

http://www.ebookred.com

-------------------------------------------------------------