[saud1004]

عندي ثلاث جداول 
جدولين مرتبطين 
جدول الأسابيع مرتبط مع جدول المتابعة عن طريق رقم الأسبوع 

جدول المتابعة يتم تعبئته عن طريق إلحاق رقم الأسبوع  واسم الموظف من جدول الموظفين ( الجدول الثالث ) وهو غير مرتبط بالجدولين 

الأمور تمام يتم التعبئة وكل شي تمام 

الأن جدول المتابعة يضم 
رقم الأسبوع 
اسم الموظف 
يوم الأحد حاضر  ( خانة اختيار نعم ـو لا ) وضع  علامة صح 
يوم الأحد لم يحضر  ( خانة اختيار نعم ـو لا ) وضع  علامة صح 

عند تصميم نافذة وضع الداتا قريد فيو والبحث من خلال رقم الأسبوع تظهر المعلومات 
الان عند وضع علامة صح عند الموظف محمد يوم الاحد حاضر لا يقبل مني الحفظ أريد بعد أن أضع صح في الأحد أو الاثنين أو غيره 
انه يحفظ في القاعدة  عن طريق وضع صح في الداتا قريد فيو ثم زر حفظ التعديل يحفظ 

أتمنى أني وضحت الفكرة

[Taha Okla]

جرب أن تصنع مشروع جديد فيه قاعدة بيانات فيها جدول وحيد يعرض ما في الجدول ضمن DataGridView

شاهد (هذه المشاركة) وطبقه في مشروعك الجديد.

إذا ضبط معك الأمر طبقه على مشروعك ..

لاحظ أن : 
- جدول واحد غير مرتبط مع جداول أخرى يعرض في DataGridView   التعديل عليها يحفظ ضمن قاعدة البيانات..
- يجب أن يكون هناك حقل (مفتاح رئيسي ضمن جدول البيانات حتى يعمل البرنامج بنجاح).

[saud1004]

أشكرك أخي طه بارك الله فيك ونفع بك وزادك علما
أخي الجدول الأول ( جدول الأسابيع )
رقم الأسبوع - الأسبوع - من تاريخ - إلى تاريخ
رقم الأسبوع مفتاح أساسي فريد من نوعه
الجدول الآخر جدول المتابعة
رقم الأسبوع ( يؤخذ من جدول الأسابيع ) - اسم الموظف ( يؤخذ من جدول الموظفين )
حقول إضافية في الجدول
حضر - لم يحضر
من يوم الأحد إلى يوم الخميس
يتم تعبئة جدول المتابعة برقم الأسبوع ورقم الموظف ولابد من تكرار الرقم لأن محمد وعلي ويسوف وخالد حضروا يوم الأحد رقم في الأسبوع الأول رقم ( 1 ) مثلا وهذا هو المفتاح الأساسي رقم ( 1 )
لاحظت أن رقم واحد سيتكرر مع محمد وعلي ويوسف وخالد
لكن قولك ( يجب أن يكون هناك حقل (مفتاح رئيسي ضمن جدول البيانات حتى يعمل البرنامج بنجاح).
أنا أعلم ذلك ولكن قولك جعلني أفكر لماذا لا أضع حقل مفتاح أساسي فعلا في الجدول ( جدول المتابعة ) وأجرب
وضعت الحقل ولم أعدل في الكود شي ونجح الأمر

شكرا لك لتذكيري بقولك ( ( يجب أن يكون هناك حقل (مفتاح رئيسي ضمن جدول البيانات حتى يعمل البرنامج بنجاح).
فقد دللتني إلى الحل الصحيح
جزاك الله خيرا ونفع الله بك قولا وفعلا

[Kamil]

السلام عليكم و رحمة الله و بركاته

نحتاج لتحميل البيانات من قاعدة البيانات إلى DataGridView. لنفترض أن لديك جدول المتابعة باسم Attendance وجدول الأسابيع باسم Weeks وجدول الموظفين باسم Employees.

الكود لتحميل البيانات:

PHP كود :

Imports System.Data.SqlClient

Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        LoadData()
    End Sub

    Private Sub LoadData()
        Dim connectionString As String = "your_connection_string_here"
        Dim query As String = "SELECT AttendanceID, WeekNumber, EmployeeName, SundayPresent, SundayAbsent, MondayPresent, MondayAbsent, TuesdayPresent, TuesdayAbsent, WednesdayPresent, WednesdayAbsent, ThursdayPresent, ThursdayAbsent FROM Attendance"

        Using conn As New SqlConnection(connectionString)
            Dim da As New SqlDataAdapter(query, conn)
            Dim dt As New DataTable()
            da.Fill(dt)
            DataGridView1.DataSource = dt
        End Using
    End Sub
End Class 


حفظ التعديلات
نحتاج إلى جمع البيانات من DataGridView وتحديثها في قاعدة البيانات عند النقر على زر الحفظ.

الكود لحفظ :

PHP كود :

Imports System.Data.SqlClient

Public Class Form1
    Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
        Dim connectionString As String = "your_connection_string_here"
        Using conn As New SqlConnection(connectionString)
            conn.Open()

            For Each row As DataGridViewRow In DataGridView1.Rows
                If row.IsNewRow Then Continue For

                Dim attendanceID As Integer = Convert.ToInt32(row.Cells("AttendanceID").Value)
                Dim weekNumber As Integer = Convert.ToInt32(row.Cells("WeekNumber").Value)
                Dim employeeName As String = row.Cells("EmployeeName").Value.ToString()
                Dim sundayPresent As Boolean = Convert.ToBoolean(row.Cells("SundayPresent").Value)
                Dim sundayAbsent As Boolean = Convert.ToBoolean(row.Cells("SundayAbsent").Value)
                Dim mondayPresent As Boolean = Convert.ToBoolean(row.Cells("MondayPresent").Value)
                Dim mondayAbsent As Boolean = Convert.ToBoolean(row.Cells("MondayAbsent").Value)
                Dim tuesdayPresent As Boolean = Convert.ToBoolean(row.Cells("TuesdayPresent").Value)
                Dim tuesdayAbsent As Boolean = Convert.ToBoolean(row.Cells("TuesdayAbsent").Value)
                Dim wednesdayPresent As Boolean = Convert.ToBoolean(row.Cells("WednesdayPresent").Value)
                Dim wednesdayAbsent As Boolean = Convert.ToBoolean(row.Cells("WednesdayAbsent").Value)
                Dim thursdayPresent As Boolean = Convert.ToBoolean(row.Cells("ThursdayPresent").Value)
                Dim thursdayAbsent As Boolean = Convert.ToBoolean(row.Cells("ThursdayAbsent").Value)

                Dim updateQuery As String = "UPDATE Attendance SET SundayPresent = @SundayPresent, SundayAbsent = @SundayAbsent, MondayPresent = @MondayPresent, MondayAbsent = @MondayAbsent, TuesdayPresent = @TuesdayPresent, TuesdayAbsent = @TuesdayAbsent, WednesdayPresent = @WednesdayPresent, WednesdayAbsent = @WednesdayAbsent, ThursdayPresent = @ThursdayPresent, ThursdayAbsent = @ThursdayAbsent WHERE AttendanceID = @AttendanceID"

                Using cmd As New SqlCommand(updateQuery, conn)
                    cmd.Parameters.AddWithValue("@SundayPresent", sundayPresent)
                    cmd.Parameters.AddWithValue("@SundayAbsent", sundayAbsent)
                    cmd.Parameters.AddWithValue("@MondayPresent", mondayPresent)
                    cmd.Parameters.AddWithValue("@MondayAbsent", mondayAbsent)
                    cmd.Parameters.AddWithValue("@TuesdayPresent", tuesdayPresent)
                    cmd.Parameters.AddWithValue("@TuesdayAbsent", tuesdayAbsent)
                    cmd.Parameters.AddWithValue("@WednesdayPresent", wednesdayPresent)
                    cmd.Parameters.AddWithValue("@WednesdayAbsent", wednesdayAbsent)
                    cmd.Parameters.AddWithValue("@ThursdayPresent", thursdayPresent)
                    cmd.Parameters.AddWithValue("@ThursdayAbsent", thursdayAbsent)
                    cmd.Parameters.AddWithValue("@AttendanceID", attendanceID)

                    cmd.ExecuteNonQuery()
                End Using
            Next
        End Using

        MessageBox.Show("Changes saved successfully.")
    End Sub
End Class 


[saud1004]

الأخ Kamil
أرجو أن تتقبل شكري وتقديري وجل احترامي لشخصك الكريم

وجزاك الله عني وعن الجميع كل خير

أشكرك وأشكر الأخ طه على ما قدمتوا وما تقدمون وأسأل الله أن يجعل ذلك في ميزان حسناتكم

تقبلوا شكري وتقديري

الحمد لله تمت الإجابة على السؤال من قبلكم جميعا