[خالد كامل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

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

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

[خالد كامل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)

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

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

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

[خالد كامل1]

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

لم تفلح ايضا اخ بهاء

[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 


[خالد كامل1]

(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 


لم يعطينى اى نتيجه اخى الكريم

[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 


[خالد كامل1]

(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 


هسال حضرتك سؤال 
       da.SelectCommand.Parameters.AddWithValue("@d1", order_date) hu اعوض order_date 1 و ordere_date2 بالاداه اللى عندى اللى اسمها datetimepaker1 

[baha]

هل جملة sql شغالة في قاعدة البيانات؟