01.Sub allcall()
02.
03. Dim strOleDb As String
04. If RadioShowAll.Checked = True Then
05.
06. DateTimePicker1.Format = DateTimePickerFormat.Custom
07. DateTimePicker1.CustomFormat = "MM/dd/yyyy"
08. DateTimePicker2.Format = DateTimePickerFormat.Custom
09. DateTimePicker2.CustomFormat = "MM/dd/yyyy"
10.
11. strOleDb = "SELECT Sum((UnitPrice*Quantity)-Discount) AS sumcount FROM OrderEarlierDetails INNER JOIN OrderEarlierRoom ON OrderEarlierDetails.OrderID = OrderEarlierRoom.OrdersID where OrderEarlierRoom.DateEarlier <=" & DateTimePicker1.Value & " or OrderEarlierRoom.DateEarlier >= " & DateTimePicker2.Value & " order by OrderEarlierRoom.DateEarlier ASC"
12. Else
13.
14. strOleDb = "SELECT Sum((UnitPrice*Quantity)-Discount) AS sumcount FROM OrderEarlierDetails INNER JOIN OrderEarlierRoom ON OrderEarlierDetails.OrderID = OrderEarlierRoom.OrdersID"
15. End If
16. Dim objCmd, objCmd2 As New OleDbCommand
17. objCmd = New OleDbCommand(strOleDb, acsconn)
18. TextBox1.Text = objCmd.ExecuteScalar()
19.
20. End Sub
