تقييم الموضوع :
  • 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 ك ب / التحميلات : 78)
}}}}
تم الشكر بواسطة:
#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
جزاك الله خيرا
}}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  يوجد برنامج راديو اسلامى بالفيجول بيسك 6 : اريد عملة على الاندريود battman0 2 840 12-11-14, 05:15 AM
آخر رد: battman0
  التخلص من الصفوف الفارغة Ahmed Abdulla 11 1,058 05-06-13, 03:12 PM
آخر رد: nasr1987
  ماهو الحل لطريقة حذف سجل ومراعات التسلسل يقوم بلتحديث للرقم التسلسلي ؟؟ سجى عبد الكريم 1 517 18-05-13, 11:20 PM
آخر رد: تركي الحلواني
  هل يوجد من احد عمل برنامج على شبكة من اجهزة الحاسب الى ؟؟ softmail8 0 308 05-05-13, 08:56 PM
آخر رد: softmail8
  خطأ في تفقيط الارقام في الكريستال ريبورت 10 ضروري الحل abu jana 0 442 30-03-13, 10:23 PM
آخر رد: abu jana

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


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