[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