vb数据库问题

Question

Dim Conn As ADODB.Connection
Dim Connres As ADODB.Recordset
Set Conn = New ADODB.Connection
Set Connres = New ADODB.Recordset
Conn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=zhongyuan;Data Source=" & Trim(Server)
Conn.ConnectionTimeout = 10
Conn.Open
Connres.Open "select DISTINCT nr from mxb", Conn, adOpenStatic, adLockPessimistic
If Connres.RecordCount = 0 Then Exit Sub
Connres.Open "select DISTINCT nr from mxb", Conn, adOpenStatic, adLockPessimistic就是这句我使用DISTINCT消除重复键会使的Connres.RecordCount=-1，而如果不加DISTINCT则没有问题，求解

Answer 1

Connres.Open "SELECT COUNT(nr) AS NUMS from mxb", Conn, adOpenStatic, adLockPessimisticIf Connres!NUMS = 0 Then Exit Sub
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
学习技巧与源码下载站：
http://www.j2soft.cn/
http://j2soft.008.net/

Answer 2

我好象不是你写的那个意思,我是要取出mxb表中字段nr不重复的记录

Answer 3

Dim Conn As ADODB.Connection
Dim Connres As ADODB.Recordset
Set Conn = New ADODB.Connection
Set Connres = New ADODB.Recordset
Conn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=zhongyuan;Data Source=" & Trim(Server)
Conn.ConnectionTimeout = 10
cOnn.CursorLocation = adUseClient'设为客户端游标
Conn.Open
Connres.Open "select DISTINCT nr from mxb", Conn, adOpenStatic, adLockPessimistic
If Connres.RecordCount = 0 Then Exit Sub