MyTetra Share
Делитесь знаниями!
VBA Excel - Access 2010: проверка существования записи в Recordset
Время создания: 16.03.2019 23:43
Раздел: !Закладки - VBA - Access
Запись: xintrea/mytetra_db_adgaver_new/master/base/1511496894jp7o40ezxn/text.html на raw.githubusercontent.com

Доброго времени!
Как можно проверить существование записи в Recordset, соответствующей запросу, чтобы в зависимости от результата проверки добавить или изменить запись?

Set rs = New ADODB.Recordset

With rs

    .LockType = adLockOptimistic: .CursorType = adOpenKeyset

    .Source = "SELECT * FROM Товары WHERE Код_Товара=" & myCod

    Set .ActiveConnection = cn: .Open

    If (запись существует) Then: GoTo a:

        .AddNew

a:

        .Fields("Цена_Товара").Value = 3

        .Update

        .Close

End With

 

 

 

If rs.EOF Then

    'Запись не существует

Else

    'Запись существует

End If

 

Так же в этом разделе:
 
MyTetra Share v.0.59
Яндекс индекс цитирования