گرفتن کپی از فایل بانک اکسس در برنامه

[Shahab.]

سلام
من یک فایل بانک اکسس 2007 رو به adodc متصل کردم.
حالا میخوام برای برنامه قسمتی رو مخصوص بکاپ گیری درست کنم.
از کد زیر برای انجام این کار استفاده میکنم :

FileCopy App.Path & "\DB\Kafi-Net.mdb", Text1.Text
MsgBox "End", vbOKOnly + vbInformation, "Success"

text1.text= مسیری که فایل بانک میخواهد کپی شود در آنجا.

ولی موقع اجرا این تکه کد از خط اول خطا میگیره خطای promession denied 70
تست کردم دیدم مثلا اگر بخوام یک عکس رو کپی کنم خطایی نمیده ولی برای این خطا میده.
مشکل از چیه؟

[vbhamed]

سلام
مشكل اينه كه بانكتون بازه
بايد تمام ارتباطاتي كه با بانك ايجاد شده رو ببنديد، مثلا همه فرمهايي كه با بانك ارتباط دارن

[Shahab.]

ببخشید فرم اولم با بانک ارتباط داره
اونو اگر ببندمش که کلا برنامه بسته میشه
پس چجوری باید ازش کپی بگیرم؟

[vbhamed]

سلام
براي بكاپ گيري يك فرم درست كنيد يا حداقل يك فرم ساده نمودار پيشرفت بكاپ، بعد از اينكه كارش تموم شد دوباره فرم اصلي رو باز كنيد
ضمنا مي‌تونيد در همون فرم اصليتون هم ارتباط ديتا كنترل ها رو با بانك قطع كنيد با دستوري مشابه زير، اما اگر فرمهاي متصل رو ببنديد خيلي بهتره
On Error Resume Next

Adodc1.Recordset.Close
Adodc1.ConnectionString = ""
Adodc1.RecordSource = ""
Adodc1.Refresh

[Shahab.]

خب بعد از اینکه فرمهامو با دستور unload بستم بعد از بکاپ گیری چجوری دوباره لودشون کنم؟

[AbbasVB]

خب بعد از اینکه فرمهامو با دستور unload بستم بعد از بکاپ گیری چجوری دوباره لودشون کنم؟
خیلی ساده
Form1.show