| |
|
|
| | http://hiprog.com/index.php?option=com_content&task=view&id=251661619
База одна, а много пользователей.
Код архивации в клиентской части программы.
Архивировать надо в фоновом режиме, как бы ничего не происходит.
В какое время делать архивирование данных?
====================
Может следует удалить прилинькованные таблицы и проверить наличие xxx.ldb файла, но он исчезает не сразу, а в течении 1-3 секунд, потому придётся задержку делать секунд на 5.
--------------------------------------
Есть вариант - делать программно копию файла базы, но опять те же вопросы... | |
| |
| |
| |
|
|
| | мы делали так, для файл-серверной архитектуры - в момент, когда первый клиент, который запускал в сети своё рабочее место - запускался механизым архивации базы данных и выставлялся флаг, что архив произведен. всегда были архивы - ежедневные в начале рабочего дня, еженедельные, ежемесячные. админ может написать приблуду, когда делается архив после того, как все вышли из сумрака. | |
| |
| |
| |
|
|
| | >> после того, как все вышли из сумрака.
а если не выходят, то гоним пинками и сцаными тряпками.
в клиентской базе скрытая стартап форма, которая по таймеру мониторит сообщения в системной таблице.
если есть сообщение об обсуживании БД - пользователь предупреждается - "КС наступит через n минут" | |
| |
| |
| |
|
|
| | у меня VBS файл в автозапуске моего компа висит - копирует нужные файлы в нужное место и ему плевать есть ldb или нет | |
| |
| |
| |
|
|
| | У снайпера - круто!!!
Кинь мне такой скриптфайл, если можно...  | |
| |
| |
| |
|
|
| | в bat файле блокнотом
xcopy полный_путь_к_файлу путь_куда /y (для неспрашивания о замене)
читаем
http://www.windowsfaq.ru/content/view/49/57/ | |
| |
| |
| |
|
|
| | открываешь блокнот
пишешь
Dim strDBPath
Dim strPath
Dim fso
strDBPath = "\\Terminal\Почта\ПлановыйМодуль\terma_db.mde"
strPath = "D:\Плановый модуль автосохранение\terma_db_" & Date() & ".mde"
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CopyFile strDBPath, strPath
Set fso = Nothing
strDBPath = "\\Terminal\Почта\Журнал для Юристов_be.mdb"
strPath = "D:\Журнал для Юристов автосохранение\Журнал для Юристов_be_" & Date() & ".mdb"
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CopyFile strDBPath, strPath
Set fso = Nothing
закрываешь блокнот сохраняя файл как txt
переименовываешь файл с txt в vbs
все | |
| |
| |
| |
|
|
| | как то так
Dim fso,fsrv,fcli,curpath,vsrv,vcli
Dim oShell,rs,strSql,conn,strConnection
Dim oArgs
'--[func&subs]
Function gv(file)
on error resume next
gv=""
strConnection="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & file & ";User Id=Admin;Password="
strSql="SELECT TOP 1 ver FROM dual"
Set conn = CreateObject("ADODB.Connection")
conn.Open strConnection
Set rs = CreateObject("ADODB.Recordset")
rs.open strSQL, conn
if not rs.Eof then gv=rs(0)
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
Exit Function
End Function
sub updver(fso, fsource,fdestin)
dim filefrom,filetill
on error resume next
strConnection="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & fsource & ";User Id=Admin;Password="
strSql="SELECT path,filename FROM _files"
Set conn = CreateObject("ADODB.Connection")
conn.Open strConnection
Set rs = CreateObject("ADODB.Recordset")
rs.open strSQL, conn
do while not rs.Eof
filefrom=fso.GetParentFolderName(fsource) & rs(0) & rs(1)
filetill=fso.GetParentFolderName(fdestin) & rs(0) & rs(1)
if not fso.FolderExists(fso.GetParentFolderName(filetill)) then
fso.CreateFolder (fso.GetParentFolderName(filetill))
'Wscript.Echo fso.GetParentFolderName(filefrom) & vbcrlf & fso.GetParentFolderName(filetill)
end if
'Wscript.Echo filefrom & vbcrlf & filetill & vbcrlf & fso.GetParentFolderName(filetill)
fso.copyFile filefrom,filetill,True
rs.movenext
loop
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
Exit sub
End sub
'--[run programm]
on error resume next
Set oArgs = WScript.Arguments
fsrv=oArgs(0)
if fsrv="" then
Wscript.Echo "Не найден файл-источник (прописывается в командной строке)" & vbcrlf & "Обратитесь к разработчикам"
Wscript.Quit
end if
Set fso = CreateObject("Scripting.FileSystemObject")
curpath=fso.GetParentFolderName(wscript.ScriptFullName)
fcli = curpath & "\oqueries.mde"
vsrv=gv(fsrv): vcli=gv(fcli)
if vsrv="" then
Wscript.Echo "Ошибка проверки версии файла" & vbcrlf & "Обратитесь к разработчикам"
Wscript.Quit
end if
if vsrv>vcli or vcli="" then '-- обновить приложение
updver fso,fsrv,fcli
end if
'-- запустить приложение
Set oShell= WScript.CreateObject("WScript.Shell")
oShell.Run fcli, , True
Set oShell = Nothing
|
| |
| |
| |
| |
|
|
| | В блокноте пишешь
Const OverwriteExisting = TRUE
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.CopyFile "c:\baza\baza.mdb" , "C:\bazacopy\" , OverwriteExisting
If Err.Number Then
WScript.Echo "Ошибка копирования."
else
WScript.Echo "Успех"
Err.Clear
End if
сохраняешь с расширением VBS
Получаешь скрипт копирования
ПС проверку ошибок можно убрать или оставить только
If Err.Number Then
WScript.Echo "Ошибка копирования."
end if
добавил
objFSO.CopyFile "c:\tmp\test.htm" , "C:\test" & date() & ".htm" , OverwriteExisting - будет много копий с датой | |
| |
| |
|
|
|
|
| |
|
|
| |
 простите....
Вы мну в тупик ставите,
что Силыч, что Explorer.....
Как ляпнут - блин - ни один переводчик не берётся перевести...
А теперь и Кэпитэн - раньше за ним не наблюдалось такого......... | |
| |
| |
| |
|
|
| | Игра букв:
Cobain Kurt
:) | |
| |
| |
| |
|
|
| | под аркой главного штаба устроили было импровизированный концерт,
с младшим братом и друзьями. лет десять назад - на белые ночи
успели исполнить рэйпми и ол аполджайз... пока не загребли :) | |
| |
| |
| |
|
|
| | Хулиганы!
Ведь нашли место,
и не где-нибудь, а в самом сердце ...
... трижды обосранной колыбели революций ...
:) | |
| |
| |
| |
|
|
| | не слаще редьки...... | |
| |
| |
| |
|
|
| | Это имя широко известно в узких кругах. :) | |
| |
| |
| |
|
|
| | Грустное у нёго лицо......  | |
| |
| |
| |
|
|
| | час, ну ты что? поиском пользоваться не умеешь?
Скармливаешь "cobian" Гуглу и получаешь
http://www.educ.umu.se/~cobian/cobianbackup.htm | |
| |
| |
| |
|
|
| | Я получил уже - это я про лицо этого парня говорю - грустное оно у него...... 
http://www.google.ru/search?q=Cobain+Kurt&ie=utf-8&oe=utf-8&aq=t&rls=ru.yandex:ru:official&client=firefox | |
| |
| |
