السلام عليكم
لدي برنامج به قاعدة بيانات من النوع Adodc وبها حقول A و B والمطلوب كود
يقوم بحذف كل الصفوف التي لا يحتوي فيها الحقل A علي أي بيانات
ولكم مني جزيل الشكر
السلام عليكم...
باستعمال ADOConnection أو ADOCommand قم بتنفيذ جملة SQL التالية:
كود :
DELETE FROM table_name WHERE (A IS NULL)
حيث بدل table_name ضع اسم الجدول الذي تريد حذف السجلات منه.
نرجو الاستفادة و السلام.
أخي الكريم أكون شاكر أفضالك اذا عدلت لي علي هذا المثال ولك مني جزيل الشكر
المثال مرفق
السلام عليكم...
كود زر الحذف:
كود :
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) بسبب خلل في تصميمه. لهذا نعيد العملية مرتين من أجل عملية التحديث.
نرجو الاستفادة و السلام.