PDA

View Full Version : zip کردن data در Backup



salam20
سه شنبه 06 آذر 1386, 09:38 صبح
سلام دوستان من میخوام بانک access خودم را برای گرفتن پشتیبان زیپ کنم سپس در بازیابی انرا از حالت زیپ خارج ودوباره در مسیر برنامه کپی نمایم لطفا" در صورت امکان راهنمائی و کد را قرار بدهید

salam20
سه شنبه 06 آذر 1386, 10:35 صبح
کسی من را راهنمائی نمیکنه

اوبالیت به بو
سه شنبه 06 آذر 1386, 13:31 عصر
حالا حتما باید Zip بشه؟

اوبالیت به بو
سه شنبه 06 آذر 1386, 13:38 عصر
On Error GoTo errdes
Dim chk As String
CommonDialog1.CancelError = True
Dim FSys As New FileSystemObject
Dim thisFile As File
Dim fld As Folder
Set thisFile = FSys.GetFile(App.Path & "\Access Bank\Gandom Bank.mdb")
CommonDialog1.Filter = "date|*.mdb"
CommonDialog1.FileName = "Gandom Bank - Backup"
CommonDialog1.DialogTitle = "Data Backup"
CommonDialog1.ShowSave
Dim d As Integer
Dim ln As Integer
Dim SD As String
Dim filenm As String
d = InStrRev(CommonDialog1.FileName, "\")
SD = Mid(CommonDialog1.FileName, 1, d)
Set fld = FSys.CreateFolder(SD & "Backup")
ln = Len(CommonDialog1.FileName)
chk = ln - d
filenm = Right(CommonDialog1.FileName, chk)
thisFile.Copy fld.Path & "\" & filenm
Exit Sub
errdes:
If Err.Number = 32755 Then
Exit Sub
Else
MsgBox Err.Description, vbInformation,Error"
End


این کد یه BackUp از بانک اطلاعاتی میگیره ولی Zip نمی کنه .
برای بازیابیشم باید بگم که می تونی یه قسمت Option یا Setting واسه برنامه آماده بکنی و آدرس ADO یا Data رو برابر بانک بکنی. البته آدرس Data Source Record Source و دیگر چیزهاش رو هم به این ترتیب البته خیلی راه ساده تر وجود داره که می تونی استفاده کنی ولی من فقط اینو بلدم از دوستان کسانی هستند که بهتر می دونن می تونن کمکت کننن.

perfeshnal
سه شنبه 06 آذر 1386, 13:49 عصر
سلام

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

salam20
سه شنبه 06 آذر 1386, 14:14 عصر
باتشکر از دوست عزیز که کد بک آپ گیری را گذاشت
ولی باتوجه به بزرگی data من باید zip بشه تا هم سریع تر کپی شه هم حجم کمتری داشته باشه و در سایت هم جستجو کردم ولی موردی که مشکلم را حل کنه ندیدم لطفا" اگه امکان دارد به من کمک کنید

salam20
سه شنبه 06 آذر 1386, 14:16 عصر
من احتایج به زیپ کردن دارم لطفا" اگه کسی کد مربوطه را دارد به برام بگذارد

salam20
سه شنبه 06 آذر 1386, 14:18 عصر
من احتایج به زیپ کردن دارم لطفا" اگه کسی کد مربوطه را دارد برام بگذارد

salam20
سه شنبه 06 آذر 1386, 14:19 عصر
من احتایج به زیپ کردن دارم لطفا" اگه کسی کد مربوطه را دارد برام بگذارد

salam20
سه شنبه 06 آذر 1386, 14:22 عصر
اگه امکان دارد کد را باتوضیحات بدید

MMR_1344
سه شنبه 06 آذر 1386, 17:20 عصر
دوست عزیز این برنامه رو دوست خوبمون CodeMasterX قرارداده امیدوارم بدردت بخوره