01.Dim objConn As New SqlConnection
02. Dim objCmd As New SqlCommand
03. Dim dtAdapter As New SqlDataAdapter
04.
05. Dim ds As New DataSet
06. Dim dt As DataTable
07. Dim strConnString, strSQL As String
08.
09. strConnString = "Data Source=.\SQLEXPRESS;Initial Catalog=LAHWINFO;Integrated Security=True"
10.
11. Dim sb As StringBuilder = New StringBuilder
12. sb.Remove(0, sb.Length())
13. sb.Append("SELECT * FROM TotalPrint")
14. sb.Append(" WHERE (DateSavePrint BETWEEN @date1 AND @date2)")
15. sb.Append(" SELECT SerialNo FROM TotalPrint")
16. sb.Append(" WHERE (SerialNo=@SerialNo)")
17. strSQL = sb.ToString()
18.
19. objConn.ConnectionString = strConnString
20. With objCmd
21. .Parameters.Clear()
22. .Parameters.Add("@date1", SqlDbType.SmallDateTime).Value = dtpStartSearch.Value.ToShortDateString
23. .Parameters.Add("@date2", SqlDbType.SmallDateTime).Value = dtpEndSearch.Value.ToShortDateString
24. .Parameters.Add("@SerialNo", SqlDbType.NVarChar).Value = cboNamePrint.SelectedIndex
25. .CommandText = strSQL
26. .CommandType = CommandType.Text
27. .Connection = objConn
28. End With
29. dtAdapter.SelectCommand = objCmd
30. dtAdapter.Fill(ds, "myDataTable")
31. dt = ds.Tables(0)
32.
33. dtAdapter = Nothing
34. objConn.Close()
35. objConn = Nothing
36.
37. Dim rpt As New ReportDocument()
38. Dim directory As String = My.Application.Info.DirectoryPath
39.
40. rpt.Load("C:\CrystalReport2.rpt")
41. rpt.SetDataSource(dt)
42. Me.CrystalReportViewer1.ReportSource = rpt
43. Me.CrystalReportViewer1.Refresh()
