Пакетное удаление таблиц в базе данных Access


Sub DropTempTables()
  Const pattern = "temp_arch_"
  Dim tdf As TableDef
  Dim temps As New Collection
  Dim db As Database
  Dim TableName As String
  Dim vrt As Variant
  
  Set db = CurrentDb
  For Each tdf In db.TableDefs
    TableName = tdf.Name
    If InStr(TableName, pattern) > 0 Then
      temps.Add TableName
    End If
  Next
  For Each vrt In temps
    db.Execute "DROP TABLE " & vrt
  Next
  Set db = Nothing
End Sub
Реклама
Запись опубликована в рубрике программирование, software с метками , , . Добавьте в закладки постоянную ссылку.

Добавить комментарий

Заполните поля или щелкните по значку, чтобы оставить свой комментарий:

Логотип WordPress.com

Для комментария используется ваша учётная запись WordPress.com. Выход / Изменить )

Фотография Twitter

Для комментария используется ваша учётная запись Twitter. Выход / Изменить )

Фотография Facebook

Для комментария используется ваша учётная запись Facebook. Выход / Изменить )

Google+ photo

Для комментария используется ваша учётная запись Google+. Выход / Изменить )

Connecting to %s