[RESUELTO]Consultar una tabla con botón en Formulario

Discute sobre las herramientas de la base de datos

[RESUELTO]Consultar una tabla con botón en Formulario

Notapor EMEJOTA72 » Vie Feb 09, 2018 7:32 pm

Muy buenas tardes, es la primera vez que escribo en este foro al que le debo todo lo que he aprendido y con el que he podido hacer una base de datos increíble para mi trabajo. Pues bien, igual es una tontería y la solución es mas fácil de lo que parece, pero no sé como hacerlo.... Pues lo que intento hacer es una simple consulta a través de un botón en un formulario, pero no quiero que me cree un informe porque no necesito imprimir nada, lo que pretendo es que se abra la consulta directamente con todos los registros que cumplan las condiciones de dicha consulta.
Última edición por EMEJOTA72 el Sab Feb 10, 2018 6:26 pm, editado 2 veces en total
LIBREOFFICE 5.2 - S.O.WINDOWS 10 HOME
EMEJOTA72
 
Mensajes: 7
Registrado: Dom Ene 29, 2017 11:28 am

Re: Consultar una tabla con botón en Formulario sin informe

Notapor RMG » Sab Feb 10, 2018 6:10 pm

Hola,

Esa pregunta esta contestada en el foro, para ver ejemplos puedes hacer una búsqueda. Además te adjunto dos posibles soluciones.

1ª Solución, abrir directamente una consulta.

Código: Seleccionar todo   Expandir vistaContraer vista
Sub sBotonAbreConsulta(Evento As Object)  REM - Poner esta macro en el botón para que llame a la otra
   Dim sNombreC As String
   sNombreC=Evento.Source.Model.Tag        REM - En el Tag del boton (propiedad información adicional) poner el nombre de la Consulta
   sAbreConsulta(sNombreC,ThisDatabaseDocument.Currentcontroller.ActiveConnection)
End Sub

Sub sAbreConsulta(sNombreC As String,Con As Object)
   Dim oDes
   Dim sURL As New com.sun.star.util.URL
   Dim oDisObj
   Dim oProps(5) As New com.sun.star.beans.PropertyValue
   oDes=CreateUnoService("com.sun.star.frame.Desktop")
   sURL.Complete=".component:DB/DataSourceBrowser"
   oDisObj=oDes.QueryDispatch(sURL,"_Blank",com.sun.star.frame.FrameSearchFlag.CREATE)
   oProps(0).Name="ActiveConnection"
   oProps(0).Value=Con
   oProps(1).Name="CommandType"
   oProps(1).Value=com.sun.star.sdb.CommandType.QUERY
   oProps(2).Name="Command"
   oProps(2).Value=sNombreC
   oProps(3).Name="ShowMenu"
   oProps(3).Value=True
   oProps(4).Name="ShowTreeView"
   oProps(4).Value=FALSE
   oProps(5).Name="ShowTreeViewButton"
   oProps(5).Value=FALSE   
   oDisObj.Dispatch(sURL,oProps)
End Sub


2ª Solución, abrir un formulario basado en tu consulta en vez de una tabla, donde exista solamente un control tabla.

Código: Seleccionar todo   Expandir vistaContraer vista
Sub AbrirFormulario()'evento botón
   ThisDatabaseDocument.FormDocuments.GetByName("NombreFormulario").Open
End Sub


Saludos
OpenOffice 4.1.5 y LibreOffice 5.3.6 en W-10, y LibreOffice 4.1.6.2 en Open Suse 13.1(VirtualBox)
RMG
 
Mensajes: 3160
Registrado: Mar Nov 17, 2009 6:59 am
Ubicación: Valencia - España

Re: Consultar una tabla con botón en Formulario sin informe

Notapor EMEJOTA72 » Sab Feb 10, 2018 6:25 pm

Muchiiiiiiisimas gracias!!! era justo lo que quería!!
LIBREOFFICE 5.2 - S.O.WINDOWS 10 HOME
EMEJOTA72
 
Mensajes: 7
Registrado: Dom Ene 29, 2017 11:28 am


Volver a Base

¿Quién está conectado?

Usuarios navegando por este Foro: redfenix y 8 invitados