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


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  أريد تشغيل برنامجي المرفق على جميع احجام الشاشات صعب الوصول 4 80 منذ 3 ساعة مضت
آخر رد: Ahmed_Mansoor
  [vb6.0] كود للإتصال بقاعدة البيانات أكسس محمية بكلمة المرور larbihamri 2 71 24-05-17, 04:54 PM
آخر رد: larbihamri
  [سؤال] كود عدم الكتابة داخل combo box Ahmed Abdulla 11 3,283 18-05-17, 02:05 AM
آخر رد: عبد العزيز البسكري
  [سؤال] كيفية اضافة استعلام وحفظه في قاعدة بيانات أبوسعود 4 99 17-05-17, 02:56 PM
آخر رد: أبوسعود
  [سؤال] معرفة اسماء الجداول الموجودة داخل قاعدة بيانات أبوسعود 5 181 15-05-17, 11:28 PM
آخر رد: Ahmed_Mansoor
  [سؤال] كود اضافة سجلات لجدول موجود في قاعدة بيانات باستخدام الاداة adox أبوسعود 2 81 04-05-17, 03:28 AM
آخر رد: أبوسعود
  ارجو المساعدة في اقرب وقت (حول ملأ الكمبو بوكس من جدول في قاعدة البيانات) larbihamri 6 183 01-05-17, 03:06 PM
آخر رد: mosamosa
  مشكلة في حفظ البيانات عن طريق الليست بوكس مصمم هاوي 3 84 28-04-17, 05:23 AM
آخر رد: Ahmed_Mansoor
  [vb6.0] نقل البيانات من الداتاقريد الى الاكسل larbihamri 18 478 16-04-17, 08:31 PM
آخر رد: larbihamri
  [vb6.0] طريقة ترقيم عمود في الداتا قريد و حل مشكلة الترقيم التلقائي في قاعدة البيانات larbihamri 9 235 16-04-17, 08:28 PM
آخر رد: larbihamri

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


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