Consulta Sql

En cuanto a la consulta SQL solo le puedes cambiar la clausula WHERE, el resto tiene que tener lo mismo que en el crystal
Ej:

SQL= “ SELECT * “ _


& “ FROM tabla1,tabla2 ,etc “ _


& “ WHERE aqui le pones las condiciones que quieras que


cumpla el cruce de tablas”

Aqui es dondeaprovechas y para restringir el informe, y puedes poner por ejemplo que te traga aquellos campos para un elemento determinado que te han elegido en ejecución. Ej: te seleccionan a un empleado y entonces haceslos cruces de tablas necesarios para sacar todos los datos de ese empleado en concreto. Con lo cual cuando diseñas el informe en el CR no sabes que empleado te seleccionarán en ejecución, tu preparasel informe y luego es cuando le mandas la clausula definitiva.

Dim cadena1 As String


Dim cadena2 As String


Dim cadena3 As String






Dim viForm AsInteger






PathString = App.Path ‘Para saber la ruta de donde está la aplicación, que luego


‘empleamos para situar el informe






‘ Opciones de comomostrar el report


CMDIMenu.CrystalReport.WindowState = crptMaximized


CMDIMenu.CrystalReport.Destination = crptToWindow






‘ Cuando haya campos en elinforme que quieras rellenar, pero que su contenido es


completamente variable, es decir solo sabes que hay que poner en ese campo cuando en


ejecucion te hallan seleccionado algo, porejemplo un rango de fechas para un informe, hay que


emplear campos de formulas vacios, y que luego desde VB los rellenamos con las siguientes


sentencias:CMDIMenu.CrystalReport.Formulas(0) = "FORM1= """ & cadena1 & """"


CMDIMenu.CrystalReport.Formulas(1) = "FORM2= """ & cadena2 & """"


CMDIMenu.CrystalReport.Formulas(2) =...