تقييم الموضوع :
  • 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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيف اجعل Autoscroll هي التي تزيد عدد الصفوف في عرض البيانات عبدالكريم برشدان 1 143 07-08-22, 02:55 PM
آخر رد: asmarsou
  مساعدة في حل لمشكله الخطأ عند محاولة الاتصال ونسيان اختيار البورت mohamedallams 7 312 30-07-22, 10:17 PM
آخر رد: asmarsou
  قراءة البيانات من برنامج البصمة strongriseman 2 189 29-07-22, 02:23 AM
آخر رد: ابراهيم ايبو
  [VB.NET] ربط قاعدة البيانات um_noor20 3 195 27-07-22, 11:00 AM
آخر رد: أبو خالد الشكري
  [سؤال] عايز كود عرض اسماء الجداول من قاعد البيانات الي ليست بوكس حسن الجلب 1 145 23-07-22, 08:53 PM
آخر رد: سعود
  [سؤال] عدم ظهور البيانات نهى علي 10 298 19-07-22, 10:57 PM
آخر رد: ابراهيم ايبو
  هل هي احداث مكررة ام ماذا closed and form_closed سعود 4 211 17-07-22, 02:59 AM
آخر رد: سعود
  لا توجد امكانية اختيار splshscreen سعود 0 133 15-07-22, 07:22 AM
آخر رد: سعود
Lightbulb *○● قراءة نوع البيانات Data Type من قاعدة البيانات ●○* أبو خالد الشكري 10 424 29-06-22, 11:51 PM
آخر رد: أبو خالد الشكري
  مشكلة الكومبو بوكس واستدعاء البيانات mohamedassim 1 265 28-06-22, 10:22 PM
آخر رد: معاند الحظ

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


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