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

عملت كود للتعديل يعمل الحمد لله 
ولكنه يحدث السجل الاول فقط 
فكيف اضع فيه الشرط لتحديث السجل المحدد فقط

If MsgBox("هل تريد تحديث بيانات اسرة" & posNm, MsgBoxStyle.Question + vbYesNo, Title:="Warning") = vbYes Then
                openCON()
                da = New OleDb.OleDbDataAdapter("Select * FROM tbl_Show_Familys ", Con)
                da.Fill(dt_tbl_Show_Familys)
                Con.Close()
                Dim cb As New OleDbCommandBuilder(da)

                dt_tbl_Show_Familys.Rows(Mov).Item(0) = ID_R.Text
                dt_tbl_Show_Familys.Rows(Mov).Item(1) = fName.Text
                dt_tbl_Show_Familys.Rows(Mov).Item(2) = Qawmi.Text
                dt_tbl_Show_Familys.Rows(Mov).Item(3) = Date_Birthday.Value.ToShortDateString
                dt_tbl_Show_Familys.Rows(Mov).Item(4) = Age.Text
                dt_tbl_Show_Familys.Rows(Mov).Item(5) = Gender.Text
                dt_tbl_Show_Familys.Rows(Mov).Item(6) = state.SelectedItem
                dt_tbl_Show_Familys.Rows(Mov).Item(7) = Number_afrad.Text

إذا كان الكود الذي وضعته صحيحاً

فالشرط يجب أن يكتب في جملة الاستعلام ..

"Select * FROM tbl_Show_Familys "

فتشترط عليها أن يكون حقل ما يساوي قيمة معينة(هذه القيمة لا تتكرر مع أي سجل آخر -- مثلا رقم الطالب في جدول أسماء الطلاب)،، 
عندها لن يعرض إلا ذاك السجل الوحيد ..
فتضيف على جملة الاستعلام الشرط والذي يبدأ بـ Where  ثم اسم الحقل (مثلاً ID) ثم اشارة المساواة (=) ثم اسم القيمة التي يساويها (مثلا 5)

في حال الحقل ID حقل رقمي تكتب :



في حال الحقل ID حقل نصي تكتب القيمة بين اشارتين نصيتين ('5') :

(26-10-23, 07:24 AM)Taha Okla كتب : [ -> ]إذا كان الكود الذي وضعته صحيحاً

فالشرط يجب أن يكتب في جملة الاستعلام ..

"Select * FROM tbl_Show_Familys "

فتشترط عليها أن يكون حقل ما يساوي قيمة معينة(هذه القيمة لا تتكرر مع أي سجل آخر -- مثلا رقم الطالب في جدول أسماء الطلاب)،، 
عندها لن يعرض إلا ذاك السجل الوحيد ..
فتضيف على جملة الاستعلام الشرط والذي يبدأ بـ Where  ثم اسم الحقل (مثلاً ID) ثم اشارة المساواة (=) ثم اسم القيمة التي يساويها (مثلا 5)

في حال الحقل ID حقل رقمي تكتب :

كود :

"Select * FROM tbl_Show_Familys Where Id = 5 "

في حال الحقل ID حقل نصي تكتب القيمة بين اشارتين نصيتين ('5') :

كود :

"Select * FROM tbl_Show_Familys Where Id = '5'  "

جزاكم الله خير وبارك فيكم
وصلت للخطا
عند نعريف المتغير عرفته pos ) Dim pos As Integer = dgv_tbl_Show_Familys.CurrentRow.Index)
وعند نقله كتبته mov) dt_tbl_Show_Familys.Rows(Mov).Item(1) = fName.Text)
فحدثت هذه المشكل

شكرا لكم جميعا