تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[تم الحل] كود لحذف كل الصفوف التي لا يوجد بها شئ
#1
السلام عليكم

لدي برنامج به قاعدة بيانات من النوع Adodc وبها حقول A و B والمطلوب كود

يقوم بحذف كل الصفوف التي لا يحتوي فيها الحقل A علي أي بيانات

ولكم مني جزيل الشكر
}}}
تم الشكر بواسطة:
#2
السلام عليكم...

باستعمال ADOConnection أو ADOCommand قم بتنفيذ جملة SQL التالية:
كود :
DELETE FROM table_name WHERE (A IS NULL)

حيث بدل table_name ضع اسم الجدول الذي تريد حذف السجلات منه.

نرجو الاستفادة و السلام.
بِسْمِ اللهِ الرَّحْمَنِ الرَّحِيمِ ( وَ مَا تُقَدِّمُوا لِأَنفُسِكُم مِّنْ خَيْرٍ تَجِدُوهُ عِندَ اللهِ هُوَ خَيْراً وَ أَعْظَمَ أَجْراً ) صَدَقَ اللهُ الْعَظِيمُ
}}}
تم الشكر بواسطة:
#3
أخي الكريم أكون شاكر أفضالك اذا عدلت لي علي هذا المثال ولك مني جزيل الشكر

المثال مرفق


الملفات المرفقة
.rar   New Folder.rar (الحجم : 7.49 ك ب / التحميلات : 104)
}}}
تم الشكر بواسطة:
#4
السلام عليكم...

كود زر الحذف:
كود :
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) بسبب خلل في تصميمه. لهذا نعيد العملية مرتين من أجل عملية التحديث.

نرجو الاستفادة و السلام.
بِسْمِ اللهِ الرَّحْمَنِ الرَّحِيمِ ( وَ مَا تُقَدِّمُوا لِأَنفُسِكُم مِّنْ خَيْرٍ تَجِدُوهُ عِندَ اللهِ هُوَ خَيْراً وَ أَعْظَمَ أَجْراً ) صَدَقَ اللهُ الْعَظِيمُ
}}}
تم الشكر بواسطة:
#5
جزاك الله خيرا
}}}
تم الشكر بواسطة:



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


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