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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] حل مشكلة الاتصال بقواعد البيانات access loay775 2 158 25-02-24, 06:29 AM
آخر رد: loay775
  سؤال عن عملية حذف سجل من قاعدة البيانات assuhimi 3 249 11-02-24, 08:43 PM
آخر رد: assuhimi
  [VB.NET] منع تكرار البيانات في عند الادخال مبرمج صغير 1 2 255 24-01-24, 05:18 PM
آخر رد: مبرمج صغير 1
  [VB.NET] مساعدة في استدعاء البيانات معينه من form الأول إلى form 2 بدون التعديل loay775 2 275 18-01-24, 05:04 PM
آخر رد: loay775
  [VB.NET] إعادة استدعاء البيانات من قاعدة بيانات اكسس والاهم الصورة مبرمج صغير 1 1 273 13-01-24, 01:17 PM
آخر رد: مبرمج صغير 1
  [كود] اريد كود إرسال البيانات من الفيجوال بيسك إلىPDF issamsaidd 10 5,829 25-12-23, 06:30 PM
آخر رد: الحزين اليماني
  جملة الاتصال بقاعدة البيانات اكسس محمد خيري 4 364 12-12-23, 03:14 AM
آخر رد: محمد خيري
  كود الاتصال بقاعدة البيانات sqlserver strongriseman 2 421 29-11-23, 09:25 PM
آخر رد: العتيق
Heart [VB.NET] كيفية جعل الدتاجريديد فيو تظهر عندما تكون قاعدة البيانات فارغه الحزين اليماني 1 371 22-11-23, 05:31 PM
آخر رد: justforit
  الحفاظ على خصائص قاعدة البيانات عند النقل strongriseman 0 280 19-11-23, 12:28 PM
آخر رد: strongriseman

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


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