PDA

View Full Version : حرفه ای: پشتیبان گیری متغییر



behrooz69
جمعه 01 آذر 1392, 19:13 عصر
سلام دوستان . من تو پروژم که واسه 1 شرکتی نوشتم و اطلاعات اون مهمه میام هربار بعد خروج با این کد از دیتابیس BackUp میگیرم .
Try

Dim cnn As New SqlConnection("Data Source=(local);Initial Catalog=Sardkhone;Integrated Security=True")

Dim cmd As New SqlCommand
cnn.Open()
Dim query As String = "BACKUP DATABASE [Sardkhone] TO DISK =N'E:\Sardkhone.BAK'"
cmd.CommandText = query
cmd.Connection = cnn
cmd.ExecuteNonQuery()
MsgBox("پشتیبانگیری با موفقیت صورت گرفت")
cnn.Close()
Catch ex As Exception
MsgBox("مشکل در پشتیبان گیری")
End Try
حالا اینجا 2تا سواله که پیش می اد . من میام فایل بک آپ رو میریزم تو درایو E و مشکل اینجاس که اگه نباشه اررور میگیره . چه کنم که بره تو فولدر خود برنامه ای که نوشتم . یا بره به 1 درایو موجود تو سیستم غیر درایو C که می دونین با فرمت .... . یا بیاد درایو خالی رو پیدا کنه و بعد کپی کردن پشتیبانی به کاربر علاوه بر اررور گرفتن پشتیبانی بگه که کجا ذخیره شد . به شکل زیبا تو همون MSGBOX .

سوال دوم اینه که من 1 بار بک آپ می گیرم و دوباره میام پروژه رو باز می کنم و بک آپ می گیرم با اینکه هیچ رکوردی ثبت نشده وقتی پشتیبان گیری رو می گیرم رو فایل قبلی می ره و حجمش 2 برابر می شه .