Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

Практическое использование MS Access


Информационный Канал Subscribe.Ru


4. Способы очистки таблицы - Recordset и SQL

(Все примеры тестировались в MS Access 97, для того чтобы приведенный здесь код
работал Access 2000 или XP, необходимо включить в Visual Basic поддержку
Microsoft DAO 3.6 Object Library (Tools\References...))

Часто бывает необходимо очистить какую-либо таблицу полностью, например,
когда таблица используется для временного хранения данных при создании
какого-либо отчета. Удалить все записи из таблицы можно разными
способами вот два из них:

' 1. Способ с использованием объекта Recordset
 Dim DB As Database, RS As Recordset

 Set DB = CurrentDb
 Set RS = DB.OpenRecordset("Таблица1", dbOpenDynaset)

 If RS.RecordCount > 0 Then ' если таблица не пуста
    RS.MoveFirst
    Do Until RSS.EOF ' цикл по записям
       RS.Delete     ' удаление записи
       RS.MoveNext
    Loop
 End If

' 2. Способ с использованием SQL
 DoCmd.SetWarnings 0  ' отключить сообщения
 ' удалить ВСЕ записи из таблицы "Таблица1"
 DoCmd.RunSQL "Delete From [Таблица1]"
 DoCmd.SetWarnings -1 ' включить сообщения
 ' Макрокоманда УстановитьСообщения (SetWarnings) включает или отключает
 ' вывод системных сообщений. Для того чтобы MS Access не спрашивал
 ' подтверждаете ли Вы удаление записей.
    
    ----------------------------------------------------------------------
    Архив рассылки
    Дополнительная информация, примеры программ http:\\use-access.narod.ru
    Написать письмо: use-access@bk.ru
    

http://subscribe.ru/
E-mail: ask@subscribe.ru
Отписаться
Убрать рекламу

В избранное