Как узнать через API - изменялась ли БД?

[Osteon]

Здравствуйте.
Работаю в WinXP SP3, с БД Access 2007, пишу на VB6.
Хочу на уровне тривиальной FileCopy сделать сохранение резервной копии БД автоматически при выходе из программы. Если БД не менялась, нет смысла загружать ресурсы сохранением не менявшейся БД (подразумевается, что при предыдущем выходе она уже была сохранена). Если делать глобальную переменную dbChange As Boolean в самой программе, может так статься, что БД то будет/то не будет изменяться, и каждый раз отслеживать переменную муторно. Существует ли функция Windows (типа API) для проверки на уровне операционной системы - был ли изменен файл *.mdb? Или по другому как? Если да - сделайте пару намеков, плиз...

[Qwertiy]

Существует ли функция Windows (типа API) для проверки на уровне операционной системы - был ли изменен файл

Есть.

файл *.mdb

А доступ к файлу для копирования вообще будет?

[Osteon]

Есть.

Лаконично.

А доступ к файлу для копирования вообще будет?

Конечно. Копирование будет происходить при выходе из программы, так что БД все равно закрывать.

Вообще, сам алгоритм представляю так: При запуске программы функция проверяет состояние файла БД, при выходе проверяет, была ли модификация файла. Ну, а дальше If ... Then ... End If

[Qwertiy]

Лаконично.

Не помню, надо гуглить. Можно мониторить файл на изменения.

PS: Незачем помещать такие вопросы в раздел по БД, т. к. к БД они никакого отношения не имеют.

[Osteon]

PS: Незачем помещать такие вопросы в раздел по БД, т. к. к БД они никакого отношения не имеют.

Извините, конечно... Просто вопрос относится к БД, вот я и поместил его сюда... Если модеры не против, пусть остается здесь, если же нет - пусть перенесут в нужный раздел...

[Osteon]

Не лЮбите вы меня...

[iGrok]

А я бы вместо мониторинга изменений через соответствующую API, сделал проще.

1) Проверить время последнего изменения файла.
2) Сравнить размер файла.
3) Если время изменилось, а размер нет - можно дополнительно считать хэш файла (или даже CRC32, для начала) (если там не несколько гигабайт, конечно), и сравнивать его.

[Osteon]

А я бы вместо мониторинга изменений через соответствующую API, сделал проще.

1) Проверить время последнего изменения файла.
2) Сравнить размер файла.
3) Если время изменилось, а размер нет - можно дополнительно считать хэш файла (или даже CRC32, для начала) (если там не несколько гигабайт, конечно), и сравнивать его.

Нет, конечно не в гигах размер. А через какую API?

[Osteon]

Можно примерчик для особо одаренных?

[Osteon]

Как только идее дать пинка, тут же появляются мысли и побуждение к действию:
Найдено на http://www.script-coding.com/WSH/FileSystemObject.html

Код: Выделить всё

Private Sub Command2_Click()

    Dim FSO As Object, File As Object, str As String

    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set File = FSO.GetFile("C:\autoexec.bat")
    str = vbNullString
    str = str & "Дата создания - " & File.DateCreated & vbCrLf
    str = str & "Дата последнего доступа - " & File.DateLastAccessed & vbCrLf
    str = str & "Дата последней модификации - " & File.DateLastModified & vbCrLf
    str = str & "Диск - " & File.Drive.DriveLetter & vbCrLf
    str = str & "Имя - " & File.Name & vbCrLf
    str = str & "Родительский каталог - " & File.ParentFolder.Path & vbCrLf
    str = str & "Путь - " & File.Path & vbCrLf
    str = str & "Короткое имя - " & File.ShortName & vbCrLf
    str = str & "Путь в формате 8.3 - " & File.ShortPath & vbCrLf
    str = str & "Размер - " & File.Size & vbCrLf
    str = str & "Тип файла - " & File.Type
    MsgBox str
   
End Sub

Это, конечно, не API, но зато гораздо проще. Теперь, насколько я понимаю, нужно при входе в программу сохранить значение File.DateLastModified, затем, при выходе сравнить начальное значение и настоящее, то что при выходе. Так ли это?

[iGrok]

Не. При выходе находишь последнюю имеющуюся у тебя резервную копию. Получаешь её размер и время последнего изменения.
Получаешь размер и время последнего изменения текущей базы.

Т.е. сравнивать нужно не со значениями в момент старта, а с параметрами последней резервной копии.

[Qwertiy]

Ну зачем тут FSO?
И вообще: http://msdn.microsoft.com/en-us/library/windows/desktop/aa365465(v=vs.85).aspx.

[Osteon]

Т.е. сравнивать нужно не со значениями в момент старта, а с параметрами последней резервной копии.

Понял, спасибо.

[Osteon]

Ну зачем тут FSO?
И вообще: http://msdn.microsoft.com/en-us/library ... 65(v=vs.85).aspx.

Ой-йо... По мне - так FSO гораздо проще для моих целей...

[Osteon]

Я айпишки-то недолюбливаю, а тут на уровне DWORD/LWORD...

[iGrok]

Я айпишки-то недолюбливаю, а тут на уровне DWORD/LWORD...

Нету никаких LWORD.
А делов-то, потратить один вечер, и перестать их недолюбивать...

Но в данном случае пользы от этой апи тебе действительно немного, т.к. не стоит задачи мониторить изменения и реагировать на них "в реальном времени".
А вот вместо FSO лучше, конечно, разобраться с API GetFileTime.

[Osteon]

А вот вместо FSO лучше, конечно, разобраться с API GetFileTime.

Спасибо, буду разбираться. С наступающим!

[Osteon]

А вот вместо FSO лучше, конечно, разобраться с API GetFileTime.

А почему? Я без дураков, серьезно - чем API лучше FSO?

[Osteon]

Нашел

API GetFileTime.

, в общем-то, действительно, не самый сложный вариант. Вот только прежде чем выполнить GetFileTime, там еще несколько айпишек в довесок нужны...

[iGrok]

чем API лучше FSO?

Более соответствует принципу Бритвы Оккама.

несколько айпишек

Айпи (IP) - это обозначение сетевого адреса и соответствующего протокола.
А мы тут, вроде как, апи (API) обсуждаем.

А так, да. CreateFile -> GetFileTime -> CloseHandle. Только ничего сложного в этом нет. Примеров в сети навалом, в каждом легко найти, что же именно нужно подставлять во всякие незнакомые параметры для CreateFile.

[Osteon]

Более соответствует принципу Бритвы Оккама

Блин, тут не только в VB ума прибавляется! Теперь я знаю, что такое Бритва Оккама!!!

Айпи (IP) - это обозначение сетевого адреса и соответствующего протокола.
А мы тут, вроде как, апи (API) обсуждаем.

Это я переумничал...

Только ничего сложного в этом нет. Примеров в сети навалом

Действительно. Уже нашел, уже реализовал свою задачу. СПАСИБО!

[Osteon]

CreateFile -> GetFileTime -> CloseHandle

Там еще FileTimeToSystemTime и FileTimeToLocalFileTime... Без них чегой-то не получается...

[iGrok]

А зачем? У тебя два файла, оба локальные, у обоих одна "временная зона". Для обоих одинаковым способом получаешь время.
Вот и сравнивай спокойно сначала dwHighDateTime у полученных структур, а потом (если значения одинаковые) и dwLowDateTime.

А ещё лучше воспользуйся для этого CompareFileTime.

[Osteon]

А ещё лучше воспользуйся для этого CompareFileTime

Как ты незаметно к ней подвел... Чую я, скоро крутым API-шником буду...

[Osteon]

Общий алгоритм я понимаю так - при запуске программы с помощью GetFileTime я узнаю время последней модификации файла, сохраняю его где-нить, по окончании работы программы я так же, с помощью GetFileTime, снова узнаю время модификации, с помощью CompareFileTime сравниваю два значения, и в зависимости от результата предпринимаю определенные шаги?

[iGrok]

Нет.

При выходе находишь последнюю имеющуюся у тебя резервную копию. Получаешь её размер и время последнего изменения.Получаешь размер и время последнего изменения текущей базы.Т.е. сравнивать нужно не со значениями в момент старта, а с параметрами последней резервной копии.

[Qwertiy]

Общий алгоритм я понимаю так - при запуске программы с помощью GetFileTime я узнаю время последней модификации файла, сохраняю его где-нить, по окончании работы программы я так же, с помощью GetFileTime, снова узнаю время модификации, с помощью CompareFileTime сравниваю два значения, и в зависимости от результата предпринимаю определенные шаги?

Если база больше никак ментяться не должна, что можно и так. Иначе надо где-то хранить...

При выходе находишь последнюю имеющуюся у тебя резервную копию. Получаешь её размер и время последнего изменения.

Хм.. Время изменения копии не будет совпадать со временем изменения базы...
Хотя, оно ведь будет больше, так что годится, наверное.

[Osteon]

Уважаемые Академик VBStreets и Гуру!
Прошу вас проверить, правильно ли я все сделал? Может быть, немного не изящно, но, в принципе, работает. Единственное, что гложет - так ли организовано сохранение данных о времени изменения БД? По другому не дотумкиваю...

Получаешь её размер и время последнего изменения.

Я решил не находить размер, думаю, что вполне достаточно времени изменения. В соответствии ли с той же "бритвой Оккама"... И хранить данные решил на диске, потому как не хочу расходовать ресурсы на удержание в памяти значений, которые, по сути, будут нужны только один раз.

[HandKot]

Я решил не находить размер, думаю, что вполне достаточно времени изменения. В соответствии ли с той же "бритвой Оккама"... И хранить данные решил на диске, потому как не хочу расходовать ресурсы на удержание в памяти значений, которые, по сути, будут нужны только один раз.

а не будет ли время изменения файла временем последнего ее открытия ?

[Qwertiy]

а не будет ли время изменения файла временем последнего ее открытия ?

Оно же вроде является временем последней записи в файл, нет?