غلامرضا شریفی
سه شنبه 06 مرداد 1388, 12:36 عصر
سلام من جهت backup از روش ذيل كه يكي از دوستان در همين سايت عرضه كرده بودن استفاده ميكنم
Dim DevicePath AsString
With SaveFileDialog1
.FileName = "Institute.bak"
.DefaultExt = "bak"
.Filter = "DateBase Backup File(*.bak)|*.bak"
.OverwritePrompt = True
EndWith
SaveFileDialog1.ShowDialog()
DevicePath = SaveFileDialog1.FileName
Using cnn AsNew SqlConnection("Data Source=10.30.40.40;Initial Catalog=Masraf_Rabet;Integrated Security=True")
cnn.Open()
Dim Srvcon AsNew ServerConnection(cnn)
Dim Srv AsNew Server(Srvcon)
' Create backup device item for the backup
Dim bdi AsNew BackupDeviceItem(DevicePath, DeviceType.File)
' Create the backup informaton
Dim Backup AsNew Backup
Backup.Devices.Add(bdi)
With Backup
'Type Of Backup
.Action = BackupActionType.Database
.BackupSetDescription = "Backup DataBase"
.BackupSetName = "DB"
.Database = cnn.Database.ToString()
.LogTruncation = BackupTruncateLogType.Truncate
'Backup.ExpirationDate = New DateTime(2007, 5, 1)
' Run the backup
.SqlBackup(Srv)
EndWith
EndUsing
مشكل من اين است كه وقتي بجاي . در data server اي پي شبكه را ميگذارم backup انجام نمي شود دوست عزيز amin sobati در يكي از تاپيكها فرموده بودن بايد
در صورتیکه اکانت سرویس SQL Server اجازه Write روی سایر کامپیوترها رو داشته باشه، میتونین چنین کاری انجام بدین (و اصولا باید انجام داد! نگهداری فایل Backup روی همون هارد دیسکی که دیتابیس رو داره غلط هست. با Crash کردن اون دیسک، Backupهای شما هم از بین میره):
اين اكانت چگونه بايد تنظيم شود
ايا روش فوق جهت backup از سرور خوب است
Dim DevicePath AsString
With SaveFileDialog1
.FileName = "Institute.bak"
.DefaultExt = "bak"
.Filter = "DateBase Backup File(*.bak)|*.bak"
.OverwritePrompt = True
EndWith
SaveFileDialog1.ShowDialog()
DevicePath = SaveFileDialog1.FileName
Using cnn AsNew SqlConnection("Data Source=10.30.40.40;Initial Catalog=Masraf_Rabet;Integrated Security=True")
cnn.Open()
Dim Srvcon AsNew ServerConnection(cnn)
Dim Srv AsNew Server(Srvcon)
' Create backup device item for the backup
Dim bdi AsNew BackupDeviceItem(DevicePath, DeviceType.File)
' Create the backup informaton
Dim Backup AsNew Backup
Backup.Devices.Add(bdi)
With Backup
'Type Of Backup
.Action = BackupActionType.Database
.BackupSetDescription = "Backup DataBase"
.BackupSetName = "DB"
.Database = cnn.Database.ToString()
.LogTruncation = BackupTruncateLogType.Truncate
'Backup.ExpirationDate = New DateTime(2007, 5, 1)
' Run the backup
.SqlBackup(Srv)
EndWith
EndUsing
مشكل من اين است كه وقتي بجاي . در data server اي پي شبكه را ميگذارم backup انجام نمي شود دوست عزيز amin sobati در يكي از تاپيكها فرموده بودن بايد
در صورتیکه اکانت سرویس SQL Server اجازه Write روی سایر کامپیوترها رو داشته باشه، میتونین چنین کاری انجام بدین (و اصولا باید انجام داد! نگهداری فایل Backup روی همون هارد دیسکی که دیتابیس رو داره غلط هست. با Crash کردن اون دیسک، Backupهای شما هم از بین میره):
اين اكانت چگونه بايد تنظيم شود
ايا روش فوق جهت backup از سرور خوب است