منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

Imports System.Data.OleDb
Imports Toast_Notification
Imports Bunifu.Framework
Public Class Form13

    Dim con As New OleDbConnection("provider=microsoft.ACE.OLEDB.12.0; data source=database.accdb")
    Dim da As New OleDbDataAdapter()
    Dim dt As New DataTable
    Dim table As New DataTable
    Sub load_date()


        Dim cmd As New OleDbCommand("SELECT [رقم الايدي], m, [تاريخ تعين الدرس], [الساعه], [عدد الدروس], [حضور/غياب] FROM table2 WHERE m=@m ", con)

        cmd.Parameters.Add(New OleDbParameter("@m", OleDbType.VarChar)).Value = Label1.Text
        Dim adapter1 As New OleDbDataAdapter(cmd)
        Dim table As New DataTable
        adapter1.Fill(table)

    End Sub
    Sub save_date()
        Dim save As New OleDbCommandBuilder(da)
        save.QuotePrefix = "["
        save.QuoteSuffix = "]"
        da.Update(dt)
        dt.AcceptChanges()
    End Sub
    Private Sub Form13_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        load_date()
        DataGridView1.DataSource = table
    End Sub
End Class

لا يوجد اخطاء ولاكن لا يضهر البيانات في الداتا جريد فيو جربت الكود بلاكسيس وزبط الاكسيس بطلب من اكتب الاسم

---

هذه صور اخرى

الخطاء بهذا السطر

لا اخي جرت 111

---

هو الجدول معبى ويوجد فيه 11aaa

---

lable ياخذ القيمه من الداتا جريد فيو

---

شوف اخى الكريم بكل سهولة تعال فى الشاشة خاصة الداتا جريد الاولى
واجعل الاستعلام بهذا الشكل

SELECT Max(myid) AS Fid, myname, Max(mydate) AS Fdate, Max(mytime) AS Ftime, Max(mypres) AS Fpres FROM test GROUP BY myname

ناتى الان لعرض الداتا جريد الثانية
كل الامر ستجعل الاستعلام بهذا الشكل
SELECT myid, myname, mydate, mytime, mypres FROM test WHERE myname = "11"

طبعاً استبدل رقم 11 بقيمة الاسم من السطر المحدد ومع مراعاه تغيير المسميات لما هى لديك
وبكده تكون عملت عدم تكرار للدروس فى الداتا جريد الاولى
وفى الداتا جريد الثانية قمت بعرض جميع الدورس للاسم الواحد

تحياتى لك
طبقت ما قلته لي زالاستعلام الاول شغال لاكن الثاني لايضهر البيانات

---

هذه صور اخرى

---

وهذه صور اخرى

لا يمكنني تحميله كامل لاتوجد مساحه كافيه هل يمكنني رفع فورم1

---

ثواني سوف احاول

---

هاذا هو المشروع

---

لقد قمت بحذف اشياء كثيره لاستطيع تحميله بلفورم 5 اضغط دبل كليك على الرو ويفتح فورم8 هنا المشكله

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

استبدله بهذا الكود

تعال ايضاً على هذا الكود فى الفورم 8

استبدله بهذا الكود

شكرا لك اخي