查看完整版本: 实时错误 '-2147217887 (80040e21)':多步操作产生错误。请检查每一步的状态值。

实时错误 '-2147217887 (80040e21)':多步操作产生错误。请检查每一步的状态值。

本人所用数据库：ORACLE9i
功能：点击新增按钮，填写信息，再点击保存。
          但点击保存后出现错误：[font=宋体][size=10.5pt]实时错误[/size][/font][size=10.5pt] '-2147217887 (80040e21)':[/size][font=宋体][size=10.5pt]多步操作产生错误。请检查每一步的状态值。[/size][/font]
[font=宋体][size=10.5pt]代码如下：[/size][/font]
[font=宋体][size=10.5pt]Dim Conn As New ADODB.Connection  '连接变量
Dim Connstring As String           '连接字符串
Dim RS1 As New ADODB.Recordset    '记录集变量
Dim bm  '定义一个变量用来存放添加记录时原来记录的位置
Dim tj As Boolean
Private Sub Form_Load()
C
    With Conn
     .ConnectionString = Connstring
     .ConnectionTimeout = 10
     .Open
    End With
RS1.CursorType = adOpenDynamic
RS1.CursorLocation = adUseClient
RS1.LockType = adLockOptimistic
RS1.Open "加班记录表", Conn, adOpenForwardOnly, , adCmdTable
Adodc1.Visible = False
End Sub
Private Sub Command1_Click() '新增加班
   bm = Adodc1.Recordset.Bookmark   '用书签记下当前记录位置
   Adodc1.Recordset.AddNew   '调用AddNew方法增加新记录
   tj = True  '是添加新记录
   Command1.Enabled = True
   Command2.Enabled = True
   Command4.Enabled = True
   Command5.Enabled = True
   Command6.Enabled = True
   Command7.Enabled = True
End Sub
Private Sub Command7_Click() '保存
  [color=red]Adodc1.Recordset.Update    '调用Update方法保存[/color]
  Adodc1.Refresh
  MsgBox ("保存成功") '给出保存成功提示
End Sub

出现错误代码是[color=red]红色部分！[/color][/size][/font]

RS1.Open "加班记录表", Conn, adOpenForwardOnly, , adCmdTable
这里错误
你用RS1打开的表，却用Adodc1.Recordset操作，肯定出问题
打开表的时候直接操作Adodc1.Recordset吧