16-11-12, 03:45 AM
16-11-12, 01:38 PM
السلام عليكم...
و أيضاً غير عملي مع عدد كبير من السجلات و قد يؤدي إلى توقف البرنامج عن العمل.
الطريقة الصحيحة هي استعمال جملة DELETE مع ADO Command لحذف كافة السجلات:
حيث table_name هو اسم الجدول الذي تريد إفراغه.
و AConnection في السطر ADOCmd.ActiveConnection = AConnection هو إما كائن ADODB.Connection معرف و مفتوح سابقاً، أو ConnectionString.
نرجو الاستفادة و السلام.
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.
نرجو الاستفادة و السلام.
16-11-12, 10:22 PM
ناجي إبراهيم كتب :السلام عليكم...
و أيضاً غير عملي مع عدد كبير من السجلات و قد يؤدي إلى توقف البرنامج عن العمل.
الطريقة الصحيحة هي استعمال جملة 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.Execute17-11-12, 01:11 AM
السلام عليكم...
كنت أعتقد أنك تستعمل مكونات ADODB.
بما أنك تستعمل مكونات DAO فإن الكود يكون كالتالي:
نرجو الاستفادة و السلام.
كنت أعتقد أنك تستعمل مكونات ADODB.
بما أنك تستعمل مكونات DAO فإن الكود يكون كالتالي:
كود :
Set DB = DBEngine.OpenDatabase(App.Path & "\db2.mdb")
DB.Execute "DELETE FROM table"نرجو الاستفادة و السلام.
17-11-12, 01:13 AM
ناجي إبراهيم كتب :السلام عليكم...
كنت أعتقد أنك تستعمل مكونات ADODB.
بما أنك تستعمل مكونات DAO فإن الكود يكون كالتالي:
كود :
Set DB = DBEngine.OpenDatabase(App.Path & "\db2.mdb")
DB.Execute "DELETE FROM table"
نرجو الاستفادة و السلام.
مشكور اخ ناجي
17-11-12, 02:57 AM
ناجي إبراهيم كتب :السلام عليكم...
كنت أعتقد أنك تستعمل مكونات ADODB.
بما أنك تستعمل مكونات DAO فإن الكود يكون كالتالي:
كود :
Set DB = DBEngine.OpenDatabase(App.Path & "\db2.mdb")
DB.Execute "DELETE FROM table"
نرجو الاستفادة و السلام.
عم يقول البرنامج :خطأ في بناء الجملة في جزء من from
17-11-12, 03:09 AM
asto كتب :عم يقول البرنامج :خطأ في بناء الجملة في جزء من from
مشي الحال
الحل هو بكتابة اسم الجدول ضمن []
17-11-12, 03:19 AM
افضل شئ رفع المشروع اخي لان الكود بتاع الاخ ناجي صحيح 100%
بالتوفيق
بالتوفيق
17-11-12, 03:38 AM
السلام عليكم...
السبب هو أن كلمة TABLE محجوزة في لغة SQL كما في جمل مثل CREATE TABLE و DROP TABLE. و الحل - غير الأمثل - هو بوضع مثل هذه التسميات - عندما نسمي بها كائناً - هو وضعها بين أقواس مربعة [ ... ] أما الحل الأمثل - و الذي أتبعه و أنصح به دائماً - فهو عدم استخدام كلمات مثل هذه في تسمية الجداول و الحقول و الفهارس (مثلاً Table أو Nmae أو Date أو ما يشبهها من الكلمات التي قد يكون لها معنى خاص عند محرك قواعد البيانات). حاول دائماً تسمية الجداول و الحقول بأسماء تدل على محتواها، مثلاً Customers لجدول الزبائن، أو Suppliers لجدول الموردين، أو Students لجدول الطلبة... إلخ.
الشكر للصديقين القديمين "الليث" و "أحمد عبد العليم". أرجو من الله أن تكون أخباركما جيدة.
بالتوفيق و السلام.
السبب هو أن كلمة TABLE محجوزة في لغة SQL كما في جمل مثل CREATE TABLE و DROP TABLE. و الحل - غير الأمثل - هو بوضع مثل هذه التسميات - عندما نسمي بها كائناً - هو وضعها بين أقواس مربعة [ ... ] أما الحل الأمثل - و الذي أتبعه و أنصح به دائماً - فهو عدم استخدام كلمات مثل هذه في تسمية الجداول و الحقول و الفهارس (مثلاً Table أو Nmae أو Date أو ما يشبهها من الكلمات التي قد يكون لها معنى خاص عند محرك قواعد البيانات). حاول دائماً تسمية الجداول و الحقول بأسماء تدل على محتواها، مثلاً Customers لجدول الزبائن، أو Suppliers لجدول الموردين، أو Students لجدول الطلبة... إلخ.
الشكر للصديقين القديمين "الليث" و "أحمد عبد العليم". أرجو من الله أن تكون أخباركما جيدة.
بالتوفيق و السلام.