[خالد كامل1]

(23-09-19, 06:35 PM)baha كتب :

(23-09-19, 06:16 PM)خالد كامل1 كتب : احبتى فى الله اتمنى من الله ان تكونوا فى  خير وسعاده
هذا الكود للبحث مبيعات عميل بين تاريخين عند الضغط على زر بحث لا نخرج نتاج وكان لم يوجد اى نتيجه وان حذفت شرط اسم العميل يعمل تمام بين تاريخين فهل هناك خطا ما

كود :

   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

لا أرا في الكود خطأ والله أعلم

ولكن قم باستبدال

كود :

       Dim CMDSEARCH As New OleDbCommand(" SELECT * FROM ORDERS WHERE order_date >= @order_date AND order_date <= @order_date2 and  mo_name = @mo_name ", con)

بــ

كود :

       Dim CMDSEARCH As New OleDbCommand(" SELECT * FROM ORDERS WHERE order_date >= @order_date AND order_date <= @order_date2 and  mo_name like '@mo_name' ", con)

تمنياتي لك ولللجميع التوفيق

لا اخى لم تفلح الطريقه