01.Dim datereport1, datereport2 As String
02. datereport1 = Format(dtp_reportday.Value, "M/d") & "/" & Format(dtp_reportday.Value, "yyyy") - 543
03.Dim objConn As New SqlConnection
04. Dim objCmd As New SqlCommand
05. Dim dtAdapter As New SqlDataAdapter
06. Dim ds As New DataSet
07. Dim dt As DataTable
08. Dim strConnString As String
09. Dim sSql As String
10. strConnString = "Server=STOCK_2\SQLEXPRESS;Initial Catalog=DatadasePoDatapower;User ID=sa;Password=admin1234;"
11. sSql = "SELECT dbo.tb_Generation.g_name, dbo.tb_orderproduct_detail.o_color, dbo.tb_orderproduct_detail.o_length, dbo.tb_orderproduct_detail.o_typewire, dbo.tb_Generation.g_line,"
12. sSql += " dbo.tb_orderproduct_detail.o_amount, dbo.tb_orderproduct_detail.o_status, dbo.tb_orderproduct_detail.o_dateofcompletion"
13. sSql += " From dbo.tb_Generation INNER Join"
14. sSql += " dbo.tb_orderproduct_detail ON dbo.tb_Generation.g_name = dbo.tb_orderproduct_detail.g_name"
15. sSql += " WHERE o_dateofcompletion = '" & datereport1 & "' "
16.
17. objConn.ConnectionString = strConnString
18. With objCmd
19. .Connection = objConn
20. .CommandText = sSql.ToString()
21. .CommandType = CommandType.Text
22. End With
23. dtAdapter.SelectCommand = objCmd
24. dtAdapter.Fill(ds, "ds_day")
25. dt = ds.Tables(0)
26. dtAdapter = Nothing
27. objConn.Close()
28. objConn = Nothing
29. Dim rpt As New ReportDocument()
30. Dim Server As Object = Nothing
31. rpt.Load("rpt_completion_day.rpt")
32. rpt.SetDataSource(dt)
33. Me.crp_day.ReportSource = rpt
