现在的代码:
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\tooling_Data.mdb;Jet OLEDbataBase Password=123456"
err_2:
Exit Function
err_1:
MsgBox err.Number & err.Description
Resume err_2
End Function
保存的代码:
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.Update
End If
.MoveNext
Loop
rst.UpdateBatch
End With
rst.Close
MsgBox "保存成功!"
Else
GoTo err01
End If