وعليكم السلام ورحمة الله وبركاته
الصورة ما ظهرت معي ..
ولكن إذا كانت مشكلتك هي مشكلة البحث والعرض بين تاريخين : الكود التالي فيه طريقة عملها
(هناك طرق أفضل منها - بحسب خبرتك وتعاملك مع عملائك ستدرك ما هو الأفضل لك ولعملائك)
لكن هذه على سبيل المثال :
أولا تخلص من الأعمدة من جدول العرض - ثم استخدم الكود التالي :
كود :
Dim conn As OleDbConnection
Private Sub cars_all_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
' إعداد اتصال قاعدة البيانات
conn = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=test.accdb;")
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
If conn.State <> ConnectionState.Closed Then conn.Close()
conn.Open()
Dim strCols As String
strCols = " MO_NAME as [اسم السيارة] "
strCols &= ", EZN_QTY as [خامه طن]"
strCols &= ", PRISE_UNIT as [تكلفة خامه]"
' أنت صحح البيانات و أكمل الباقي
Dim d1 As DateTime = DateTimePicker1.Value.ToString("yyyy/MM/dd") ' نحوله لتنسيق نصي تاريخي فقط للتخلص من الفواصل الزمنية (الساعات والدقائق..) وتحديد اليوم فقط
Dim d2 As DateTime = DateTimePicker2.Value.ToString("yyyy/MM/dd")
Dim cmd As New OleDb.OleDbCommand("Select " & strCols & " From EZN_SHOKL Where EZN_DATE >= @date1 and EZN_DATE <= @date2 ", conn)
cmd.Parameters.Add("@date1", OleDbType.Date).Value = d1
cmd.Parameters.Add("@date2", OleDbType.Date).Value = d2
Dim dt As New DataTable
dt.Load(cmd.ExecuteReader())
dgv_EZN_SHOKL.DataSource = dt
End Sub
قال صلى الله عليه وسلم:
«كلمتان خفيفتان على اللسان
ثقيلتان في الميزان،حبيبتان إلى الرحمن:
سبحان الله وبحمده، سبحان الله العظيم».
