bueno aprendi hace poco esta sentencia para cristal report 8.5 cual to le envio una sentencia SQL que casi siempre uso en mi datagrid VB6
primero hacer una planilla en cristal report de cero y grabarla en la raiz del proyecto
despues en mi boton coloco
'---------------------------------
Private Sub btninformecrystal_Click()
On Error GoTo e
Dim StrSQL As String
x_string = Trim(txtx_string.Text)
StrSQL = "Select * From tabla Where campo = '" & x_string & "'and campo_X is not null order by campo_indice "
rp.Reset
rp.SQLQuery = StrSQL
rp.ReportFileName = App.Path & "\micrystalinfome.rpt"
rp.Destination = crptToWindow
rp.WindowTitle = "Auditoria de Mov"
rp.WindowState = crptMaximized
rp.Action = 1
Exit Sub
e:
MsgBox Err.Description
MsgBox "No Hay Impresora Predeterminada"
end sub
'--------------------------
en el formulario tiene que colocar una herramienta llamada crystalreport lo pueden selecionar con Control+T.....cual despues llame "rp" en la propiedad es casi igual que un comonddialog1
.------------------
explico el codigo
StrSQL: mi string o mi "select * from tabla where ****"
rp.SQLQuery = StrSQL :donde ingreso el parametro de consulta al crystal
rp.ReportFileName = App.Path & "\micrystalinfome.rpt" : nombre del cristal de mi proyecto
encontre que esta es la forma mas facil de usar el crystal report por primera vez alguna dura me consultan a mi mail
[email protected]
:-):-):-):-)
