پشتيبان گيري از اكسس

[Ali0541]

دوستان سلام
اين برنامه حسابداري رو ببينيد
دانلود (http://www.2shared.com/file/7310432/9791c084/Rahavard_Accounting_System_Cracked_By_Keyvanriko0. html) منبع (http://www.ydc.ir/hesabdari.htm)
يك قسمت براي پشتيبان گيري از اكسس داره .
مي خوام بدونم اين قسمت چه كار مي كنه و براي ايجاد كردن اين قسمت كد يا سورسي هست اگر دوستان بگذارند ممنون مي شم.

براي دانلود بعد از Error بايد يك Refresh بزنيد.

[vahid_visualbasic]

روال کلی برای پشتیبان گیری
Set File1 = New PCCFile"
SetBkPathDB
PathName = App.Path & "\data.mdb"
dbasize = FileLen(PathName)
'Timer2_Timer
cmdBackup_Click
البته تایمر رو هم باید تعریف کنید در یک فرم دیگه یا همین فرم که زمان کپی شدن برنامه قفل نکنه

Me.MousePointer = 11
picProgress.BorderStyle = 1
If txtDestination <> "" Then
DoBackup PathName, txtDestination
ElseIf txtDestination = "" Then
MsgBox "ÔãÇ ÈÇíÏ ãÓíÑí Èå ÌÒ ÏÑÇíæ Óí ÈÑÇí ÝÇíá ÔÊíÈÇä ÇäÊÎÇÈ ˜äíÏ", vbCritical, "ÇÎØÇÑ"
End If
picProgress.Visible = True
Value = 0
Interval = picProgress.ScaleWidth / 100
cmdBackup.Enabled = False
cmdClose.Enabled = False
Timer1.Enabled = True

[Ali0541]

روال کلی برای پشتیبان گیری
Set File1 = New PCCFile"
SetBkPathDB
PathName = App.Path & "\data.mdb"
dbasize = FileLen(PathName)
'Timer2_Timer
cmdBackup_Click
البته تایمر رو هم باید تعریف کنید در یک فرم دیگه یا همین فرم که زمان کپی شدن برنامه قفل نکنه

Me.MousePointer = 11
picProgress.BorderStyle = 1
If txtDestination <> "" Then
DoBackup PathName, txtDestination
ElseIf txtDestination = "" Then
MsgBox "ÔãÇ ÈÇíÏ ãÓíÑí Èå ÌÒ ÏÑÇíæ Óí ÈÑÇí ÝÇíá ÔÊíÈÇä ÇäÊÎÇÈ ˜äíÏ", vbCritical, "ÇÎØÇÑ"
End If
picProgress.Visible = True
Value = 0
Interval = picProgress.ScaleWidth / 100
cmdBackup.Enabled = False
cmdClose.Enabled = False
Timer1.Enabled = True
دوست عزيز ممنون ميشم برام يك سورس بزارين

[Ali0541]

دوستان كسي نيست يه نمونه از پشتيبان گيري از اكسس برام بزاره؟
ممنون مي شم

[mpmsoft]

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


FileCopy "c:\DBSource.mdb", "C:\Backup.mdb"

[Ali0541]

دوست عزيز بايد توي جستجو چي بنويسم ؟ من كه هر چي مينويسم ميگه.:وجود ندارد:.

اگر سورس بزاري ممنون ميشم.

[kama2222]

عزيزم بايد از دستورات FSO استفاده كني و فايل اكسس را آدرس دهي كني و سپس كپي كني.اگر مي خواهي سرچ كني استفاده از دستورات Fso را سرچ كن.:قلب:
و سپس backup را سرچ كن:تشویق:

[Ali0541]

دوست عزيز من فايل موجو در اين صفحه امتحان كردم اما منم همون مشكلي كه مطرح شده رو داشتم ولي از پاسخ دوستان ديگر هم چيزي نفهميدم .
اگر لطف كنين و طوري كه ما تازه واردا متوجه بشيم توضيح بدين ممنون مي شم.
صفحه مورد نظر (http://www.barnamenevis.org/forum/showthread.php?t=164637&highlight=%D8%A7%D8%B3%D8%AA%D9%81%D8%A7%D8%AF%D9% 87+%D8%AF%D8%B3%D8%AA%D9%88%D8%B1%D8%A7%D8%AA+Fso)

[Tasiyan]

چگونه می توانیم از برنامه خود پشتیبان یا Backup گرفته و آن را ذخیره کنیم؟ (http://barnamenevis.org/forum/showpost.php?p=744988&postcount=9)
فشرده سازی و بازسازی بانک اکسس (http://barnamenevis.org/forum/showthread.php?t=155202&highlight=%D8%A8%D8%A7%D9%86%DA%A9)
:لبخند: