Senden der Updates: UpdateBatch-Methode

Der folgende Code öffnet ein Recordset im Batchmodus, indem die LockType-Eigenschaft auf "adLockBatchOptimistic" und "CursorLocation" auf "adUseClient" festgelegt wird. Es fügt zwei neue Datensätze hinzu und ändert den Wert eines Felds in einem vorhandenen Datensatz, speichert die ursprünglichen Werte und ruft dann UpdateBatch auf, um die Änderungen an die Datenquelle zurückzusenden.

Bemerkungen

'BeginBatchUpdate  
    strConn = "Provider=SQLOLEDB;Initial Catalog=Northwind;" & _  
              "Data Source=MySQLServer;Integrated Security=SSPI;"  
  
    strSQL = "SELECT ShipperId, CompanyName, Phone FROM Shippers"  
  
    Set objRs1 = New ADODB.Recordset  
    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")  
    sPhone = 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  

Wenn Sie den aktuellen Datensatz bearbeiten oder beim Aufrufen der UpdateBatch-Methode einen neuen Datensatz hinzufügen, ruft ADO automatisch die Update-Methode auf, um ausstehende Änderungen am aktuellen Datensatz zu speichern, bevor die Batchänderungen an den Anbieter übertragen werden.

Siehe auch

Batchbetrieb