数据库查找问题

Question

我连接到sql数据库后,如何查找数据(查找唯一的数据,也就是说把重复的去掉)
Dim cnn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim selStr As String
selStr = "select unique founds.year from founds"
cnn.Open "Driver={sql队server};server=localhost;uid=sa;pwd=sa;database=Example"
rs.Open selStr, cnn
i = 0
Do While Not rs.EOF
    i = i + 1
    rs.MoveNext
Loop
ReDim value(i - 1)
rs.MoveFirst
i = 0
Do While Not rs.EOF
    value(i) = rs!year
    i = i + 1
    rs.MoveNext
Loop
rs.Close
cnn.Close

Answer 1

selStr = "select distinct year from founds"

Answer 2

不需要这么复杂，查找不重复的数据用distinct关键字即可，如：Dim cnn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim selStr As String
dim i as integerselStr = "select distinct year from founds"
cnn.Open "Driver={sqlserver};server=localhost;uid=sa;pwd=sa;database=Example"rs.CursorLocation =adUseClient 
rs.Open selStr, cnn
ReDim value(rs.recordcount)
for i=0 to rs.recordcount
    value(i) = rs!year
    rs.MoveNext
Loop
rs.Close
cnn.Close

Answer 3

调用sql语句
sqlstr = "select distinct year from founds where 条件"

Answer 4

"select distinct year from founds where 条件"