Удаление строк запросом

[alex77755]

Продолжаю изучение...
При попытке очистить таблицу полностью:
(работаю из бейсика сбазой)

strDBName = App.Path & "\TRUB.mdb" ' 
Set WS = DBEngine.Workspaces(0) ' 
Set DB = WS.OpenDatabase(strDBName, False, False) ' 
sSQL = "DELETE * FROM  [naprag];" ' 
Set RS = DB.OpenRecordset(sSQL) '

На последней строке вылетает ошибка.
Открываю базу вручную и пытаюсь очистить полностью.
Так же вылетает ошибка типа с памятью что-то.
Но потом начинает делать и делает долго.
Записей в базе 200000.
Пытаюсь удалять снизу(именно так требуется) большими блоками.
Получается удалить если блок <10000 строк(приблизительно.8600 еще работает) Тогда может можно в цикле допустим по 5000 строк удалять? как записать запрос на удаления последних 5000 строк?

[Serge_Bliznykov]

типичная ошибка. не надо пытаться получить результаты запроса
(а, как я понимаю, DB.OpenRecordset(sSQL) - именно пытается вернуть выборку данных).
для запросов INSERT/ UPDATE/ DELETE / ALTER ...
нужно запрос ВЫПОЛНЯТЬ

не знаю бейсика, то это что-то вроде
DB.ExecuteSQL или DB.DoCommand и т.д. - смысл метода - выполнить запрос...

прошёлся в поиске..
попробуйте

  DB.Execute "DELETE * FROM  [naprag];"

[alex77755]

Спасибо. Сработало
Причём моментом.
Разобрался и с сокращением до нужного количества сторок.

sSQL = "DELETE * FROM [naprag] WHERE Metr > 400;"
DB.Execute (sSQL)

следующий вопрос: база после этого остайтся прежнего размера - огромной. В ручном режиме называется "Сжать и восстаносить" и база становится маленькой. Как называется эта процедура в VBA&

[alex77755]

Разобрался сам. Может кому надо:
Option Explicit

Public Function gflngCompactDatabase( _
CompactingDBPathAndName As String, _
Optional BackupBeforeCompactDB As Boolean = False) As Long
Dim strTempFile As String
On Error GoTo ErrHandler
'Формируем имя для временного ("принимающего") файла'
  strTempFile = Left(CompactingDBPathAndName, (Len(CompactingDBPathAndName) - 4)) & _
  "_Temp" & Right(CompactingDBPathAndName, 4)
'Создаем (если надо) резервную копию файла БД перед сжатием'
  If BackupBeforeCompactDB = True _
  Then FileCopy CompactingDBPathAndName, _
  Left(CompactingDBPathAndName, (Len(CompactingDBPathAndName) - 4)) & _
  "_Backup" & Right(CompactingDBPathAndName, 4)
'Сжимаем файл БД (с перезаписью сжатого файла в новый файл)'
  DBEngine.CompactDatabase CompactingDBPathAndName, strTempFile, dbLangCyrillic
'Перезаписываем сжатый (временный файл) на место несжатого (старого файла)'
  FileCopy strTempFile, CompactingDBPathAndName
'Удаляем временный файл'
  Kill strTempFile
Exit Function
ErrHandler:
'обрабатываем возможные ошибки'
  gflngCompactDatabase = Err.Number
  Err.Clear: Exit Function
End Function