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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  نموذج عرض السيرفرات وطريقة الاتصال وقاعدة البيانات Mohammed Nafa 5 148 15-05-21, 03:51 AM
آخر رد: asemshahen5
Exclamation [VB.NET] فكرة برمجية لنقل أسطر قاعدة البيانات بشكل مستمر sniperjawadino 2 159 13-05-21, 08:32 PM
آخر رد: sniperjawadino
  [VB.NET] اريد عرض اسماء الجداول من قاعدة البيانات سكوال سيرفرس alsaab120 2 144 07-05-21, 01:45 AM
آخر رد: alsaab120
  [VB.NET] تصدير الداتاتابل لملف نصي محمد اسماعيل 1 138 07-05-21, 12:58 AM
آخر رد: ابو انس
  عرض البيانات داخل التاتا جرد فيو بطريقة جداول متداخلة moahmed.abdelmohsen 6 290 30-04-21, 05:17 PM
آخر رد: mrfenix93
  المساعده في عرض البيانات moahmed.abdelmohsen 4 238 30-04-21, 03:11 PM
آخر رد: ابو انس
  [VB.NET] مطلوب كود يختص بحفظ البيانات Ayat.B.H 1 144 28-04-21, 07:45 AM
آخر رد: messry
  كيف يتم تعديل البيانات بين تاريخين في sql جيولوجي مبتدئ 3 227 28-04-21, 03:50 AM
آخر رد: جيولوجي مبتدئ
  [VB.NET] استعلام متقدم لعرض البيانات بالداتاجريد فيو محمد اسماعيل 4 270 27-04-21, 04:26 PM
آخر رد: messry
  [VB.NET] الكود المكافئ لعرض أسماء الجداول فى قاعدة البيانات mmaalmesry 4 379 23-04-21, 08:30 AM
آخر رد: d3vc0d

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


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