Update to metoda obiektu Recordset, służąca do zapisywania dodawanych/usuwanych/edytowanych rekordów w tabeli.
Przykład przy dodawaniu rekordu opisałam tu:
Recordset.Addnew
W przypadku edycji i zapisaniu wartości w rekordach może wyglądać to tak:
|
Private Sub PolecenieZapisz_Click() Dim RST As ADODB.Recordset Set RST = New ADODB.Recordset RST.Open „TabelaKsiazki”, CurrentProject.Connection, adOpenDynamic, adLockOptimistic With RST If Not .EOF Then .MoveFirst While Not .EOF !Cena = 1.2 * !Cena .Update If Not .EOF Then .MoveNext Wend .Close End With Set RST = Nothing DoCmd.Close End Sub |
W pętli następuje odczyt pola Cena z każdego rekordu i zwiększenie tej wartości.
W tym przypadku warto jednak pamiętać, że ponieważ następuje przejście do następnego rekordu (MovaNext), Access w tle i tak zapisuje każdy rekord, metoda Update nie jest tu potrzebna. Ja mam jednak zwyczaj, że i tak wpisuję, dla czytelności kodu.
Jeżeli Recordset jest otwarty tylko do odczytu – metoda Update wywoła błąd 3521.
A tu możesz mi postawić kawę:
