backup از بانک در زمان مشخصي از روز

[m.firozia]

سلام به همگي
من ميخوام در ساعت مشخصي از روز از يک table در برنامه ام backup گرفته بشه و اونو در درايو مشخصي با نام همراه با تاريخ شمسي ذخيره کنه
ممنون ميشم کسي اگه بلده کمک کنه

[aaa_zarea]

با سلام
دوست عزيز شما مي تونيد با استفاده از ماكرو مشابه اين كارو انجام بديد.

[amirzazadeh]

سلام به همگي
من ميخوام در ساعت مشخصي از روز از يک table در برنامه ام backup گرفته بشه و اونو در درايو مشخصي با نام همراه با تاريخ شمسي ذخيره کنه
ممنون ميشم کسي اگه بلده کمک کنه
سلام دوست من
نمونه هاي backup كه تو سايت فراوانه كافيه يك شرط براي TIME بهش اضافه كنيد مثلا يك فرم مخفي به برنامه اضافه كنيد و كد رو روي رويداد ON TIMER فرم مذكور قرار بديد . تايمر اينتروال هم مثلا روي يك دقيقه تنظيم كنيد.

Private Sub Form_Timer()
If Time = #1:01:00 PM# Then
Call BACKUP
End If
End Sub
............................
موفق باشيد

[m.firozia]

با سلام مجدد
مشکل من حل شد ، ممنون
من يه نمونه با توجه به راهنمايي هايي که شد و نمونه هايي که در سايت بود گذاشتم که اگه کسي در اين مورد مشکل داشت از اون استفاده کنه

جوينده يابنده است

[wolfstander]

سیستم بعد از اجرا اشکالی را به صورت زیر نمایش می دهد:

[amirzazadeh]

سیستم بعد از اجرا اشکالی را به صورت زیر نمایش می دهد:
سلام
با تشكر از m.firozia
اين كدها رو به ابتداي فانكشن back اضافه كنيد:

Set wrkDefault = DBEngine.Workspaces(0)
If Dir("c:\copy.mdb") <> "" Then Kill "c:\copy.mdb"
Set dbsNew = wrkDefault.CreateDatabase("c:\copy.mdb", _
dbLangGeneral, dbEncrypt)
dbsNew.Closeدر مجموع اين كدها ديتابيس مقصد رو ايجاد كرده و در صورت وجود اون ابتدا نسخه موجود رو پاك كرده و نسخه جديد رو ايجاد ميكنه.
در ضمن تايمر اينتر وال روي 1 هزارم ثانيه تنظيم شده كه بهتر هست به 1000 تغيير پيدا كنه.
......................
موفق باشيد

[wolfstander]

سلام مجدد
برنامه حالا درست کار میکنه
یعنی عمل بک آپ رو انجام میده
ولی با یه مشکلی
نمونه کپی تهیه شده اش رو میذارم اینجا
برنامه از کل دیتابیس کپی نمیگیره
فقط از یک جدول
اگه امکان داشت که هم از کل دیتابیس بک آپ بگیره خیلی خوب میشه

[amirzazadeh]

سلام مجدد
برنامه حالا درست کار میکنه
یعنی عمل بک آپ رو انجام میده
ولی با یه مشکلی
نمونه کپی تهیه شده اش رو میذارم اینجا
برنامه از کل دیتابیس کپی نمیگیره
فقط از یک جدول
اگه امکان داشت که هم از کل دیتابیس بک آپ بگیره خیلی خوب میشه
سلام
از لينك اول براي كپي تمامي ديتابيس و از لينك دوم براي كپي تمامي جداول ديتابيس كمك بگيريد:
http://barnamenevis.org/forum/showpost.php?p=564684&postcount=67
http://barnamenevis.org/forum/showpost.php?p=497555&postcount=42
و نهايتا ميتونين از اين كد براي كپي گرفتن از كل ديتابيس استفاده كنيد:

Dim fs As Object
Set fs = CreateObject("Scripting.FileSystemObject")

fs.CopyFile Application.CurrentProject.FullName,"c:\back.mdb"
..........................
موفق باشيد

[wolfstander]

به به
درست شد
حالا باز من اومدم و حرفهای زیادی میزنم
میخواستم بدونم که آیا امکان داره موقعی که میخوایم اسم فایل رو بزنیم ، بگیم به سیستم که ای عزیز دل برادر ،از تابع آقای آزادی استفاده کن و اسم فایل رو بر حسب تاریخ شمسی به همراه ساعت تعیین کن و بزن؟
این امکان داره یا نه؟
:خجالت:
این دوست ما یه حرفی زد، من پشت بندش هی میام سوال میکنم
قول میدم آخرین سوالم تو این تاپیک باشه
شرمنده از دوستان

[wolfstander]

درستش کردم
این فایل ضمیمه رو ببینید

[e20005ir]

درستش کردم
این فایل ضمیمه رو ببینید
با درود فراوان
دوست عزيز من فيل را دانلود كردم
ميخوام از بانك اكسس من يه بك آپ بگيره هم به صورت خودكار
هم به صورت دستي
ميشه راهنمائيم كنيد راستش از كد ها سر در نياوردم
كجا كپي اجرا كنم
چطور فراخوان كنم
اگه ميشه توضيح كامل بدين
ممنونم