السلام عليكم ورحمة الله وبركاته
عفوا فلدي سؤال بسييييييييييط بإذن الله ..
لدي قاعدة بيانات مصممة بالأكسس ((ومربوطة بالفيجوال بيسك)) باستخدام الأداة Adodc ولدي جدول اسمه (Books) وبه مجموعة سجلات.. لكن اتضح لي أنه عندما أقوم
بحذف كل السجلات من قاعدة البيانات يظهر لي مشكلة عند اضافة مستخدم جديد .. ففكرة في كود بحيث يكون السجل الأول لا يمكن حذفه وهذا هو
If Adodc1.Recordset.RecordCount = 1 Then
MsgBox "Do'nt Remove"
Exit Sub
End If
إلى هنا ممتاز .. لكن جربت وعملت استعلام عن شخص معين .. باستخدام الكود التالي..
t = InputBox("Enter name", "name")
If Adodc1.Recordset.RecordCount > 0 Then
Adodc1.RecordSource = " select * from Books where S_name='" & t & "' "
Adodc1.CommandType = adCmdText
Adodc1.Refresh
End If
وظهر لي بعد الإستعلام سجل واحد < في الأداة Dada Grid > وعندما حاولت حذف هذا السجل الناتج من الاستعلام
{ لأن مدة استعارته انتهت } منعني البرنامج بسبب الكود الأول .؟؟؟
..:: ملخص ماسبق ::..
فهل يستطيع أحد أن يصمم لي كود أو فكرة تسمح لي بحذف أي سجل ناتج من الإستعلام بجملة select .. ؟؟
كل الأسف على الإطالة وارجوا المساعدة وكل شكري للجميع ..
