Sv Community El Salvador
Soporte y Tecnología => Programación => VB => Topic started by: ernestoelunico on October 16, 2008, 02:06:44 am
-
un saludo a todos
la pregunta es yo uso una base de datos con diversas tablas en access 2003
en access e diseñado los informes de unas consultas referente a las tablas
yo quiciera saber si se pueden imprimir dichos informes desde vb6 por medio de un boton comamdo y si se puede la previsulalizacion.....esto ultimo no tan necesario pero imprimir si
de ante mando muchas gracias
-
Nop, no creo que podas "jalar" los informes que creaste en Acces para imprimirlos en VB6, tendrías que recrearlos usando DataGrid, ListView, etc. o cualquier otro control necesario.
Despues de todo por algo es que existe Access :)
-
al crear el datagrid se puede imprimir el contenido que hay en el objeto en este caso el informe en de access 2003
y como enlazo solo el infomre al datagrid, o usando otro objeto???
-
ya haya como imprimirlo desde access 2003
esta es la respuesta
cree un macro en access 2003
si no sabes como hacerlo te dejo un tuto muy chido
[spoiler]hacer macros en access 2003 (http://www.tutorial-enlace.net/tutorial-14._crear_una_macro-18461.html)[/spoiler]
luego llamas a acces y luego le pedis que te ejecute el macro con la siguiente instruccion
[spoiler]Private Sub Command1_Click()
Dim oAccess As New Access.Application
With oAccess
.OpenCurrentDatabase (App.Path & "\TuBasedeDatos.mdb")
.DoCmd.RunMacro "Macro1"
.CloseCurrentDatabase
End With
End Sub
[/spoiler]
y luego ya esta :yahoo: :yahoo: :yahoo:
-
lo unico es que quiciera previsualizarlo antes de ejecutarlo no se si podria hacerlo mendiante algun objeto arriba ya mensionado o una diferente en eso si necesito ayuda pero no abro otro tema porq ya existia pero esta bloqueo
-
preguntando se llega a roma me dijero una vez
tengo ya la forma de verlo en vista preliminar pero no me resulta no se q me falta
o que hago mal
codigo
Dim objAccess As New Access.Application
Private Sub Command1_Click()
With objAccess
.OpenCurrentDatabase (App.Path & "\Default User\Default.mdb"), False, "registros123"
.DoCmd.RunMacro "Vistaacc"
.CloseCurrentDatabase
End With
End Sub
en la base de Datos Hice lo siguiente
1º En diseño del informe le pones las propiedades 'Emergente' y 'Modal' = Sí
2º En diseño de la macro:
Acción:.............................. AbrirInforme
Nombre del informe:......... <el nombre que le hayas dado>
Vista:................................ Vista preliminar
Modo de la ventana:......... Diálogo
No hay más.
el problema es q me abre una ventana de access como cuando quieres abrir un archivo y te pregunta si estas seguro que la quieres abrir porq pueda q tenga codigo malisioso se supone q esto no deberia de verlo el ususario y le doy q si abrir solo cierra la ventana y no me muestra nada
en q estare fallando no estoy seguro
s :sad:
-
Dim objAccess As New Access.Application
Private Sub Command1_Click()
With objAccess
.OpenCurrentDatabase (App.Path & "\Default User\Default.mdb"), False, "clave"
.DoCmd.OpenReport "reporte", acPreview
.CloseCurrentDatabase
End With
End Sub
ya intente usar esto pero tampo funciono
-
tengo una forma de hacerla pero para eso necesito crear un objeto usando getobjet pero mi base de datos en access tiene contraseña como hago para abrirla
pero por lo visto creare otro tema ya que me parece que los communiters no entran por este lado
saludos