السلام عليكم ورحمة الله وبركاته
عندي خانة البحث بين تاريخيين وشغاله تمام
ولكن النتيجة في خانة (تاريخ الدخول) لا تظهر مرتبة بالأقدم الى الاحدث
هذا كود تعبئة في 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 field desc ترتيب تنازلي او order by field asc ترتيب تصاعدي في نهاية جملة الاستعلام
(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)
(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
يعطيكم العافية جميعا اشتغل تمام تم اضافته اخر الاستعلام