[خالد كامل1]

(24-09-19, 05:15 AM)حريف برمجة كتب : ضع اسم العميل بعد where مباشرة ثم التاريخ

انا استخدمت هذا الكود فى الصب

كود :

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 mo_name = '" & mo_name & "'and  order_date >= @order_date AND order_date <= @order_date2   ", 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 & "#"

       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

وهذا الكود عند حدث الكليك فى زر البحث 

كود :

  SEARCH2DATE(DateTimePicker1.Value, DateTimePicker2.Value, mo_name.Text)
       DGV_ORDERSM.DataSource = DT_SEARCH

ولم اجد فائده