تقييم الموضوع :
  • 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 ك ب / التحميلات : 31)
الرد }}}}
#5
(05-04-16, 08:20 PM)Ahmed_Mansoor كتب : أهلا أخي الكريم , التعديل في المرفقات .


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [ تمّ الحل ] : تطبيق الأداة MSChart حسب البيانات عبد العزيز البسكري 21 283 20-02-17, 03:16 PM
آخر رد: sendbad100
  ضغط ملفات داخل فولدر عبدالله الصافي 5 93 20-02-17, 01:42 AM
آخر رد: عبدالله الصافي
  سؤال عن قاعدة البيانات اكسس مبرمج جديد 5 114 17-02-17, 01:27 PM
آخر رد: مبرمج جديد
Heart [vb6.0] استفسار - كيف اجعل قاعدة البيانات على الانترنت sl_dl1 1 63 14-02-17, 01:06 AM
آخر رد: Ahmed_Mansoor
  [سؤال] تشفير قاعدة البيانات عمور2016 8 200 11-02-17, 05:01 PM
آخر رد: Amir_alzubidy
  نقل البيانات من DataList1 الى DataList2 alfakeehy 22 298 10-02-17, 03:02 PM
آخر رد: alfakeehy
  [vb6.0] برمجة زر بحث vb6 مع قاعدة بيانات php my admin abazrmhamed 7 178 10-02-17, 01:34 AM
آخر رد: abazrmhamed
  [سؤال] عدم تكرار البيانات داخل الكمبو عمور2016 2 116 28-01-17, 02:20 PM
آخر رد: عمور2016
  اريد كود لاغلاق جميع الفورم في المشروع الا الفورم الرئيسية allobaed 6 161 26-01-17, 11:55 AM
آخر رد: allobaed
  مشكلة : قاعدة بيانات البرنامج بعد التنصيب لا تصبح بشكل ملف للقراءة فقط haiderkh 11 397 30-12-16, 11:25 PM
آخر رد: AL_BRNS

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


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