ماهي طريقة حذف جميع سجلات الجدول باستخدام الربط مع الاكسس و ado ؟ أي أن أجعل المستخدم يستطيع استخدام البرنامج وكأنه جديد بدون بيانات؟
؟؟؟؟؟؟؟؟؟؟؟
ماهي طريقة حذف جميع سجلات الجدول باستخدام الربط مع الاكسس و ado ؟ أي أن أجعل المستخدم يستطيع استخدام البرنامج وكأنه جديد بدون بيانات؟
؟؟؟؟؟؟؟؟؟؟؟
بهذه الجملة تستطيعين حذف جميع السجلات من الجدول
dim Rs as New Adodb.Recordset Rs.Open "Delete * from MyTable" Set Rs=Nothing
تحياتي
OMANI FOR EVER
-------------------------------------------------

-------------------------------------------------
شكرا جزيلا اخي omani على الرد
ولكن هل يمكنني حذف محتويات عمود معين واستبدالها بقيم أخرى؟
أختي الكريمة الاستبدال يختلف عن الحذف فطريقة الاستبدال هي كالتالي : فلنفترض ان الجدول مفتوح لديك والبيانات المطلوب استبدالها موجودة في الفيلد الثاني من الجدول Dim Rs as new Adodb.Recordset 'فتح الجدول Rs.OPen " select * from MyTable",dbConn, adOpenDynamic, adLockOptimistic 'إعادة الجدول الى البداية if Rs.BOF=False then Rs.MoveFirst 'بدء عمل تغيير البيانات DO until Rs.Eof rs.field(1)=ضع البيانات الجديده هنا rs.update rs.movenext Loop Rs.Close Set Rs=nothing
تحياتي
OMANI FOR EVER
-------------------------------------------------

-------------------------------------------------
هذا الموضوع مغلق.