Question

vb 连接无法用于执行此操作 在此上下文中它可能已经被关闭

Dim l() As String, m() As String, n() As String
Dim X As String, Y As String, Z As String
X = Text2.Text
l = Split(X, ",")

Y = Text3.Text
m = Split(Y, ",")

Z = Text4.Text
n = Split(Z, ",")

Dim rs_e As New ADODB.Recordset
Dim conn As ADODB.Connection
Dim Sql As String
Dim Sq As String
Set conn = New ADODB.Connection
Sql = "select * from 指标信息 where 产品名称='" & Trim(Text1.Text) & "' and 评价指标='" & l(0) & "'"
rs_e.Open Sql, conn, adOpenStatic, adLockOptimistic

' Sql = "select*from 指标信息"
rs_e.Fields(2) = m(0) & ""
rs_e.Fields(3) = n(0) & ""
rs_e.Update
MsgBox "修改 cheng gong"

Answer 1

在rs_e.Open Sql, conn, adOpenStatic, adLockOptimistic上面添加这句
conn.open '打开数据库连接

追问

不行啊 还是不行