المشاركات : 491
المواضيع 63
الإنتساب : Sep 2013
السمعة :
2
الشكر: 33
تم شكره 272 مرات في 75 مشاركات
السلام عليكم
مطلوب كود افراغ قاعدة بيانات بدون معرفة عدد السجلات
حيث الكود rs.delete
مع حلقة التكرار لم ينجح
المشاركات : 372
المواضيع 15
الإنتساب : Sep 2013
السمعة :
28
الشكر: 487
تم شكره 1677 مرات في 187 مشاركات
السلام عليكم...
asto كتب :مطلوب كود افراغ قاعدة بيانات بدون معرفة عدد السجلات
حيث الكود rs.delete
مع حلقة التكرار لم ينجح
و أيضاً غير عملي مع عدد كبير من السجلات و قد يؤدي إلى توقف البرنامج عن العمل.
الطريقة الصحيحة هي استعمال جملة DELETE مع ADO Command لحذف كافة السجلات:
كود :
Dim ADOCmd As ADODB.Command
'
Set ADOCmd = New ADODB.Command
ADOCmd.CommandType = adCmdText
ADOCmd.ActiveConnection = AConnection
ADOCmd.CommandText = "DELETE FROM table_name"
ADOCmd.Execute
حيث table_name هو اسم الجدول الذي تريد إفراغه.
و AConnection في السطر ADOCmd.ActiveConnection = AConnection هو إما كائن ADODB.Connection معرف و مفتوح سابقاً، أو ConnectionString.
نرجو الاستفادة و السلام.
بِسْمِ اللهِ الرَّحْمَنِ الرَّحِيمِ ( وَ مَا تُقَدِّمُوا لِأَنفُسِكُم مِّنْ خَيْرٍ تَجِدُوهُ عِندَ اللهِ هُوَ خَيْراً وَ أَعْظَمَ أَجْراً ) صَدَقَ اللهُ الْعَظِيمُ
المشاركات : 372
المواضيع 15
الإنتساب : Sep 2013
السمعة :
28
الشكر: 487
تم شكره 1677 مرات في 187 مشاركات
السلام عليكم...
كنت أعتقد أنك تستعمل مكونات ADODB.
بما أنك تستعمل مكونات DAO فإن الكود يكون كالتالي:
كود :
Set DB = DBEngine.OpenDatabase(App.Path & "\db2.mdb")
DB.Execute "DELETE FROM table"
نرجو الاستفادة و السلام.
بِسْمِ اللهِ الرَّحْمَنِ الرَّحِيمِ ( وَ مَا تُقَدِّمُوا لِأَنفُسِكُم مِّنْ خَيْرٍ تَجِدُوهُ عِندَ اللهِ هُوَ خَيْراً وَ أَعْظَمَ أَجْراً ) صَدَقَ اللهُ الْعَظِيمُ
المشاركات : 551
المواضيع 13
الإنتساب : Sep 2013
السمعة :
94
الشكر: 6399
تم شكره 8580 مرات في 478 مشاركات
افضل شئ رفع المشروع اخي لان الكود بتاع الاخ ناجي صحيح 100%
بالتوفيق
المشاركات : 372
المواضيع 15
الإنتساب : Sep 2013
السمعة :
28
الشكر: 487
تم شكره 1677 مرات في 187 مشاركات
السلام عليكم...
السبب هو أن كلمة TABLE محجوزة في لغة SQL كما في جمل مثل CREATE TABLE و DROP TABLE. و الحل - غير الأمثل - هو بوضع مثل هذه التسميات - عندما نسمي بها كائناً - هو وضعها بين أقواس مربعة [ ... ] أما الحل الأمثل - و الذي أتبعه و أنصح به دائماً - فهو عدم استخدام كلمات مثل هذه في تسمية الجداول و الحقول و الفهارس (مثلاً Table أو Nmae أو Date أو ما يشبهها من الكلمات التي قد يكون لها معنى خاص عند محرك قواعد البيانات). حاول دائماً تسمية الجداول و الحقول بأسماء تدل على محتواها، مثلاً Customers لجدول الزبائن، أو Suppliers لجدول الموردين، أو Students لجدول الطلبة... إلخ.
الشكر للصديقين القديمين "الليث" و "أحمد عبد العليم". أرجو من الله أن تكون أخباركما جيدة.
بالتوفيق و السلام.
بِسْمِ اللهِ الرَّحْمَنِ الرَّحِيمِ ( وَ مَا تُقَدِّمُوا لِأَنفُسِكُم مِّنْ خَيْرٍ تَجِدُوهُ عِندَ اللهِ هُوَ خَيْراً وَ أَعْظَمَ أَجْراً ) صَدَقَ اللهُ الْعَظِيمُ