jaqinchen 2019-12-14 17:47 采纳率: 0%
浏览 196

新手vb 6.0+sql 2012做登录界面 实时错误'3704:对象关闭时,不允许操作'?,应该怎么调试

```Private Sub Form_Load()

Dim conn As New ADODB.connection

Dim connectionstring As String

connectionstring = "provider=sqloledb.1;user id=sa;password=123456;data source=(local);marketing systemtest"

conn.Open connectionstring

End Sub

Private Sub Command1_Click()

Dim sql As String

Dim conn As New ADODB.connection

Dim rs_login As New ADODB.Recordset

If Trim(Text1.Text) = "" Then

MsgBox "用户名不能为空!", vbOKOnly + vbExclamation, "错误"

Text1.SetFocus

Else

   sql = "select * from test where test_info ='" & Text1.Text & "'"
   If rs_login.EOF = True Then
          MsgBox "用户不存在,请重新输入!", vbOKOnly + vbExclamation, "错误"
          Text1 = ""
          Text1.SetFocus
   Else
          If Trim(rs_login.fields(1)) = Trim(Text2) Then
          rs_login.Close
          Unload Me
          Form2.Show
          Else
            MsgBox "密码错误!", vbOKOnly + vbExclamation, "错误"
            Text2.SetFocus
          End If
   End If

End If

End Sub

图片说明

  • 写回答

1条回答 默认 最新

  • threenewbee 2019-12-15 00:07
    关注

    conn.open
    rs_login.open sql, conn
    这些都没有调用
    因为你form_load和command里面的conn re_login都是局部变量,互相没有关系

    评论

报告相同问题?

悬赏问题

  • ¥15 求差集那个函数有问题,有无佬可以解决
  • ¥15 MATLAB动图问题
  • ¥15 【提问】基于Invest的水源涵养
  • ¥20 微信网友居然可以通过vx号找到我绑的手机号
  • ¥15 寻一个支付宝扫码远程授权登录的软件助手app
  • ¥15 解riccati方程组
  • ¥15 display:none;样式在嵌套结构中的已设置了display样式的元素上不起作用?
  • ¥15 使用rabbitMQ 消息队列作为url源进行多线程爬取时,总有几个url没有处理的问题。
  • ¥15 Ubuntu在安装序列比对软件STAR时出现报错如何解决
  • ¥50 树莓派安卓APK系统签名