Question

rst.Open sql, cnn, adOpenKeyset, adLockOptimistic为什么执行到这块就提示连接无法用于执行此操作

错了错了 没弄好 是这个代码
RsLoginCheck.Open StrSQL, DBCON, adOpenKeyset, adLockPessimistic, adCmdText
其中RsLoginCheck和StrSQL 是我自己定义的

Answer 1

Dim cnn As ADODB.connection
Set cnn = New ADODB.connection
cnn.ConnectionString = "provider=sqloledb.1;persist security info=false;user id=sa;initial catalog=table;data source=192.168.1.1;pwd="
cnn.Open
cnn.CursorLocation = adUseClient
要先将cnn初始化的
如果已经初始化过了要先关闭
If rst.State = adStateOpen Then rst.Close
再初始化

追问

已经打开了，还是不行

追答

全部代码贴出来看下

追问

If UserName Empty And PassWord Empty Then '用户名与密码是否为空
StrSQL = "select 用户名称,用户口令,用户权限 from 管理用户 where 用户名称= '" & UserName & "'and 用户口令 ='" & PassWord & "'"
If RsLoginCheck.State = adStateClosed Then
RsLoginCheck.Open StrSQL, DBCON, adOpenKeyset, adLockPessimistic, adCmdText '打开记录集
End If

Answer 2

你的cnn有没有打开呢？

追问

已经打开了，可是还是出现一样的错误

追答

看看你的连接代码？或者你试试：
RsLoginCheck.Open StrSQL, DBCON, 3,2看看

追问

用你上面的代码还是不行
DBCON.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\data.mdb;Persist Security Info=False" '数据库连接语句
DBCON.Open '打开数据库
链接代码就这两句

追答

把Persist Security Info=False这个去掉试试。
还有你看看你的数据库地址是不是正确的。