تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] اختيار البيانات غير مكررة من الداتاتابل
#1
السلام عليكم ورحمة الله وبركاتة 

لدي داتاتابل وبها عمود واحد بية بيانات مكررة اريد استخراج البيانات التي لم تكر ر 

AM3
AM2
AM3
AM4
AM2
AM3


اريد النتيجة النهائية ان تكون  القيمة بالداتاتابل  بعد استبعاد الكل  == AM4 

حاولات بالطريقة الاتية بلا نتيجة ..

كود :
Public Function RemoveDuplicateRowsG(ByVal dTable As DataTable) As DataTable

    For intI = dTable.Rows.Count - 1 To 0 Step -1
        For intJ = intI - 1 To 0 Step -1
            If dTable.Rows(intI)(0) = dTable.Rows(intJ)(0) Then
                dTable.Rows.RemoveAt(intI)
                dTable.Rows.RemoveAt(intJ)
                Exit For
            End If
        Next
    Next
    dTable.AcceptChanges()
    Return dTable
End Function
الرد
تم الشكر بواسطة:
#2
كود :
       Dim da As New OleDbDataAdapter()


       Dim dt As New DataTable()
       da.SelectCommand = New OleDbCommand("Select YourField,count(YourField) from YourTable order by YourField", cn)
       da.Fill(dt)
       Dim r As DataRow
       For Each r In dt.Rows
           if r.Item(1) = 0 then
'  افعل شيء ما                         الحققول الغير مكررة
              else
' الحقول المكررة                      افعل عسكه
           endif

       Next
السلام عليكم

حاول الكود التالي:
الرد
تم الشكر بواسطة: أسعد , محمد اسماعيل
#3
السلام عليكم

يمكنك استخدام
كود :
Select [item] from (
SELECT [item] , Case when Count ([item]) > 1 then 0 else Count ([item]) end as ItemC
 FROM [tst].[dbo].[Data]
 Group by [item]) Dt

 where dt.ItemC <> 0
الرد
تم الشكر بواسطة: أسعد , محمد اسماعيل
#4
(22-04-21, 06:43 PM)messry كتب :
كود :
       Dim da As New OleDbDataAdapter()


       Dim dt As New DataTable()
       da.SelectCommand = New OleDbCommand("Select YourField,count(YourField) from YourTable order by YourField", cn)
       da.Fill(dt)
       Dim r As DataRow
       For Each r In dt.Rows
           if r.Item(1) = 0 then
'  افعل شيء ما                         الحققول الغير مكررة
              else
' الحقول المكررة                      افعل عسكه
           endif

       Next
السلام عليكم

حاول الكود التالي:

(23-04-21, 08:16 AM)d3vc0d كتب : السلام عليكم

يمكنك استخدام
كود :
Select [item] from (
SELECT [item] , Case when Count ([item]) > 1 then 0 else Count ([item]) end as ItemC
 FROM [tst].[dbo].[Data]
 Group by [item]) Dt

 where dt.ItemC <> 0

كل الشكرل لكم علي المساعدة 
تم الحل انشاء الله
الرد
تم الشكر بواسطة: أسعد


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [SQL] اختيار سجل محدد من الجدول على أساس ترتيبه mmaalmesry 2 110 20-09-21, 08:25 AM
آخر رد: mmaalmesry
  سؤال بخصوص حفظ التاريخ في قاعدة البيانات من نوع mysql 3loosh44 2 100 19-09-21, 08:47 PM
آخر رد: 3loosh44
  عرض البيانات من الداتا قريد فيو الى الادوات aftfm 7 316 28-08-21, 10:50 PM
آخر رد: aftfm
  تصدير البيانات من نوع جديد اليوم السابع 3 669 18-08-21, 09:37 PM
آخر رد: يونس علي
  كيف يتم ملئ خلية فى الداتا جريد فيو بناء على اختيار قيمة خلية اخرى عبارة عن كومبو بوك talatm 1 189 14-08-21, 08:27 PM
آخر رد: اسامه الهرماوي
  جلب البيانات من جدول مع اجراء عمليات حسابية - تعديل الكود momani33 7 353 14-08-21, 09:34 AM
آخر رد: ابو انس
  [VB.NET] محتاج كود دمج بيانات مكررة amtkurdi 2 323 29-07-21, 07:23 AM
آخر رد: amtkurdi
Exclamation كيفية ربط قواعد البيانات mysql ب فيجوال بيسك دوت نت Yasser_Abuelhassab 1 317 25-07-21, 02:31 AM
آخر رد: ابو انس
  [سؤال] مشكلة Provider للاتصال بقاعدة البيانات نيمو 3 343 22-07-21, 09:59 PM
آخر رد: نيمو
  الاستعلام عن البيانات في عام محدد aftfm 2 359 18-07-21, 02:10 PM
آخر رد: abomo3ath

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


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