چگونه می توان توسط ADOبرای Accessبرنامه repairنوشت

[alirezah]

سلام
سوال من این است که چگونه می توان توسط ADO برنامه ای نوشت تا بانک Access
Repair شود
این کار را توسط کنترل DAO میدانم اما می خواهم بدانم آیا می شود توسط کد نویسی با Ado هم این کار را انجام داد؟
متشکرم

[Behrouz_Rad]

اگر از ADO استفاده می کنید با استفاده از کتابخانه JRO قادر به انجام این کار هستید.
Microsoft Jet and Replication Objects X.X را به پروژه خودتون اضافه کنید و به شکل زیر عمل کنید:


Dim JRO As JRO.JetEngine
Set JRO = New JRO.JetEngine

JRO.CompactDatabase _
"Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=C:\myData1.mdb", _
"Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=C:\myDataNewName.mdb"_
& ";Jet OLEDB:Engine Type=4"

اگر قصد بازسازی بانک Access 2000 دارید، مقدار Engine Type را برابر با 5 قرار دهید.
موفق باشید.

[alirezah]

دوست عزیزم از پاسخ شما بسیار متشکرم
برنامه ارسالی شما بسیار عالی کار کرد
لطفا اگر برایتان امکان دارد در مورد کتابخانه JRO کمی بیشتر توضیح بدهید.
از لطف شما سپاسگذارم

[Behrouz_Rad]

در راهنمای Access 2003 به خوبی در مورد دنیای ADO، ADOX و JRO توضیح داده شده.

موفق باشید.

[alirezah]

دوست عزیز از پاسختان متشکرم

[yayan85]

سلام.من این کد رو نوشتم همش errorمی ده.refrenceرو هم اضافه کردم بانک خودم رو هم تعیین کردم.میشه یکی یا توضیح بده یا 1 نمونه برنامه بزارین اینجا؟؟ممنون میشم.

[vahab_vb]

فک کنم شما با & ها مشکل داشتید که کار نکرده بوده. یه کم تخیل داشته باشید. بااااااااابا

[CodeMasterX]

کدی که بهروز نوشت درسته حالا اگر کسی ادعا می کنه که کار نکرده این ماژول رو امتحان کنید ببینید چی میشه.این ماژول دیتابیس رو repair می کنه و یه سری اطلاعات رو هم بر می گردونه.