Как осуществить сжатие mdb базы программно, не прибегая к услугам Access ?

@brandnewman · Регистрация: 15.07.2007

Не подскажет ли кто, как осуществить
сжатие mdb базы программно, не прибегая к
услугам Access ? Нужно сделать для того,
чтобы не скачивать всю базу с сервера лишь
для того, чтобы её (сжатую) тут же закачивать
обратно.

02.07.2008, 21:05

Код

Sub RenameFile(sFrom, sTo)
Dim fso, f
Set fso = CreateObject('Scripting.FileSystemObject')
sDateTimeStamp = '.' & year(now) & month(now) & day(now)   & '-' & hour(now) & minute(now)
fso.MoveFile sTo, Server.MapPath(arrDBs(lConnID) & DateTimeStamp & '.bak')
fso.MoveFile sFrom, sTo
End Sub

sConnFrom = 'Provider=Microsoft.Jet.OLEDB.4.0;' &_
   'Data Source=' & Server.MapPath('Исходная база')

sConnTo = 'Provider=Microsoft.Jet.OLEDB.4.0;' &_
     'Data Source=' & Server.MapPath('конечная база')

set jro = server.createobject('jro.JetEngine')
jro.CompactDatabase sConnFrom, sConnTo
	if err <> 0 then
		bError = True
		response.write 'Error:
' & err.description
	end if
RenameFile sFileTo, sFileFrom

02.07.2008, 21:11

Извините за кривой пример в предыдущем ответе
там не хватает строк перед jro.CompactDatabase

Код

	sFileFrom = Server.MapPath('Исходная база')
	sFileTo = Server.MapPath('конечная база')

@brandnewman 0 / 0 / 0 Регистрация: 15.07.2007 Сообщений: 15
		1
	Как осуществить сжатие mdb базы программно, не прибегая к услугам Access ? 02.07.2008, 18:54. Показов 1777. Ответов 2 Метки нет (Все метки) Не подскажет ли кто, как осуществить сжатие mdb базы программно, не прибегая к услугам Access ? Нужно сделать для того, чтобы не скачивать всю базу с сервера лишь для того, чтобы её (сжатую) тут же закачивать обратно. 0

belkin
	02.07.2008, 21:11	3
	Извините за кривой пример в предыдущем ответе там не хватает строк перед jro.CompactDatabase Код sFileFrom = Server.MapPath('Исходная база') sFileTo = Server.MapPath('конечная база')

Опции темы