vb编程出现了一个错误,不知道怎么办了,各位大虾帮帮忙

来源:百度知道 编辑:UC知道 时间:2024/09/23 06:51:11
有一段程序,代码如下:

txtSQL = "select * from student_Info "
Set mrc = ExecuteSQL(txtSQL, MsgText)

txtSQL = "select* from rail_info "
Set mrc1 = ExecuteSQL(txtSQL, MsgText)

txtSQL = "select * from temp_info"
Set mrc2 = ExecuteSQL(txtSQL, MsgText)

mrc2.AddNew

mrc2.Fields(0) = mrc.Fields(3)
mrc2.Fields(1) = mrc.Fields(1)
mrc2.Fields(2) = mrc.Fields(2)

txtSQL = "select * from rail_info where "
txtSQL = txtSQL & "checi='" & mrc2.Fields(2) & "'"
Set mrc1 = ExecuteSQL(txtSQL, MsgText)
mrc2.Fields(3) = mrc1.Fields(1)
mrc2.Fields(4) = mrc1.Fields(4)
mrc2.Fields(5) = mrc1.Fields(5)
mrc2.Fields(6) = mrc1.Fields(3)
mrc2.Fields(7) = mrc1.Fields(2)
mrc2.Update

系统提示:多步OLE DB操作产生错误。请检查每个OLE DB状

txtSQL = "select * from student_Info "
Set mrc = ExecuteSQL(txtSQL, MsgText)

txtSQL = "select* from rail_info "
Set mrc1 = ExecuteSQL(txtSQL, MsgText) 这里

txtSQL = "select * from temp_info"
Set mrc2 = ExecuteSQL(txtSQL, MsgText)

mrc2.AddNew

mrc2.Fields(0) = mrc.Fields(3)
mrc2.Fields(1) = mrc.Fields(1)
mrc2.Fields(2) = mrc.Fields(2)

txtSQL = "select * from rail_info where "
txtSQL = txtSQL & "checi='" & mrc2.Fields(2) & "'"
Set mrc1 = ExecuteSQL(txtSQL, MsgText) 这里
mrc2.Fields(3) = mrc1.Fields(1)
mrc2.Fields(4) = mrc1.Fields(4)
mrc2.Fields(5) = mrc1.Fields(5)
mrc2.Fields(6) = mrc1.Fields(3)
mrc2.Fields(7) = mrc1.Fields(2)
mrc2.Update
处理下

txtSQL = txtSQL & "checi='" & mrc2.Fields(2) & "'"
Set mrc1 = ExecuteSQL(txtSQL, MsgText)