[ADO教程]用ADO进行切断式操作批量更新

时　间:2013-05-11 14:25:13
作　者:漏蛧尐魚℡   ID：6392  城市：昆山
摘　要:[ADO教程]用ADO进行切断式操作批量更新
正　文:

Function EG_CutConnectionAndUpdateBatch()
'引用 Microsoft ActiveX Data Objects 2.1 Library
'本示例演示切断式 recordset 和批量更新的功能

    Dim rs As New ADODB.Recordset
    Dim conn As New ADODB.Connection
    Dim strConn As String
    strConn = "Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=" & CurrentDb.Name & ";Mode=Share Deny None;"
    conn.ConnectionString = strConn
    conn.Open
    
    
    rs.LockType = adLockBatchOptimistic '注意使用的锁定类型
    rs.CursorType = adOpenStatic        '注意游标类型
    rs.CursorLocation = adUseClient     '注意游标位置
    rs.Open "产品名称表", conn, , , adCmdTable
    
    '设置 ActiveConnection 为 nothing 断开 recordset 连接
    Set rs.ActiveConnection = Nothing
    '关闭 connection 连接
    conn.Close
    
    '当中可以执行其他程序
    rs.AddNew
    rs("产品ID") = "5551"
    rs("产品名称") = "dddddd"
    rs.AddNew
    rs("产品ID") = "5e551"
    rs("产品名称") = "edddddd"
    
    '重新打开连接
    conn.Open
    '连上刚才断开的 recordset 连接
    rs.ActiveConnection = conn
    '将刚才在客户端做的添加操作批量更新到服务器
    rs.UpdateBatch
    rs.Close
    conn.Close
    
End Function