(25-01-24, 10:23 PM)3sem كتب :

(25-01-24, 09:22 PM)مبرمج صغير 1 كتب : السلام عليكم ورحمة الله وبركاته

عندي خانة البحث بين تاريخيين وشغاله تمام

ولكن النتيجة في خانة (تاريخ الدخول)  لا تظهر مرتبة بالأقدم الى الاحدث 



هذا كود تعبئة  في load

كود :

Imports System.Data
Imports System.Data.OleDb
Imports System.IO
Imports JbsaPrintDataGridView
Public Class sdadtgrid
   Public connAccess999 As New OleDbConnection("provider=Microsoft.ACE.OLEDB.12.0;" & "data source=" & Application.StartupPath & "\DATA.accdb")
   Dim ds As New DataSet
   Dim dt As New DataTable
   Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       Dim da As New OleDbDataAdapter("select  id_mr, name_mr , jn_mr , num_mr , jeh_mr , FORMAT(time_mr,'dd/MM/yyyy') AS time_mr , FORMAT(time1_mr,'dd/MM/yyyy') AS time1_mr,sad_mr,sak_mr,name_sa  from tan", connAccess999)
       da.Fill(dt)
       DataGridView1.DataSource = dt
       DataGridView1.Refresh()
       DataGridView1.Columns(1).HeaderText = "اسم المراجع"
       DataGridView1.Columns(0).HeaderText = "رقم الهويه"
       DataGridView1.Columns(2).HeaderText = "الجنسية"
       DataGridView1.Columns(3).HeaderText = "رقم الجوال"
       DataGridView1.Columns(4).HeaderText = "جهة الزياره"
       DataGridView1.Columns(5).HeaderText = "تاريخ الدخول"
       DataGridView1.Columns(6).HeaderText = "تاريخ الخروج"
       DataGridView1.Columns(7).HeaderText = "ساعة الدخول"
       DataGridView1.Columns(8).HeaderText = "ساعة الخروج"
       DataGridView1.Columns(9).HeaderText = "ملاحظات"
       
   End Sub

اضف في نهاية الاستعلام
order by time_mr

(26-01-24, 01:52 AM)3sem كتب :

(26-01-24, 12:22 AM)مبرمج صغير 1 كتب :

(25-01-24, 10:23 PM)3sem كتب :

(25-01-24, 09:22 PM)مبرمج صغير 1 كتب : السلام عليكم ورحمة الله وبركاته

عندي خانة البحث بين تاريخيين وشغاله تمام

ولكن النتيجة في خانة (تاريخ الدخول)  لا تظهر مرتبة بالأقدم الى الاحدث 



هذا كود تعبئة  في load

كود :

Imports System.Data
Imports System.Data.OleDb
Imports System.IO
Imports JbsaPrintDataGridView
Public Class sdadtgrid
   Public connAccess999 As New OleDbConnection("provider=Microsoft.ACE.OLEDB.12.0;" & "data source=" & Application.StartupPath & "\DATA.accdb")
   Dim ds As New DataSet
   Dim dt As New DataTable
   Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       Dim da As New OleDbDataAdapter("select  id_mr, name_mr , jn_mr , num_mr , jeh_mr , FORMAT(time_mr,'dd/MM/yyyy') AS time_mr , FORMAT(time1_mr,'dd/MM/yyyy') AS time1_mr,sad_mr,sak_mr,name_sa  from tan", connAccess999)
       da.Fill(dt)
       DataGridView1.DataSource = dt
       DataGridView1.Refresh()
       DataGridView1.Columns(1).HeaderText = "اسم المراجع"
       DataGridView1.Columns(0).HeaderText = "رقم الهويه"
       DataGridView1.Columns(2).HeaderText = "الجنسية"
       DataGridView1.Columns(3).HeaderText = "رقم الجوال"
       DataGridView1.Columns(4).HeaderText = "جهة الزياره"
       DataGridView1.Columns(5).HeaderText = "تاريخ الدخول"
       DataGridView1.Columns(6).HeaderText = "تاريخ الخروج"
       DataGridView1.Columns(7).HeaderText = "ساعة الدخول"
       DataGridView1.Columns(8).HeaderText = "ساعة الخروج"
       DataGridView1.Columns(9).HeaderText = "ملاحظات"
       
   End Sub

اضف في نهاية الاستعلام
order by time_mr

وضعتها في جمله التعبئة واشتغل تمام

ولكن لما اضعه في استعلام البحث بين تاريخين لايعمل 

اذا ممكن تعدل على هذا الكود ليعمل 

كود :

Dim da As New OleDb.OleDbDataAdapter("select  id_mr, name_mr , jn_mr , num_mr , jeh_mr , FORMAT(time_mr,'dd/MM/yyyy') AS time_mr , FORMAT(time1_mr,'dd/MM/yyyy') AS time1_mr,sad_mr,sak_mr,name_sa FROM tan WHERE time_mr between #" & DateTimePicker1.Value & "# and #" & DateTimePicker2.Value & "#", connAccess999)

نفس الحواب
اضف في نهاية الاستعلام
order by time_mr