VB中如何过滤掉数据库中的重复数据，只显示一个

张三，男，110

张三，男，110

首先这样的数据

在数据库中是不允许存在的

因为没有意义

没有主键

你在数据库中删除

会出现错误

根据你的补充

你有主键

比如ID

你想不重复的取得

Name

+

Phone

字段

如果只需要这3列

select

name,gender,phone

from

table_1

group

by

name,gender,phone

如果不仅仅要这3列

而是和其他列一起显示

(注

只能取第一个主键内容了

)

select

min(id)

as

id

,name,gender,phone

from

table_1

group

byname,gender,phone

如果除了ID

还有其他列

就连接到上面的得到的这个表就好了

这应该是最简单的方法了

Private Sub Command1_Click()

Dim s1, s2, s3

For Each s1 In Split(Text1, vbCrLf)

If InStr(vbCrLf &s2 &vbCrLf, vbCrLf &s1 &vbCrLf) = 0 Then

s2 = s2 &vbCrLf &s1

Else

s3 = s3 &vbCrLf &s1

End If

Next

Text2 = Mid(s2, 3)

Text3 = Mid(s3, 3)

End Sub

'加一个文本框,把原始数据输入文本框中

Private Sub Command1_Click()

Dim a As Integer, myTempStr As String, myOutput As String

For a = 1 To Len(Text1.Text)

myTempStr = Mid(Text1.Text, a, 1)

If InStr(1, myOutput, myTempStr) = 0 Then myOutput = myOutput &myTempStr

Next

MsgBox myOutput

End Sub

---