(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

(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)

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

(23-09-19, 07:11 PM)baha كتب : التعديل على الكود السابق باضافة '%  %'

كود :

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)

(23-09-19, 08:59 PM)0550192815 كتب :

PHP كود :

Public Sub SEARCH2DATE(order_date As Date, order_date2 As Date, ByVal mo_name As String)
    Dim sql = "SELECT * FROM ORDERS WHERE (order_date BETWEEN @d1 AND @d2) AND (mo_name=@mn)"
    Using da As New OleDbDataAdapter(sql, con)
        da.SelectCommand.Parameters.AddWithValue("@d1", order_date)
        da.SelectCommand.Parameters.AddWithValue("@d2", order_date2)
        da.SelectCommand.Parameters.AddWithValue("@mn", mo_name)
        DT_SEARCH.Clear()
        da.Fill(DT_SEARCH)
    End Using
End Sub 


(24-09-19, 04:23 AM)0550192816 كتب :

PHP كود :

Public Sub SEARCH2DATE(order_date As Date, order_date2 As Date, mo_name As String)
    Dim sql = "SELECT * FROM ORDERS WHERE (order_date BETWEEN @d1 AND @d2) AND (mo_name='%'+@mn+'%')"
    Using da As New OleDbDataAdapter(sql, con)
        da.SelectCommand.Parameters.AddWithValue("@d1", order_date)
        da.SelectCommand.Parameters.AddWithValue("@d2", order_date2)
        da.SelectCommand.Parameters.AddWithValue("@mn", mo_name)
        DT_SEARCH.Clear()
        da.Fill(DT_SEARCH)
    End Using
End Sub