Board logo

标题: [VB资源] 实时错误 '-2147217887 (80040e21)':多步操作产生错误。请检查每一步的状态值。 [打印本页]

作者: liangjunshr    时间: 2010-5-4 13:16     标题: 实时错误 '-2147217887 (80040e21)':多步操作产生错误。请检查每一步的状态值。

本人所用数据库:ORACLE9i
功能:点击新增按钮,填写信息,再点击保存。
          但点击保存后出现错误:实时错误 '-2147217887 (80040e21)':多步操作产生错误。请检查每一步的状态值。
代码如下:
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() '保存
  Adodc1.Recordset.Update    '调用Update方法保存
  Adodc1.Refresh
  MsgBox ("保存成功") '给出保存成功提示
End Sub

出现错误代码是红色部分!

作者: Nothing    时间: 2010-5-5 11:10

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




欢迎光临 编程开发论坛 (http://bbs.lihuasoft.net/) Powered by Discuz! 6.0.0