![]() |
|
اين اضع الشرط - نسخة قابلة للطباعة +- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb) +-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40) +--- قسم : قسم أسئلة قواعد البيانات تحت بيئة الـ.NET (http://vb4arb.com/vb/forumdisplay.php?fid=41) +--- الموضوع : اين اضع الشرط (/showthread.php?tid=47397) |
اين اضع الشرط - salah525 - 26-10-23 عملت كود للتعديل يعمل الحمد لله ولكنه يحدث السجل الاول فقط فكيف اضع فيه الشرط لتحديث السجل المحدد فقط 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 RE: اين اضع الشرط - Taha Okla - 26-10-23 إذا كان الكود الذي وضعته صحيحاً فالشرط يجب أن يكتب في جملة الاستعلام .. "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' "RE: اين اضع الشرط - salah525 - 26-10-23 (26-10-23, 07:24 AM)Taha Okla كتب : إذا كان الكود الذي وضعته صحيحاً جزاكم الله خير وبارك فيكم وصلت للخطا عند نعريف المتغير عرفته pos ) Dim pos As Integer = dgv_tbl_Show_Familys.CurrentRow.Index) وعند نقله كتبته mov) dt_tbl_Show_Familys.Rows(Mov).Item(1) = fName.Text) فحدثت هذه المشكل شكرا لكم جميعا |