02-11-15, 12:01 AM
السلام عليكم ورحمة الله وبركاته
If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
"Me.TextBox1.Text = SaveFileDialog1.FileName & ".bak
Cursor = Cursors.WaitCursor
Me.Enabled = False
Dim srv As Server
srv = New Server
Dim db As Database
("db = srv.Databases("dbname
Dim recoverymod As Integer
recoverymod = db.DatabaseOptions.RecoveryModel
Dim bk As New Backup
bk.Action = BackupActionType.Database
"bk.BackupSetDescription = "Full backup of dbname
"bk.BackupSetName = "dbname Back
"bk.Database = "dbname
Dim bdi As BackupDeviceItem
(bdi = New BackupDeviceItem(SaveFileDialog1.FileName & ".bak", DeviceType.File
(bk.Devices.Add(bdi
bk.Incremental = False
bk.LogTruncation = BackupTruncateLogType.Truncate
(bk.SqlBackup(srv
End if
هذا الكود لاخذ نسخة احتياطيه backup في sql server 2008 نسخة sql الموجوده عندي ليست express والكود يعمل طبيعي
ولكن عندما انصب البرنامج على حاسبة ثانيه وعلى نسخه sql server Express الكود لا يعمل هل السبب في النسخة ام في الكود
ارجو المساعده او من عنده كود لاخذ نسخة احتياطيه وشكرا