منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

احبتى فى الله اتمنى من الله ان تكونوا فى  خير وسعاده
هذا الكود للبحث مبيعات عميل بين تاريخين عند الضغط على زر بحث لا نخرج نتاج وكان لم يوجد اى نتيجه وان حذفت شرط اسم العميل يعمل تمام بين تاريخين فهل هناك خطا ما

(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 


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

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