23-09-19, 06:16 PM
احبتى فى الله اتمنى من الله ان تكونوا فى خير وسعاده
هذا الكود للبحث مبيعات عميل بين تاريخين عند الضغط على زر بحث لا نخرج نتاج وكان لم يوجد اى نتيجه وان حذفت شرط اسم العميل يعمل تمام بين تاريخين فهل هناك خطا ما
هذا الكود للبحث مبيعات عميل بين تاريخين عند الضغط على زر بحث لا نخرج نتاج وكان لم يوجد اى نتيجه وان حذفت شرط اسم العميل يعمل تمام بين تاريخين فهل هناك خطا ما
كود :
Public Sub SEARCH2DATE(ByVal order_date As DateTime, ByVal order_date2 As DateTime, ByVal mo_name As String)
DT_SEARCH.Clear()
Dim CMDSEARCH As New OleDbCommand(" SELECT * FROM ORDERS WHERE order_date >= @order_date AND order_date <= @order_date2 and mo_name = @mo_name ", con)
CMDSEARCH.Parameters.Clear()
CMDSEARCH.Parameters.Add("@mo_name", OleDbType.VarChar).Value = mo_name
CMDSEARCH.Parameters.Add("@order_date", OleDbType.Date).Value = "#" & order_date & "#"
CMDSEARCH.Parameters.Add("@order_date2", OleDbType.Date).Value = "#" & order_date2 & "#"
CMDSEARCH.Parameters.Add("@mo_name", OleDbType.VarChar).Value = mo_name
Try
If con.State = 1 Then con.Close()
con.Open()
DT_SEARCH.Load(CMDSEARCH.ExecuteReader)
con.Close()
CMDSEARCH = Nothing
Catch ex As Exception
con.Close()
MsgBox(Err.Description, MsgBoxStyle.Information)
Finally
If con.State = ConnectionState.Open Then con.Close()
End Try
End Sub
