UC知道大家帮助看看这段vb代码哪里错了
来源：百度知道 编辑：UC知道 时间：2024/05/27 01:09:14
Private Sub Command1_Click()
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\db1.mdb"
conn.Open
rs.Open "select 半径 from 表1"
rs.MoveFirst
Dim i As Integer
i = 1
Do While Not rs.EOF
rs.Fields(2).Value = rs.Fields(1).Value * 3.14
rs.MoveNext
i = i + 1
Loop
rs.Close
End Sub
运行结果是连接无法执行此操作，在此上下文中，他可能以被关闭，或无效
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\db1.mdb"
conn.Open
rs.Open "select 半径 from 表1"
rs.MoveFirst
Dim i As Integer
i = 1
Do While Not rs.EOF
rs.Fields(2).Value = rs.Fields(1).Value * 3.14
rs.MoveNext
i = i + 1
Loop
rs.Close
End Sub
运行结果是连接无法执行此操作，在此上下文中，他可能以被关闭，或无效
您好,很高兴能帮助您一起解决问题。
我已经将修改好的代码写了出来。
Private Sub Command1_Click()
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\db1.mdb"
conn.Open
rs.Open "select 半径 from 表1" ,conn
rs.MoveFirst
Dim i As Integer
i = 1
Do While Not rs.EOF
rs.Fields(2).Value = rs.Fields(1).Value * 3.14
rs.MoveNext
i = i + 1
Loop
rs.Close
End Sub
希望我的回答能够帮助到您。
rs.Open "select 半径 from 表1"
改
rs.Open "select 半径 from 表1" ,conn
你设记录集所指向的连接库。
改一下rs.Open "select 半径 from 表1" , conn,adOpenDynamic, adLockPessimistic
Private Sub Command1_Click()
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\db1.mdb"
conn.O