المشاركات : 207
المواضيع 48
الإنتساب : Jan 2014
السمعة :
0
الشكر: 0
تم شكره 68 مرات في 17 مشاركات
السلام عليكم
لدي برنامج به قاعدة بيانات من النوع Adodc وبها حقول A و B والمطلوب كود
يقوم بحذف كل الصفوف التي لا يحتوي فيها الحقل A علي أي بيانات
ولكم مني جزيل الشكر
المشاركات : 372
المواضيع 15
الإنتساب : Sep 2013
السمعة :
28
الشكر: 487
تم شكره 1677 مرات في 187 مشاركات
السلام عليكم...
باستعمال ADOConnection أو ADOCommand قم بتنفيذ جملة SQL التالية:
كود :
DELETE FROM table_name WHERE (A IS NULL)
حيث بدل table_name ضع اسم الجدول الذي تريد حذف السجلات منه.
نرجو الاستفادة و السلام.
بِسْمِ اللهِ الرَّحْمَنِ الرَّحِيمِ ( وَ مَا تُقَدِّمُوا لِأَنفُسِكُم مِّنْ خَيْرٍ تَجِدُوهُ عِندَ اللهِ هُوَ خَيْراً وَ أَعْظَمَ أَجْراً ) صَدَقَ اللهُ الْعَظِيمُ
المشاركات : 207
المواضيع 48
الإنتساب : Jan 2014
السمعة :
0
الشكر: 0
تم شكره 68 مرات في 17 مشاركات
أخي الكريم أكون شاكر أفضالك اذا عدلت لي علي هذا المثال ولك مني جزيل الشكر
المثال مرفق
الملفات المرفقة
New Folder.rar (الحجم : 7.49 ك ب / التحميلات : 104)
المشاركات : 372
المواضيع 15
الإنتساب : Sep 2013
السمعة :
28
الشكر: 487
تم شكره 1677 مرات في 187 مشاركات
السلام عليكم...
كود زر الحذف:
كود :
Private Sub Command1_Click()
Dim AdoCmd As New ADODB.Command
Dim X As Long
' ولهذا تعيد العملية مرتين ADODC توجد مشكلة في عملية تحديث الـ
For X = 1 To 2
AdoCmd.ActiveConnection = Adodc1.ConnectionString
AdoCmd.CommandText = "DELETE FROM T WHERE (A IS NULL)"
AdoCmd.Execute
Adodc1.Refresh
Next X
End Sub
* يوجد في المكون ADODC (و كذلك DBGrid) مشكلة في عملية التحديث (Refresh) بسبب خلل في تصميمه. لهذا نعيد العملية مرتين من أجل عملية التحديث.
نرجو الاستفادة و السلام.
بِسْمِ اللهِ الرَّحْمَنِ الرَّحِيمِ ( وَ مَا تُقَدِّمُوا لِأَنفُسِكُم مِّنْ خَيْرٍ تَجِدُوهُ عِندَ اللهِ هُوَ خَيْراً وَ أَعْظَمَ أَجْراً ) صَدَقَ اللهُ الْعَظِيمُ