Compartir a través de

Envío de actualizaciones: UpdateBatch

  • Artículo

Se aplica a: Access 2013, Office 2013

Enviar actualizaciones: método UpdateBatch

El código siguiente abre un Recordset en modo de proceso por lotes estableciendo la propiedad LockType en adLockBatchOptimistic y CursorLocation en adUseClient. Agrega dos registros nuevos, cambia el valor de un campo en un registro existente y guarda los valores originales; a continuación, llama a UpdateBatch para devolver los cambios al origen de datos.

 
'BeginBatchUpdate 
    strSQL = "SELECT ShipperId, CompanyName, Phone FROM Shippers" 
                  
    objRs1.CursorLocation = adUseClient 
    objRs1.Open strSQL, strConn, adOpenStatic, adLockBatchOptimistic, adCmdText 
     
    ' Change value of Phone field for first record in Recordset, saving value 
    ' for later restoration. 
    intId = objRs1("ShipperId") 
    strPhone = objRs1("Phone") 
     
    objRs1("Phone") = "(111) 555-1111" 
     
    'Add two new records 
    For i = 0 To 1 
        objRs1.AddNew 
        objRs1(1) = "New Shipper #" & CStr((i + 1)) 
        objRs1(2) = "(nnn) 555-" & i & i & i & i 
    Next i 
     
    ' Send the updates 
    objRs1.UpdateBatch 
'EndBatchUpdate

Si está modificando el registro actual o agregando un nuevo registro mientras llama al método UpdateBatch, ADO llamará automáticamente al método Update para guardar todos los cambios pendientes en el registro actual antes de transmitir los cambios por lotes al proveedor.