[ناجي إبراهيم]

السلام عليكم...

كود زر الحذف:

كود :

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

نرجو الاستفادة و السلام.