vb连接SQL数据库
近来用vb做数据库课程设计,由于对VB还不熟练遇到一个问题,望高手进来指教指教,不甚感激我再一个模块里边写了一个连接数据库的方法如下
Public Function ConnectString() As String
ConnectString = "FileDSN=dbmanpower.dsn;UID=;PWD="
End Function
Public Function ExecuteSQL(ByVal SQL As String, rst As ADODB.Recordset, Optional enableWrite As Boolean = True) As Boolean
Dim con As ADODB.Connection
On Error GoTo Execute_Error
Set con = New ADODB.Connection
con.Open ConnectString '打开数据库
Set rst = New ADODB.Recordset '定义数据集
If enableWrite Then '读写方式
rst.Open Trim$(SQL), con, adOpenStatic, adLockOptimistic
Else '只读方式
rst.Open Trim$(SQL), con, adOpenStatic, adLockReadOnly
End If
ExecuteSQL = True
con.Close '关闭数据库
Exit Function
Execute_Error:
ExecuteSQL = False
Exit Function
End Function
然后在一个窗体里边引用如下
...
txtsql = "select * from tbUser where UserId = '" & user & "'"
flag = Module1.ExecuteSQL(txtsql, rstlogin, False)
If rstlogin.EOF Then //rstlogin是ADODB.Recordset的一个对象
...
在运行时出现了如下的错误:
runtime error 3704
对象关闭时,不允许操作
请问是什么错误啊?我有点看不懂,怎样解决?
