24-04-21, 06:23 AM
(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
كل الشكرل لكم علي المساعدة
تم الحل انشاء الله
