mysql - Consulta de dos tablas en el informe
vb.net crystal-reports (1)
En el asistente de informes de Crystal, ubique su odbc creado con nombre de usuario y contraseña.
Luego verá un texto de comando, puede poner su consulta allí.
Este código para VB.NET
Private CRPT As New ReportDocument
Private APPPATH As String
Private PARAM As New ParameterFields
Public PARAM_DESC As New ParameterDiscreteValue
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
APPPATH = Application.StartupPath & "/REPORT/sample.rpt"
CRPT.Load(APPPATH)
Me.CrystalReportViewer1.ReportSource = CRPT
PARAM = CRPT.ParameterFields
PARAM_DESC.Value = Format(DatePicker1.Value, "yyyyMMdd")
PARAM("DATEP").CurrentValues.Clear()
PARAM("DATEP").CurrentValues.Add(PARAM_DESC)
Me.CrystalReportViewer1.Refresh()
End Sub
Este código es para C #:
CRPT = new ReportDocument();
APPPATH = Environment.CurrentDirectory + "Sample.rpt";
CRPT.Load(APPPATH);
Report_Viewer.Refresh();
CRPT.SetParameterValue("syear", Servercls.year);
CRPT.SetParameterValue("smonth", Servercls.month);
CRPT.SetParameterValue("sday", Servercls.day);
CRPT.SetParameterValue("datevalue", Servercls.Datevalue);
Report_Viewer.ReportSource = CRPT;
sc.configureCrystalReport();
Report_Viewer.Refresh();
El nombre del parámetro de su informe de cristal debe ser el mismo que en su Código detrás.
Mi aplicación VB imprime un informe a través de ODBC. Agregué las tablas usando el experto en bases de datos y diseñé el Crystal Report. ¿Dónde pongo mi consulta? aqui esta mi consulta
SELECT ts.`SCHEDIDNO`,
ts.`DAYNAME`,
DATE_FORMAT(ts.`TIMESTART`, ''%h:%i %p'') as TIMESTART,
DATE_FORMAT(ts.`TIMEEND`, ''%h:%i %p'') as TIMEEND,
ts.`GRADELEVEL`,
ts.`SECTIONNAME`,
ts.`SUBJECTNAME`,
ts.`FACFULLNAME`,
ts.`ROOMNAME`,
tf.`FACFULLNAME` as PERSONNEL,
tf.`DEPARTMENT`,
tse.`Adviser`
FROM `tblschedule` ts,
`tblfaculty` tf,
`tblsection` tse
WHERE ts.`GRADELEVEL` = " & lblgrade.Text & "
AND ts.`SECTIONNAME` = ''" & lblsect.Text & "''
AND ts.`DEPARTMENTNAME` = tf.`DEPARTMENT`
AND tf.`ADMINISTRATOR` = 1
AND tse.`SECTIONNAME` = ''" & lblsect.Text & "''