najafisolari
یک شنبه 11 دی 1390, 14:08 عصر
سلام من میخوام از یک تاریخ تا تاریخ دیگری گزارش بگیرم از کد زیر استفاده کردم جواب نداد لطفا کمکم کنید
Dim sqlcnn As New SqlConnection("Data Source=.;AttachDbFilename=" & CurDir() & "\db\DBshop.mdf;Integrated Security=True")
If sqlcnn.State = ConnectionState.Closed Then
sqlcnn.Open()
End If
Dim com As New SqlCommand("select * from CardGiveTbl where DateRecive between '" & FaDatePicker1.Text & "' and u_pass='" & FaDatePicker2.Text & "'", sqlcnn)
Dim dt As New SqlDataAdapter(com)
dt.Fill(ds, "CardGiveTbl")
rpt.SetDataSource(ds)
CrystalReportViewer1.ReportSource = rpt
Dim sqlcnn As New SqlConnection("Data Source=.;AttachDbFilename=" & CurDir() & "\db\DBshop.mdf;Integrated Security=True")
If sqlcnn.State = ConnectionState.Closed Then
sqlcnn.Open()
End If
Dim com As New SqlCommand("select * from CardGiveTbl where DateRecive between '" & FaDatePicker1.Text & "' and u_pass='" & FaDatePicker2.Text & "'", sqlcnn)
Dim dt As New SqlDataAdapter(com)
dt.Fill(ds, "CardGiveTbl")
rpt.SetDataSource(ds)
CrystalReportViewer1.ReportSource = rpt