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


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


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [vb6.0] اضافة الصور الى ملف واسترجاعها بدون قاعدة البيانات haitham Muhammed 3 417 24-01-24, 01:51 PM
آخر رد: haitham Muhammed
  [vb6.0] حذف سجل محدد بضغطة زر وحذف جميع السجلات بضغطة زر وادي العوضي 2 199 31-12-23, 07:24 AM
آخر رد: وادي العوضي
  [vb6.0] تغيير نوع الخط فى عمود معين داخل الdatagrid haitham Muhammed 6 363 20-12-23, 01:11 PM
آخر رد: mhareek
  عدم ضهور كل البيانات فراس محي 1 223 15-12-23, 06:05 AM
آخر رد: Taha Okla
  [vb6.0] عند فتح الكومبو بوكس تظهر فيها جميع اسماء الزبائن وادي العوضي 3 352 27-11-23, 01:05 AM
آخر رد: وادي العوضي
Question [vb6.0] نامل المساعدة في المثال المرفق يوجد مشكلة في إضافة رقم الصنف الى قاعدة البيانات لا اع Microformt 1 241 23-10-23, 12:11 AM
آخر رد: Taha Okla
  [vb6.0] سؤال حول كيفية عمل زر كوماند داخل عمود Msflexgrid جلال اليمني 5 551 14-09-23, 05:12 AM
آخر رد: جلال اليمني
  جمع حقلين داخل rpttext فى داتا ريبورت haithamelareny 3 321 10-08-23, 11:56 PM
آخر رد: ahmedabdelaliem
  نقل بيانات الجدول الى جدول اخر بعد تجميع البيانات haithamelareny 1 357 10-08-23, 11:54 PM
آخر رد: ahmedabdelaliem
Question [vb6.0] هل يوجد كود لضغط وإصلاح قاعدة البيانات ، أعني قاعدة بيانات Access؟ Microformt 1 455 27-07-23, 08:33 PM
آخر رد: Taha Okla

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


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