Question

提示错误“连接无法用于执行此操作。再此上下文中可能已被关闭或者无效”

提示错误“连接无法用于执行此操作。再此上下文中可能已被关闭或者无效”调试代码指向 rs_login.Open sql, conn, adOpenKeyset, adLockPessimistic

Private Sub Command1_Click()
Dim sql As String
Dim conn As New ADODB.Connection
Dim rs_login As New ADODB.Recordset
If Trim(Text1.Text) = "" Then
MsgBox "用户名不能为空，请重新输入！", vbOKOnly + vbExclamation, "错误"
Text1.SetFocus
Else
sql = "select * from yqgl where user_info= '" & Text1.Text & "'"
rs_login.Open sql, conn, adOpenKeyset, adLockPessimistic
If rs_login.EOF = True Then
MsgBox "用户名不存在，请重新输入！", vbOKOnly + vbExclamation, "错误"
Text1 = ""
Text1.SetFocus
Else
If Trim(rs_login.Fields(1)) = Trim(Text2) Then
rs_login.Close
Unload Me
Form2.Show
Else
MsgBox "密码错误，请重新输入！", vbOKOnly + vbExclamation, "错误"
Text2.SetFocus
End If
End If
End If
End Sub
Private Sub Command2_Click()
MsgBox "您已成功退出！", vbOKOnly + vbExclamation, "提示"
Unload Me

End Sub

Private Sub Form_Load()
Dim conn As New ADODB.Connection
Dim connectionstring As String
connectionstring = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & "D:\用户登录\yqgl.mdb;Persist Security Info=False"
conn.Open connectionstring

End Sub

Answer 1

提示错误“连接无法用于执行此操作。再此上下文中可能已被关闭或者无效”
你找到edit目录下的include目录下的Startup.asp这个文件，然后把下面的代码复制替换掉里面的代码； <%@ Language=VBScript CODEPAGE=936%>
<% Option Explicit %>
<%' ============================================
' 常用全局变量
' ============================================
' 数据库对象
Dim oConn, oRs, sSql
' ============================================
' 初始数据处理
' ============================================
' 执行每天只需处理一次的事件
'Call BrandNewDay()' 初始化数据库连接
'Call DBConnBegin()
' ********************************************
' 以下为初始函数
' ********************************************
' ============================================
' 执行每天只需处理一次的事件
' ============================================
Sub BrandNewDay()
Dim sDate, y, m, d, w
Dim sDateChinese
sDate = Date()
If Application("date_today") = sDate Then Exit Sub y = CStr(Year(sDate))
m = CStr(Month(sDate))
If Len(m) = 1 Then m = "0" & m
d = CStr(Day(sDate))
If Len(d) = 1 Then d = "0" & d
w = WeekdayName(Weekday(sDate))
sDateChinese = y & "年" & m & "月" & d & "日 " & w Application.Lock
Application("date_today") = sDate
Application("date_chinese") = sDateChinese '今天的中文样式
Application.Unlock
End Sub ' ***************************************