help:错误"3709"连接无法用于执行此操作。在此上下文中它可能已被关闭或无效。

[yyzzkey]

Private Sub Command1_Click()
Dim sql As String
Dim rs_adduser As New ADODB.Recordset
If Trim(Text1.Text) = "" Then
MsgBox "用户名不能为空", vbOKOnly + vbExclamation, ""
Exit Sub
Text1.SetFocus
Else
sql = "select*from 理财系统管理"
rs_adduser.Open sql, conn, adOpenKeyset, adLockPessimistic
While (rs_adduser.EOF = False)
If Trim(rs_adduser.Fields(0)) = Trim(Text1.Text) Then
MsgBox "已经有这个用户", vbOKOnly + vbExclamation, ""
Text1.SetFocus
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Combo1.Text = ""
Exit Sub
Else
rs_adduser.MoveNext
End If
Wend
If Trim(Text2.Text) <> Trim(Text3.Text) Then
MsgBox "；两次密码不一样", vbOKOnly + vbExclamation, ""
Text2.SetFocus
Text2.Text = ""
Text3.Text = ""
Exit Sub
ElseIf Trim(Combo1.Text) <> "system" And Trim(comb1.Text) <> "gust" Then
MsgBox "请选择正确的用户权限", vbOKOnly + vbExclamation, ""
Combo1.SetFocus
Combo1.Text = ""
Exit Sub
Else
rs_adduser.AddNew
rs_adduser.Fields(0) = Text1.Text
rs_adduser.Fields(1) = Text2.Text
rs_adduser.Fields(2) = Combo1.Text
rs_adduser.Update
rs_adduser.Close
MsgBox "添加用户成功", vbOKOnly + vbExclamation, ""
Unload Me
End If
End If


End Sub


Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Form_Load()
Combo1.AddItem "system"
Combo1.AddItem "guest"
End Sub

help:错误"3709"连接无法用于执行此操作。在此上下文中它可能已被关闭或无效。

而且调试的时候语句跳到：
rs_adduser.Open sql, conn, adOpenKeyset, adLockPessimistic
我的数据库是建好了的：用户名：密码：权限：
　　　谢谢ＶＢ高手看看

[xiaolei1982]

你确信你和数据库的连接是好的？
Dim Conn As New ADODB.Connection
strcon = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Password=sa;Initial Catalog=supplychain;Data Source=192.168.10.250"
conn.CursorLocation = adUseClient
conn.Open strcon

[yyzzkey]

我用的是ＡＣＣＥＳＳ数据库：只要建立好连好后就没什么了不？

[xiaolei1982]

建立好了应该没有问题了，你找找连接access例子和sql不大一样，手头没有现成的，
从网上找找看，很多的

[yyzzkey]

我是一个在网上生活的人:什么问题都是先找一下?我在网上也找到这个问题?
但没有解决:我估计也是数据库的问题.我刚开学学习也不知道问题错在哪里?

[xiaolei1982]

这个例子对你说过了，你rs已经失效了再添加可能出现错误，建议楼主不要用rs的方法添加数据
利用sql的insert操作效率高

[xiaolei1982]

还有楼主进行添加纪录和更新操作后的rs.close操作去掉试试