Question

为什么我的RecordCount的值老是0，我连接的是SQL数据库，里面也有记录，但相同记录在VB中输入却返回0值！

RT，以下是本人的一段代码：
Private Sub Command1_Click()
If Len(Text1.Text) > 0 Then
Dim sqlstr As String
sqlstr = "select * from loginaccount where user='" & Text1.Text & "'"
rs.Open sqlstr, cn, adOpenDynamic, adLockOptimistic
If rs.RecordCount > 0 Then
If Text2.Text = Trim(rs.Fields(1).Value) Then
frmmain.Show
Unload Me
Else
MsgBox ("密码错误")
End If
Else
MsgBox ("没有此用户")
End If
rs.Close
Else
MsgBox ("请输入用户")
End If
End Sub
刚开始以为RecordCount返回的是-1值，但后来才发现，不管怎么输入，得到的都是0值，这是为什么？？？求教了！

Answer 1

你可以在sql中调试一下这个sql语句，看看结果：
select * from loginaccount where user='Text1中的输入值'

追问

不行哇……

追答

光说不行，无法解决。

Answer 2

rs.Open sqlstr, cn, adOpenDynamic, adLockOptimistic
前面加上
set rs=server.CreateObject("adodb.recordset")

追问

大哥，谢谢你帮忙了，但是加上后得到的是：“实时错误'424' 要求对象”的提示框，并且调试后选择显示的就是加上去的这条代码……
这又该怎么办？？？
帮下忙，弄好了再加50分
感激不尽了

追答

你是VB啊，改成Set rs = New Adodb.Recordset试试

追问

呃，这下又成了RecordCount =-1了，请问现在又怎么办？？？

追答

rs.Open sqlstr, cn, 1,1

追问

呃，抱歉哇，它又变回0值去了……

Answer 3

cn是你的connection吧，在cn 打开(open)之前要设置：cn.CursorLocation = adUseClient

追问

还是不行……

追答

之前没注意到你的rs
除了cn.CursorLocation = adUseClient 外，还有
rs.CursorLocation = adUseClient
再：
rs.Open sqlstr, cn, adOpenKeyset, adLockOptimistic '是adOpenKeyset而不是adOpenDynamic

Answer 4

Dim rs As New ADODB.Recordset
你的rs未定义啊

追问

并不是未定义，这里是过程模块，在标准模块中已经全部定义了……