Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: Helicot en 20 Julio 2007, 03:50 am



Título: Como crear consultas SQL para reportes Crystal Reports con Visual Basic???
Publicado por: Helicot en 20 Julio 2007, 03:50 am
hola, alguien sabe como crear consultas para reportes Crystal Reports con Visual Basic, algunos mencionaron q eso se llama filtro de reportes, y q se hace con instrucciones SQL, pero no entendi muy bien, a ver, m refiero a q cuando yo hago clic para abrir un reporte (hecho en Crystal Reports) me salga una ventana de busqueda de codigo, nombre o cualquier cosa dependiendo del sistema, y en el reporte m salgan los resultados d la busqueda, casi parecido como lo q se hace con bases de datos

alguien m puede ayudar xfavor


Título: Re: Como crear consultas SQL para reportes Crystal Reports con Visual Basic???
Publicado por: Sancho.Mazorka en 20 Julio 2007, 06:39 am
Fijate hay un tema pegado a eso, te dejo el link (esta 3º)
http://foro.elhacker.net/index.php/topic,151013.0.html (http://foro.elhacker.net/index.php/topic,151013.0.html)

Sancho.Mazorka    :¬¬


Título: Re: Como crear consultas SQL para reportes Crystal Reports con Visual Basic???
Publicado por: CeLaYa en 20 Julio 2007, 17:46 pm
bueno en el diseño de tu reporte lo que puedes hacer es crear formulas, y luego desde VB reemplazar esas formulas para filtar los datos que van  a aparecer en tu reporte.

Código:
control.ReportFileName = App.Path & "\tureporte.rpt"
control.ReplaceSelectionFormula ("{tabla.Campo} = " & Valor)


y luego para mostrar el reporte pones lo siguiente

Código:
control.Destination = crptToWindow
control.WindowState = crptMaximized

On Local Error Resume Next
control.WindowShowPrintSetupBtn = True
control.Action = 1

' esto es por si la impresora que usas no tiene o no muestra opciones de configuración y te pueda causar alguna falla del programa
If Err Then MsgBox Err.Number & vbCrLf & Err.Description, vbCritical + vbOKOnly, App.EXEName
Err.Clear
On Local Error GoTo 0
control.PageZoom (100) ' % de zoom