ايران ويج

برای راحت کردن کاره خودت میتونی با این پسوند بزاری درست کنه
".mdb.Bak"
یارو .Bak رو پاک میکنه DB Access میگیره

سلام.

avini نوشته است:برای راحت کردن کاره خودت میتونی با این پسوند بزاری درست کنه
".mdb.Bak"

در صورتی که فقط از فایل های اکسس پشتبان گرفته و هربار فایل جدید روی فایل پشتیبان قبلی ریخته بشه، این حرف شما کاملا درسته.
البته کدی هم که من گذاشتم فقط برای یک نوع فایل هست چون توی فایل پشتیبان پسوند فایل ذکر نمی شه ولی هربار یه فایل پشتیبان با نام متفاوت (تاریخ پشتیبان گیری) می سازه و می شه اطلاعات یه تاریخ خاص رو خیلی راحت پیدا و جایگزین کرد.

avini نوشته است:کوبیده Byval
جوجه Unload Me
سالاد As Integer
نوشابه CopyFile
ماست Option Explicit
پیتزا As Boolean
سیستم پرداخت هم با Token Handle پیش میره

اینا رو هم به منو اضافه کنید:
1- چلو Kill
2- همبرگر Stream
3- کله پاچه ConnectionString
برای سیستم پرداخت هم من Shell32 رو پیشنهاد می کنم چون عضو سیستم VBRun هست و کلا با همه چی کار می کنه.

Shell Explorer Www.Iranvig.Com
یه پرس ایرانویج

سلام خدمت دوستان گرامي خصوصا mbza11
يه دنيا به من لطف دارين كه كمكم مي كنين
هميشه شاد و پايدار باشين

کجا حاجی ؟
چایی دوم !
برمیگردی دیگه ؟
یا رفتی که دیگه برنگردی ؟
رفیقه نیمه راه !

avini عزيز سلام
نه گل من هيچ جا نميرم
برمي گردم ولي با يه سئوال تازه
به دستور mbza11 عزيز كه فرمودن تنبل نباش و خودت بنويس با كم تر شدن برف و باز شدن راهها رفتم كتاب وي بي تهيه كردم تا كمتر مزاحم شما عزيزان بشم و بيشتر خودم مطالعه و تمرين كنم هرجا گير كردم بازم مزاحم ميشم
مگه ميشه جا به اين خوبي و دوستان به اين عزيزي رو ترك كرد؟

سلام.
بالاخره یکی به حرف ما گوش کرد.
alaska جان خدا خیرت بده. هرجا مشکل پیدا کردی بیا خودم در خدمتم.

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

سلام.
چون در واقع يک کپي از فايل اصلي تهيه مي شه، پس نيازي به بسته شدن فايل پايگاه داده نيست.

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

سلام
شما میتونی از این برنامه هم کمک بگیرین از بقیه کامل تره
Private Const FO_COPY = &H2

Private Type SHFILEOPSTRUCT
hwnd As Long
wFunc As Long
pFrom As String
pTo As String
fFlags As Integer
fAnyOperationsAborted As Long
hNameMappings As Long
lpszProgressTitle As String ' only used if FOF_SIMPLEPROGRESS
End Type

Private Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long

Private Sub Command1_Click()
Dim ret_val As Long

Dim sh_op1 As SHFILEOPSTRUCT
Dim sh_op2 As SHFILEOPSTRUCT

Dim path1 As String
Dim pathh1 As String

Dim path2 As String
Dim pathh2 As String

path1 = "c:\tozi\marsol.dbf"
path2 = "c:\tozi\marcol.dbf"

pathh1 = "g:\tozi\marsol.dbf"
pathh2 = "g:\tozi\marcol.dbf"


With sh_op1
.hwnd = 0
.wFunc = FO_COPY
.pFrom = path1
.pTo = pathh1
End With

With sh_op2
.hwnd = 0
.wFunc = FO_COPY
.pFrom = path2
.pTo = pathh2
End With

ret_val = SHFileOperation(sh_op1)
ret_val = SHFileOperation(sh_op2)
End Sub

Private Sub Command2_Click()
Dim ret_val As Long

Dim sh_op1 As SHFILEOPSTRUCT
Dim sh_op2 As SHFILEOPSTRUCT

Dim path1 As String
Dim pathh1 As String

Dim path2 As String
Dim pathh2 As String

path1 = "h:\tozi\marsol.dbf"
path2 = "h:\tozi\marcol.dbf"

pathh1 = "c:\tozi\marsol.dbf"
pathh2 = "c:\tozi\marcol.dbf"


With sh_op1
.hwnd = 0
.wFunc = FO_COPY
.pFrom = path1
.pTo = pathh1
End With

With sh_op2
.hwnd = 0
.wFunc = FO_COPY
.pFrom = path2
.pTo = pathh2
End With

ret_val = SHFileOperation(sh_op1)
ret_val = SHFileOperation(sh_op2)
End Sub

Private Sub Form_Load()
Command1.Caption = "ÇäÊÞÇá ÇØáÇÚÇÊ Èå ÝáÔ"
Command2.Caption = "ÇäÊÞÇá ÇØáÇÚÇÊ Èå ÕäÏæÞåÇí ÔÎÕí"
End Sub