Question

VB中连接Access时提示连接无法用于执行此操作，在此上下文中可能已被关闭或无效。

Dim cnn As New ADODB.Connection
Dim rs As New ADODB.Recordset

Private Sub Command1_Click()
Dim rs1 As New ADODB.Recordset
If Text1(0) = "" Then
MsgBox "用户名不得为空！"
Text1(0).SetFocus
Exit Sub
End If
rs1.CursorLocation = adUseClient
rs1.Open "select * from 摄影师用户信息 where 用户名=trim('" & Text1(0) & "')", cnn, adOpenDynamic, adLockOptimistic
If rs1.RecordCount <> 0 Then
MsgBox "该用户名已被注册，请更换新的用户名！"
Text1(0).SetFocus
rs1.Close
Exit Sub
End If
If Text1(1) = "" Then
MsgBox "密码不得为空！"
Text1(1).SetFocus
Exit Sub
End If
If Len(Text1(1)) <> 6 Then
MsgBox "请注意，密码长度必须是6位！"
Exit Sub
End If
If Text1(2) = "" Then
MsgBox "确认密码不得为空！"
Exit Sub
End If
If Text1(2) <> Text1(1) Then
MsgBox "对不起，确认密码与密码不一致，请重新输入！"
Text1(2).SetFocus
Exit Sub
End If
rs.CursorLocation = adUseClient
rs.Open "select * from 摄影师用户信息", cnn, adOpenDynamic, adLockOptimistic
rs.AddNew
rs.Fields("用户名") = Text1(0).Text
rs.Fields("密码") = Text1(2).Text
rs.Fields("微信号") = Text1(5).Text
rs.Fields("联系电话") = Text1(6).Text
rs.Fields("摄影风格") = Text1(7).Text
If Option1.Value = True Then
rs.Fields("性别") = "男"
ElseIf Option2.Value = True Then
rs.Fields("性别") = "女"
End If
rs.Update
MsgBox "注册成功！您的账号名为" & Text1(0)
rs.Close
cnn.Close
End Sub

Private Sub Command2_Click()
注册.Hide
Form1.Show
End Sub
我删去rs1.close也没用，vb是刚学，啥也不懂，代码是别人的

Answer 1

从代码来看，你的cnn尚未与数据库建立连接，也就是说你这个“摄影师用户信息”数据表究竟是在哪个ACCESS数据库文件（.mdb文件）中的呢？你这样没交代就直接查询，VB肯定就蒙圈啦。如果代码是复制别人的，而别人能运行，那么你就要完整复制别人的代码，最好是整个工程打包复制。

追问

但是我如果加入一行cnn打开数据库，就会出现重复打开的提示...在别的地方可以怎么连接Access数据库文件呢？

追答

你的代码应该没有全部列出来吧？