تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
حذف جميع البيانات داخل قاعدة البيانات بكبسة زر
#1
أخوتي الكرام السلام عليكم ورحمة الله وبركاته,,,
 
كيف يتم حذف جميع محتويات قاعد بيانات مربوطة باداة Adodc بزر واحد

والسؤل الثاني كيف يمكن حذف عمود واحد من قاعدة البيانات فقط او وضع قيمة 0 بكل محتويات العمود

وألف شكر على مساعدتكم
الرد }}}}
تم الشكر بواسطة:
#2
وعليك السلام ورحمة الله وبركاته

أهلا أخي الكريم , أولاً قم بإضافة أداة Adodc جديدة وتكون خاصة لأكواد الحذف والتعديل ولتكن مثلاً بإسم Adodc2 ثم قم بإضافة الحدث Adodc2_Error التابع لها والخاص بظهور الأخطاء لكي يتم إخفاء أي رسائل خطأ تظهر , أنسخ كود الحدث وإلصقه في كود الفورم التي توجد عليه الأداة Adodc2 :

PHP كود :
Private Sub Adodc2_Error(ByVal ErrorNumber As LongDescription As StringByVal Scode As LongByVal Source As StringByVal HelpFile As StringByVal HelpContext As LongfCancelDisplay As Boolean)
fCancelDisplay True
End Sub 

وهذا كود حذف جميع بيانات جدول وهذا الجدول بإسم Table1 قم بتكرار كود الحذف بعدد الجداول الموجوده في قاعدة البيانات مع تغيير أسماء الجداول في الكود المكرر حيث يكون كل كود حذف خاص بجدول واحد وأيضاُ لاتنسى تغيير إسم قاعدة البيانات في كل كود حذف .

PHP كود :
Private Sub Command1_Click()
On Error Resume NextErr.Clear

Adodc2
.ConnectionString "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" App.Path "\db1.mdb;Persist Security Info=False"
Adodc2.RecordSource "Delete From Table1"
Adodc2.Refresh

Adodc2
.ConnectionString "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" App.Path "\db1.mdb;Persist Security Info=False"
Adodc2.RecordSource "Delete From Table2"
Adodc2.Refresh

MsgBox 
"تم الحذف بنجاح"vbOKOnly vbInformation"تنبيه"

End Sub 

وهذا كود بوضع قيمة نصية وهي الحرف m في جميع صفوف العمود أو الحقل Name وإذا أردت حذف جميع قيم عمود أو حقل معين قم بدل حرف الـ m إجعله فارغ بدون أي شي وسيتم مسح القيم :

PHP كود :
Private Sub Command2_Click()
On Error Resume NextErr.Clear

Adodc2
.ConnectionString "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" App.Path "\db1.mdb;Persist Security Info=False"
Adodc2.RecordSource "Update Table1 Set Name='m'"
Adodc2.Refresh

MsgBox 
"تم التعديل بنجاح"vbOKOnly vbInformation"تنبيه"

End Sub 
الرد }}}}
#3
(05-04-16, 02:14 AM)Ahmed_Mansoor كتب : وعليك السلام ورحمة الله وبركاته

أهلا أخي الكريم , أولاً قم بإضافة أداة Adodc جديدة وتكون خاصة لأكواد الحذف والتعديل ولتكن مثلاً بإسم Adodc2 ثم قم بإضافة الحدث  Adodc2_Error التابع لها والخاص بظهور الأخطاء لكي يتم إخفاء أي رسائل خطأ تظهر , أنسخ كود الحدث وإلصقه في كود الفورم التي توجد عليه الأداة Adodc2 :

PHP كود :
Private Sub Adodc2_Error(ByVal ErrorNumber As LongDescription As StringByVal Scode As LongByVal Source As StringByVal HelpFile As StringByVal HelpContext As LongfCancelDisplay As Boolean)
fCancelDisplay True
End Sub 

وهذا كود حذف جميع بيانات جدول وهذا الجدول بإسم Table1 قم بتكرار كود الحذف بعدد الجداول الموجوده في قاعدة البيانات مع تغيير أسماء الجداول في الكود المكرر حيث يكون كل كود حذف خاص بجدول واحد وأيضاُ لاتنسى تغيير إسم قاعدة البيانات في كل كود حذف .

PHP كود :
Private Sub Command1_Click()
On Error Resume NextErr.Clear

Adodc2
.ConnectionString "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" App.Path "\db1.mdb;Persist Security Info=False"
Adodc2.RecordSource "Delete From Table1"
Adodc2.Refresh

Adodc2
.ConnectionString "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" App.Path "\db1.mdb;Persist Security Info=False"
Adodc2.RecordSource "Delete From Table2"
Adodc2.Refresh

MsgBox 
"تم الحذف بنجاح"vbOKOnly vbInformation"تنبيه"

End Sub 

وهذا كود بوضع قيمة نصية وهي الحرف m في  جميع صفوف العمود أو الحقل Name وإذا أردت حذف جميع قيم عمود أو حقل معين قم بدل حرف الـ m إجعله فارغ بدون أي شي وسيتم مسح القيم :

PHP كود :
Private Sub Command2_Click()
On Error Resume NextErr.Clear

Adodc2
.ConnectionString "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" App.Path "\db1.mdb;Persist Security Info=False"
Adodc2.RecordSource "Update Table1 Set Name='m'"
Adodc2.Refresh

MsgBox 
"تم التعديل بنجاح"vbOKOnly vbInformation"تنبيه"

End Sub 


استاذ أحمد اشكرك على الرد
ولكن للاسف لم تنجح معي
لقد عملت مثالاً صغيراً بالمرفقات
هل يمكن التعديل عليه من بعد امرك
اذا اردت حذف العمود الذي يحتوي على رقم المقعد مثلاً
والثاني لحذف جميع المحتويات في الجدول

وشكرا لك ووفقك الله


الملفات المرفقة
.rar   Delete.rar (الحجم : 9.98 ك ب / التحميلات : 14)
الرد }}}}
تم الشكر بواسطة:
#4
أهلا أخي الكريم , التعديل في المرفقات .


الملفات المرفقة
.rar   Delete_1.rar (الحجم : 9.48 ك ب / التحميلات : 29)
الرد }}}}
#5
(05-04-16, 08:20 PM)Ahmed_Mansoor كتب : أهلا أخي الكريم , التعديل في المرفقات .


شكرا على جهودك العظيمة
وجزاك الله كل خير
الرد }}}}


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيفية ربط قاعدة البيانات القوائم المنسدلة bidaya 11 107 منذ 7 ساعة مضت
آخر رد: bidaya
  فتح برنامج مبرمج بالفيجوال بيسك6 و قاعدة بيانات MYSQL Ahmed Salem12 1 51 01-12-16, 03:40 PM
آخر رد: sendbad100
  جلب اسماء المجلدات الموجودة داخل مجلد معين عبدالله الصافي 7 180 26-11-16, 11:05 PM
آخر رد: عبدالله الصافي
  [سؤال] برجاء المساعده في تغيير إسم جدول في قاعدة بيانات SQl Server بالفيجول بيسك6 engabuhema 2 56 24-11-16, 01:49 AM
آخر رد: ahmedabdelaliem
  [سؤال] كود عدم الكتابة داخل combo box Ahmed Abdulla 9 2,486 13-11-16, 11:49 PM
آخر رد: تيجر 2000
  مشكلة : قاعدة بيانات البرنامج بعد التنصيب لا تصبح بشكل ملف للقراءة فقط haiderkh 3 92 10-11-16, 12:56 AM
آخر رد: Ahmed_Mansoor
  [سؤال] رفع فيديو في قاعدة البيانات jihad20003000 0 54 04-11-16, 02:35 PM
آخر رد: jihad20003000
  احتاج كود لعمل نسخة من قاعدة بيانات اكسس اثناء الاتصال بها sendbad100 3 121 01-11-16, 08:57 AM
آخر رد: sendbad100
  البحث المتقدم في قاعدة بيانات اكسس haniblack 4 139 31-10-16, 10:00 PM
آخر رد: moamen said
  [سؤال] هل يوجد كود لمعرفة اسم حقل في جدول ( الاسم الرئيسي) الموجود بقاعدة البيانات allobaed 3 86 30-10-16, 01:32 AM
آخر رد: أبو عمر

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم