+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم اسئلة vb6.0 المتعلقة بقواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=72)
+--- الموضوع : افراغ كامل (/showthread.php?tid=6996)
افراغ كامل - asto - 16-11-12
السلام عليكم
مطلوب كود افراغ قاعدة بيانات بدون معرفة عدد السجلات
حيث الكود rs.delete
مع حلقة التكرار لم ينجح
افراغ كامل - ناجي إبراهيم - 16-11-12
السلام عليكم...
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.
نرجو الاستفادة و السلام.
افراغ كامل - asto - 16-11-12
ناجي إبراهيم كتب :السلام عليكم...
و أيضاً غير عملي مع عدد كبير من السجلات و قد يؤدي إلى توقف البرنامج عن العمل.
الطريقة الصحيحة هي استعمال جملة 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.
نرجو الاستفادة و السلام.
مشكور بس معليش اطلب شرح اكثر مرة واحدة لافهم اكثر
اذا انا انشأت زر كوماند
وضعت فيه :
كود :
Set Db = DBEngine.OpenDatabase(App.Path & "\db2.mdb")
Set Rs = Db.OpenRecordset("table", 1):
كود :
Dim ADOCmd As ADODB.Command
'
Set ADOCmd = New ADODB.Command
ADOCmd.CommandType = adCmdText
ADOCmd.ActiveConnection = AConnection
ADOCmd.CommandText = "DELETE FROM table_name"
ADOCmd.Executeافراغ كامل - ناجي إبراهيم - 17-11-12
السلام عليكم...
كنت أعتقد أنك تستعمل مكونات ADODB.
بما أنك تستعمل مكونات DAO فإن الكود يكون كالتالي:
كود :
Set DB = DBEngine.OpenDatabase(App.Path & "\db2.mdb")
DB.Execute "DELETE FROM table"نرجو الاستفادة و السلام.
افراغ كامل - abulayth - 17-11-12
ناجي إبراهيم كتب :السلام عليكم...
كنت أعتقد أنك تستعمل مكونات ADODB.
بما أنك تستعمل مكونات DAO فإن الكود يكون كالتالي:
كود :
Set DB = DBEngine.OpenDatabase(App.Path & "\db2.mdb")
DB.Execute "DELETE FROM table"
نرجو الاستفادة و السلام.
مشكور اخ ناجي
افراغ كامل - asto - 17-11-12
ناجي إبراهيم كتب :السلام عليكم...
كنت أعتقد أنك تستعمل مكونات ADODB.
بما أنك تستعمل مكونات DAO فإن الكود يكون كالتالي:
كود :
Set DB = DBEngine.OpenDatabase(App.Path & "\db2.mdb")
DB.Execute "DELETE FROM table"
نرجو الاستفادة و السلام.
عم يقول البرنامج :خطأ في بناء الجملة في جزء من from
افراغ كامل - asto - 17-11-12
asto كتب :عم يقول البرنامج :خطأ في بناء الجملة في جزء من from
مشي الحال
الحل هو بكتابة اسم الجدول ضمن []
افراغ كامل - ahmedabdelaliem - 17-11-12
افضل شئ رفع المشروع اخي لان الكود بتاع الاخ ناجي صحيح 100%
بالتوفيق
افراغ كامل - ناجي إبراهيم - 17-11-12
السلام عليكم...
السبب هو أن كلمة TABLE محجوزة في لغة SQL كما في جمل مثل CREATE TABLE و DROP TABLE. و الحل - غير الأمثل - هو بوضع مثل هذه التسميات - عندما نسمي بها كائناً - هو وضعها بين أقواس مربعة [ ... ] أما الحل الأمثل - و الذي أتبعه و أنصح به دائماً - فهو عدم استخدام كلمات مثل هذه في تسمية الجداول و الحقول و الفهارس (مثلاً Table أو Nmae أو Date أو ما يشبهها من الكلمات التي قد يكون لها معنى خاص عند محرك قواعد البيانات). حاول دائماً تسمية الجداول و الحقول بأسماء تدل على محتواها، مثلاً Customers لجدول الزبائن، أو Suppliers لجدول الموردين، أو Students لجدول الطلبة... إلخ.
الشكر للصديقين القديمين "الليث" و "أحمد عبد العليم". أرجو من الله أن تكون أخباركما جيدة.
بالتوفيق و السلام.