为登录界面新增用户 运行时报错：对象变量或with块变量未设置

Question

Private Sub Command1_Click() rs.MoveFirst
 rs.Find "用户名 like '" & Text1 & "'" If Text1.Text = "" Then
     MsgBox "请输入用户名", 48, "信息提示"
     Text1.SetFocus
 Else
     If UCase(Text1.Text) = UCase(rs("用户名")) Then
         MsgBox "用户名已存在", 48, "警告提示"
         Text1.Text = ""
         Text1.SetFocus
     Else
         If Text2.Text = "" Then
             MsgBox "请输入密码", 48, "信息提示"
             Text2.SetFocus
         Else
             If Text3.Text <> Text2.Text Then
                 MsgBox "密码与确认密码不符", 48, "信息提示"
                 Text2.Text = ""
                 Text3.Text = ""
                 Text2.SetFocus
                 SendKeys "{Home}+{End}"
             Else
                 If Combo1.Text = "" Then
                     MsgBox "请您选择权限", 48, "信息提示"
                     Combo1.SetFocus
                 Else
                     If (login.Combo1 = "高级用户") And (Combo1 <> "普通用户") Then
                         MsgBox "您只能添加普通用户", 48, "信息提示"
                         Combo1.SetFocus
                     Else
                     If rs.EOF = False Then
                         rs.AddNew
                         rs("用户名") = Text1.Text
                         rs("密码") = Text2.Text
                         rs("权限") = Combo1.Text
                         rs.Update
                         MsgBox "添加成功", 64, "信息提示"
                         Text1.Text = ""
                         Text2.Text = ""
                         Text3.Text = ""
                         Text1.SetFocus
                    End If
                 End If
             End If
         End If
     End If
 End If
End If
End SubPrivate Sub Command2_Click()
 Unload Me
End SubPrivate Sub Form_Load() On Error GoTo Err
 
 rs.MoveFirst
 
 
 Set rs = New ADODB.Recordset
 rs.CursorLocation = adUseClient
 rs.Open "select * from 用户", cnn1, 1, 3
 Set chexing.DataGrid1.DataSource = rs 
Err:
 If Err.Number = 3021 Then
     logininfo = 0
 Else: logininfo = 1
 End IfEnd Sub
rs.MoveFirst 处报错 数据库已连接
我查不出来哪有错 请各位大虾帮帮忙

Answer 1

这不是SQL语句的问题，是你的应用程序有问题，VB.NET？

Answer 2

你必须在工程中添加一个数据环境,在form load事件中添加下列代码才能算是连接:
dim server string,pwd string,db string
string=服务器名
pwd=登录密码
db=数据库名
On Error GoTo ErrorHandler
    Set myConn = New ADODB.Connection
    
    '设置连接
    myConn.ConnectionString = "driver={SQL Server};" & _
    "server=" & Server & ";uid=sa;pwd=" & pwd & ";database=" & db
    myConn.Open
    '连接成功
'这里添加获得数据的语句    Exit SubErrorHandler:
    MsgBox "连接出错，请检查服务器名及密码是否正确。", vbOKOnly, "连接错误"

Answer 3

你在设置记录集对象 rs 之前就调用 rs.movefirst了,怎么可能不出错!

Answer 4

已经有这些代码了 也连上了 只不过那个是在另一个名叫login的窗体中显示的 那里面不存在我要解决的问题 所以没贴出来

Answer 5

可是错误不是在这儿出的 我分步调试了 错误出在click里

Answer 6

那你的错误就是在这个窗体的 load 事件里,在设置 set rs=.... 前的那句
rs.movefirst
有错了.而不是 Command1_click事件中的语句错.

Answer 7

在 set rs=...之前如果已经打开过 rs (假设你可以进行 rs.movefirst),那一定要先 rs.close 才能再重新 set ,否则肯定会出错.

Answer 8

我把load里的rs.movefirst删了 但是出现： 对象关闭时 不允许操作 我确定我没有关闭记录或者连接