View Full Version : اجرای دستور compact and repair در اکسس
milad.biroonvand
سه شنبه 21 بهمن 1393, 23:35 عصر
سلام
چطور میتونم با استفاده از وی بی دات نت دستور compact and repair روی یک دیتابیس اکسس اجرا کنم؟
gilsoft
چهارشنبه 22 بهمن 1393, 09:59 صبح
سلام
چطور میتونم با استفاده از وی بی دات نت دستور compact and repair روی یک دیتابیس اکسس اجرا کنم؟
سلام
اول رفرنس Microsoft.Office.Interop.Access.Dao رو به پروژهات اضافه کن
اینم کد مربوطه:
Sub CompactAndRepairDb()
Dim dbEngine As New Microsoft.Office.Interop.Access.Dao.DBEngine
If System.IO.File.Exists("tempDb.mdb") Then System.IO.File.Delete("tempDb.mdb")
dbEngine.CompactDatabase("MyDb.mdb", "tempDb.mdb")
If System.IO.File.Exists("tempDb.mdb") Then
If System.IO.File.Exists("MyDb.mdb") Then
System.IO.File.Delete("MyDb.mdb")
System.IO.File.Move("tempDb.mdb", "MyDb.mdb")
End If
End If
End Sub
موفق باشید .....
milad.biroonvand
پنج شنبه 23 بهمن 1393, 12:11 عصر
سلام
اول رفرنس Microsoft.Office.Interop.Access.Dao رو به پروژهات اضافه کن
اینم کد مربوطه:
Sub CompactAndRepairDb()
Dim dbEngine As New Microsoft.Office.Interop.Access.Dao.DBEngine
If System.IO.File.Exists("tempDb.mdb") Then System.IO.File.Delete("tempDb.mdb")
dbEngine.CompactDatabase("MyDb.mdb", "tempDb.mdb")
If System.IO.File.Exists("tempDb.mdb") Then
If System.IO.File.Exists("MyDb.mdb") Then
System.IO.File.Delete("MyDb.mdb")
System.IO.File.Move("tempDb.mdb", "MyDb.mdb")
End If
End If
End Sub
موفق باشید .....
**
اگر این رفرنس اضافه بشه که نیازی نیست برای اجرا بر روی سیستم مقصد حتما آفیس نصب باشه؟
milad.biroonvand
پنج شنبه 23 بهمن 1393, 12:26 عصر
وقتی تابع بالا رو اجرا می کنم خطای زیر رو میده
An unhandled exception of type 'System.Runtime.InteropServices.COMException' occurred in mscorlib.dll
Additional information: Retrieving the COM class factory for component with CLSID {CD7791B9-43FD-42C5-AE42-8DD2811F0419} failed due to the following error: 80040154 Class not registered (Exception from HRESULT: 0x80040154 (REGDB_E_CLASSNOTREG)).
gilsoft
پنج شنبه 23 بهمن 1393, 15:02 عصر
**
اگر این رفرنس اضافه بشه که نیازی نیست برای اجرا بر روی سیستم مقصد حتما آفیس نصب باشه؟
سلام مجدد
نمیدونم باید تست بشه ....
وقتی تابع بالا رو اجرا می کنم خطای زیر رو میده
An unhandled exception of type 'System.Runtime.InteropServices.COMException' occurred in mscorlib.dll
Additional information: Retrieving the COM class factory for component with CLSID {CD7791B9-43FD-42C5-AE42-8DD2811F0419} failed due to the following error: 80040154 Class not registered (Exception from HRESULT: 0x80040154 (REGDB_E_CLASSNOTREG)).
متاسفانه اینم نمیدونم واسه چی این خطا رو میده .... شرمنده .... :خجالت:
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.