منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[تم الحل] كود لحذف كل الصفوف التي لا يوجد بها شئ - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم اسئلة vb6.0 المتعلقة بقواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=72)
+--- الموضوع : [تم الحل] كود لحذف كل الصفوف التي لا يوجد بها شئ (/showthread.php?tid=5534)



[تم الحل] كود لحذف كل الصفوف التي لا يوجد بها شئ - Ahmed Abdulla - 12-10-12

السلام عليكم

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

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

ولكم مني جزيل الشكر


[تم الحل] كود لحذف كل الصفوف التي لا يوجد بها شئ - ناجي إبراهيم - 12-10-12

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

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

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

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


[تم الحل] كود لحذف كل الصفوف التي لا يوجد بها شئ - Ahmed Abdulla - 12-10-12

أخي الكريم أكون شاكر أفضالك اذا عدلت لي علي هذا المثال ولك مني جزيل الشكر

المثال مرفق


[تم الحل] كود لحذف كل الصفوف التي لا يوجد بها شئ - ناجي إبراهيم - 12-10-12

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

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

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


[تم الحل] كود لحذف كل الصفوف التي لا يوجد بها شئ - Ahmed Abdulla - 12-10-12

جزاك الله خيرا