Программно уменьшить размер файла Access

[sergey-911]

Доброго времени суток уважаемые.
В Access есть менюшка
Сервис==>Служебные==>Сжать и восстановить БД
, при нажатии на которую уменьшается размер файла Access.
Как программно сделать тоже самое?

[Resident]

Да к стати, вопрос очень актуален в смысле сжать и восстановить БД, как это сделать провайдерами.NET? По моему без обращения к DAO не обойтись (точнее к COM обертке). Кто как пользует сию штучку?

[FireFenix]

Гугл не рулед?

http://www.cyberforum.ru/delphi-databas ... d7102.html

[sergey-911]

Гугл не рулед?

http://www.cyberforum.ru/delphi-databas ... d7102.html

Да FireFenix, Гугл рулед, спасибо.
Но строка

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

Dim jro As New JRO.JetEngine

выдает ошибку.

библиотеку "Microsoft Jet and Replication Objects 2.6 Library" к проекту добавил.

В архиве - тестовый проект.

[Nord777]

Как звучит ошибка?

[raserg]

Сжимает без проблем.ошибок нет

[sergey-911]

Как звучит ошибка?

Попробовал сжать файл на работе, среды разработки на компьютере нет. Приложение выдало ошибку

Точка входа в процедуру __CxFrameHandler3 не найдена в библиотеке DLL msvcrt.dll

Более подробно смогу написать вечером, когда добирусь до домашнего компа с VS.

[sergey-911]

Текст ошибки:

System.Runtime.InteropServices.COMException не обработано
ErrorCode=-2147221164
Message="Сбой при получении производства объектов класса COM для компонента с CLSID {DE88C160-FF2C-11D1-BB6F-00C04FAE22DA} в результате следующей ошибки: 80040154."
Source="Access Compress File"
StackTrace:
в WindowsApplication1.Form1.btnCmDb_Click(Object sender, EventArgs e) в C:\Users\Sergey\Documents\Visual Studio 2008\Projects\Access Compress File\Access Compress File\Form1.vb:строка 24 в System.Windows.Forms.Control.OnClick(EventArgs e) в System.Windows.Forms.Button.OnMouseUp(MouseEventArgs mevent) в System.Windows.Forms.Control.WmMouseUp(Message& m, MouseButtons button, Int32 clicks) в System.Windows.Forms.Control.WndProc(Message& m) в System.Windows.Forms.ButtonBase.WndProc(Message& m) в System.Windows.Forms.Button.WndProc(Message& m) в System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m) в System.Windows.Forms.NativeWindow.DebuggableCallback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam) в System.Windows.Forms.UnsafeNativeMethods.DispatchMessageW(MSG& msg) в System.Windows.Forms.Application.ComponentManager.System.Windows.Forms.UnsafeNativeMethods.IMsoComponentManager.FPushMessageLoop(Int32 dwComponentID, Int32 reason, Int32 pvLoopData) в System.Windows.Forms.Application.ThreadContext.RunMessageLoopInner(Int32 reason, ApplicationContext context) в System.Windows.Forms.Application.ThreadContext.RunMessageLoop(Int32 reason, ApplicationContext context) в Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.OnRun() в Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.DoApplicationModel() в Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.Run(String[] commandLine) в WindowsApplication1.My.MyApplication.Main(String[] Args) в 17d14f5c-a337-4978-8281-53493378c1071.vb:строка 81 в System.AppDomain._nExecuteAssembly(Assembly assembly, String[] args) в Microsoft.VisualStudio.HostingProcess.HostProc.RunUsersAssembly() в System.Threading.ExecutionContext.Run(ExecutionContext executionContext, ContextCallback callback, Object state) в System.Threading.ThreadHelper.ThreadStart()
InnerException:

[Nord777]

Выставь конфигурацию проекта принудительно x86

[sergey-911]

Выставь конфигурацию проекта принудительно x86

Спасибо Nord777, теперь все работает!