Шаг 50 - Обновление записей из ADO

Для того, чтобы иметь возможность обновлять записи нам нужно указать тип курсора и блокировку. О типах курсора можно прочитать "Шаг 44 - Типы курсоров". После этого мы сможем изменять записи. Смотрим код.

Private Sub Command1_Click()
Set adoConnect = New ADODB.Connection
Dim strConnect As String
strConnect = "Provider=SQLOLEDB;Persist Security Info=False;User ID=sa;Initial Catalog=test;Data Source=Servers"
adoConnect.Open strConnect, "sa", "123"
Dim record As Recordset
Set record = New Recordset

record.Open "select * from piple", adoConnect, adOpenDynamic, adLockOptimistic
record!Name = "HHH"
record.Update
record.MoveNext

adoConnect.Close
Set adoConnect = Nothing
End Sub

Мы при открытии набора записей указали открывать как динамичный, что значит что изменения можно вносить и указали оптимистичную блокировку. После этого обращаясь к имени поля можно вносить изменения. Подтверждаются они командой Update. О том как можно обратиться к записям читайте "Шаг 43 - Объект RecordSet". Еще раз для внесения изменений нам нужна подходящая блокировка и тип курсора. Использование блокировки связано с тем, что доступ может быть многопользовательский и она позволяет избежать конфликтов при одновременном изменении многих записей.


Предыдущий Шаг | Следующий Шаг | Оглавление
Автор Каев Артем - 9.09.2001