Modifying Table Data Using ADO Code : Table Update « Access « VBA / Excel / Access / Word

Home
VBA / Excel / Access / Word
1.Access
2.Application
3.Data Type
4.Data Type Functions
5.Date Functions
6.Excel
7.File Path
8.Forms
9.Language Basics
10.Math Functions
11.Outlook
12.PowerPoint
13.String Functions
14.Windows API
15.Word
16.XML
VBA / Excel / Access / Word » Access » Table Update 




Modifying Table Data Using ADO Code
 
Sub IncreaseEstimate()
    Dim rst As ADODB.Recordset
    Set rst = New ADODB.Recordset
    Dim strSQL As String
    Dim lngUpdated As Long

    rst.ActiveConnection = CurrentProject.Connection
    rst.CursorType = adOpenDynamic
    rst.LockType = adLockOptimistic
    rst.Open ("Select * from Products")

    strSQL = "UnitPrice < 30000"
    lngUpdated = 0

    rst.Find strSQL

    Do Until rst.EOF
        lngUpdated = lngUpdated + 1
        rst("UnitPrice"= rst("UnitPrice"1.1
        rst.Update
        rst.Find strSQL, 1, adSearchForward
    Loop

    'Print how many rows are updated
    Debug.Print lngUpdated & " Records Updated"

    rst.Close
    Set rst = Nothing


End Sub

 














Related examples in the same category
1.Update a table
java2s.com  | Contact Us | Privacy Policy
Copyright 2009 - 12 Demo Source and Support. All rights reserved.
All other trademarks are property of their respective owners.