Question

VB连接SQL出现“实时错误3704，对象关闭时，不允许操作”的错误？

代码如下：连接数据库：Public Function ConnectToDB() As Boolean On Error GoTo err 'sqlserver2000 数据库 conn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=true;User ID=sa;PassWord=;Initial Catalog=职工考勤管理;Data Source=192.168.0.187" conn.ConnectionTimeout = 10 conn.Open If conn.State = 1 Then ConnectToDB = True Else ConnectToDB = False End If Exit Functionerr: MsgBox err.Description ConnectToDB = FalseEnd Function '关闭连接Public Function DisConnect() As Boolean If conn.State = 1 Then conn.Close End If DisConnect = TrueEnd Function2，登录界面Function DoUserLogin(ByVal p_strUserName As String, ByVal p_strPassword As String, ByVal p_frmUserLogin As Form) As USERLOGIN '判断数据库是否连接失败,ConnectToDB()在模块中 If ConnectToDB() = False Then MsgBox "数据库连接失败!" DoUserLogin = LOGERROR Else If p_strUserName = "" Or p_strPassword = "" Then MsgBox "用户名或密码不能为空!", vbOKOnly + vbExclamation, "用户登录" DoUserLogin = LOGERROR Else strSql = "select * from TUser where username='" & p_strUserName & "'" Set rsUser = QueryData(strSql） If rsUser.EOF = True Then运行到这里就出现错误提示了，求高手解答

Answer 1

strSql = "select * from TUser where username='" & p_strUserName & "'"
Set rsUser = QueryData(strSql)
If rsUser.EOF = True Then '运行到这里就出现错误提示了，求高手解答

在此句的前面的这个函数中没有发现连接数据库的语句，数据库没有连接，当然是对象是关闭的。

追问

那请问一下。怎么连接呢？我能加你Q吗

追答

8672-355-13,可以，SQL连接其实也不难。