تقييم الموضوع :
  • 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 ك ب / التحميلات : 27)
الرد }}}}
تم الشكر بواسطة:
#4
أهلا أخي الكريم , التعديل في المرفقات .


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


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [vb6.0] هل ممكن تعديل البيانات فى الفليكس جريد؟ ahmed_egypt 2 36 21-10-17, 03:35 AM
آخر رد: sendbad100
Photo حفظ البيانات فى قاعدة البيانات كل تكس فى سجل المبرمج العتيق 1 81 16-10-17, 11:38 AM
آخر رد: Mohamad Anan
  [مثال] مثال متكامل للتعامل مع قاعدة بيانات من نوع mysql على الانترنت ahmedabdelaliem 13 1,511 13-10-17, 06:18 PM
آخر رد: ahmed.m
  [ تمّ الحل ] : إعادة عرض البيانات داخل الفليكس جريد عبد العزيز البسكري 3 134 05-10-17, 04:31 PM
آخر رد: عبد العزيز البسكري
  [سؤال] كود فتح و اغلاق قاعدة بيانات gharib 9 211 29-09-17, 11:30 PM
آخر رد: gharib
  التّعامل مع قواعد البيانات SQlite عبد العزيز البسكري 2 83 28-09-17, 12:50 PM
آخر رد: عبد العزيز البسكري
  سؤال فى قواعد البيانات مبرمج مصرى 2 52 28-09-17, 11:24 AM
آخر رد: مبرمج مصرى
Question [vb6.0] كيف اغلاق ملف قاعدة بيانات اكسس مفتوحة من خلال برنامجي ؟؟ Microformt 3 69 21-09-17, 04:20 PM
آخر رد: Amir_alzubidy
  من لديه طريقه او باتش خاص بضغط ملف ال بي دي اف قبل تخزينه بقاعده البيانات يلغه فجوال scsi7000 4 95 18-09-17, 09:33 PM
آخر رد: scsi7000
  من لديه طريقه اذا امتلئت قاعده البيانات اكسس يقوم البرنامج بتصنيع قاعده بيانات من نفس scsi7000 7 200 18-09-17, 01:41 PM
آخر رد: عبد العزيز البسكري

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


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