红尘老师,ADO修改多条记录后保存(本地表改为服务器表问题)

sunny　发表于：2010-08-02 15:10:29 　

Dim rst As Object

    If MsgBox("是否保存批量排期操作?", vbQuestion + vbYesNo, "保存提示") = vbYes Then
        Set rst = CreateObject("ADODB.Recordset")
        rst.CursorLocation = adUseClient
        rst.Open "排期表1", CurrentProject.Connection, adOpenKeyset, adLockBatchOptimistic, adCmdTable

'换成下面红色这句出错
'rst.Open "排期表", tcnndb, adOpenKeyset, adLockBatchOptimistic, adCmdTable

        With Me.子窗体_排期表.Form.Recordset
            If .RecordCount > 0 Then .MoveFirst
            Do Until .EOF
                    rst.Find "[pqid] = " & !pqid
                 If rst.RecordCount > 0 Then
                    rst!预计加工日期 = !预计加工日期
                    rst!预计完成日期 = !预计完成日期
                    rst!模号 = !模号
                    rst!注塑机 = !注塑机
                    rst!备注 = !备注
                    rst.Update
                End If
                .MoveNext
            Loop
            rst.UpdateBatch
        End With
        rst.Close
        MsgBox "保存成功!"
    Else
         GoTo err01
    End If
End If

Top

红尘如烟发表于：2010-08-02 18:35:45

没看到你的连接对象变量tcnndb是如何打开的，不太好说，不过你可以把表名改成SQL语句“SELECT * FROM 排期表”，然后后Open方法的最后那个adCmdTable参数删掉

Top

sunny 发表于：2010-08-03 09:00:42

换了还是这个错误提示,下面是tcnndb连接:

Option Compare Database
Public tcnndb As ADODB.Connection
Function MJAutoExec_SysStartRun() '起动时，打开服务数据库Data的connection连接
On Error GoTo err_1

Set tcnndb = New ADODB.Connection

tcnndb.CursorLocation = adUseClient

tcnndb.Provider = "Microsoft.Jet.OLEDB.4.0"

tcnndb.Open "Data Source=" & "\\srv-lj-01\Application\tooling_Data.mdb;Jet OLEDb:DataBase Password=123456"

err_2:
Exit Function

err_1:
MsgBox err.Number & err.Description
Resume err_2
End Function

rst.Find "[pqid] = " & !pqid '这的find是不是要用filter代替?
If rst.RecordCount > 0 Then

Top

煮江品茶发表于：2010-08-03 17:26:06

把排期表链接进来，还是用CurrentProject.Connection不就完事了吗？

rst.Open "排期表", CurrentProject.Connection, adOpenKeyset, adLockBatchOptimistic, adCmdTable

Top

sunny 发表于：2010-08-03 17:37:33

前端不用连接表了,都用临表

Top

sunny 发表于：2010-08-03 17:50:51

这样改没有错误提示,但是只能更新一条

Dim rst As Object
If MsgBox("是否保存批量排期操作?", vbQuestion + vbYesNo, "保存提示") = vbYes Then
      Set rst = CreateObject("ADODB.Recordset")
      rst.CursorLocation = adUseClient
      rst.Open "排期表", tcnndb, adOpenKeyset, adLockBatchOptimistic, adCmdTable
      With Me.子窗体_排期表.Form.Recordset
         If .RecordCount > 0 Then .MoveFirst
         Do Until .EOF
               rst.Filter = "pqid=" & !pqid & ""
               If rst.RecordCount > 0 Then
                  rst!预计加工日期 = !预计加工日期
                  rst!预计完成日期 = !预计完成日期
                  rst!模号 = !模号
                  rst!注塑机 = !注塑机
                  rst!备注 = !备注
                  rst.Update
            End If

            .MoveNext
         Loop
         rst.UpdateBatch
      End With
      rst.Close
      MsgBox "保存成功!"
Else
      GoTo err01
End If
End If

Top

总记录：5篇页次：1/1 9 1 :

Access交流中心

红尘老师,ADO修改多条记录后保存(本地表改为服务器表问题)