
正文
vb.net去重复 vba 去重复
提示:扫一扫查出行【扫一扫了解最新限行尾号】
复制提示
vb.net 删除数据库中重复数据: 目前我的数据库有8000+数据 ,某一列有重复数据
1、首先得到一个第二列不重复的一个查询视图:
select 第二列 from 数据表 group by 第二列
2、将不需要的记录标记为删除:
for 从查询试图取一条记录A
select * from 数据表 where 第二列=记录A order by id
for
如果是第一个记录,跳过继续循环
否则更新第二列内容为“删除”
记录指针移到下一条记录
next
next
delete from 数据表 where 第二列=“删除”
相关问答
Q1: VB.Net去除数组中重复的字符的元素?
比如数组a。里面有5个值,其中有3个是重复的?
如果这样的话,很好办哦。
新建一个数组b,然后遍历要去除的数组a,
从a中把每一个都取出来,和新建的b里面的去比,如果有相同的,则不放入b,
否则就放入数组b,直到循环结束。
Q2: vb.net去掉重复数组怎么做?
Dim array1() As String
Dim array2() As Boolean
Dim i As Integer
Dim j As Integer
Dim str1 As String = "a,c,c,c,a,b,c,d,f,eee,eee"
array1 = Split(str1, ",")
str1 = ""
ReDim array2(UBound(array1))
For i = 0 To UBound(array1)
array2(i) = False
Next
For i = 0 To UBound(array1) - 1
If array2(i) = False Then
For j = i + 1 To UBound(array1)
If array1(i) = array1(j) And array2(j) = False Then
array2(j) = True
End If
Next j
End If
Next i
For i = 0 To UBound(array1)
If array2(i) = False Then
str1 = str1 array1(i) ","
End If
Next i
If str1 "" Then
str1 = Strings.Left(str1, Len(str1) - 1)
End If
vb.net去重复的介绍就聊到这里吧,感谢你花时间阅读本站内容,更多关于vba 去重复、vb.net去重复的信息别忘了在本站进行查找喔。







