بفرمایید
لطف کنید کانکشن استرینگ sql server را برای اون دوست عزیز قرار بدید
Imports System.Data
Imports System.Data.SqlClient
Imports Microsoft.SqlServer.Management.Smo
Imports Microsoft.SqlServer.Management.Common
PublicClass FrmBackUp
PublicConst conString AsString = "Server=.\sqlexpress;" & _
"Integrated Security=SSPI;" & _
"uid=sa;pwd=;database=master"
PublicSub BackupDatabase(ByVal ConnectionStr, ByVal DevicePath, ByVal FileName, ByVal Database)
Using Con AsNew SqlConnection(ConnectionStr)
If Con.State = ConnectionState.Closed Then Con.Open()
Dim Srvcon AsNew ServerConnection(Con)
Dim Srv AsNew Server(Srvcon)
Dim bdi AsNew BackupDeviceItem(FileName, DeviceType.File)
Dim Backup AsNew Backup
Try
With Backup
.Devices.Add(bdi)
.Action = BackupActionType.Database
.BackupSetDescription = "Backup DataBase"
.BackupSetName = "DB"
.Database = Database
.LogTruncation = BackupTruncateLogType.Truncate
.SqlBackup(Srv)
EndWith
MsgBox("ok")
Catch ex As Exception
MsgBox(ex.Message)
EndTry
EndUsing
EndSub
PublicSub RestoreDataBase(ByVal ConnectionStr, ByVal FileName, ByVal Database)
Using Con AsNew SqlConnection(ConnectionStr)
If Con.State = ConnectionState.Closed Then Con.Open()
Dim Srvcon AsNew ServerConnection(Con)
Dim Srv AsNew Server(Srvcon)
Dim deviceItem = New BackupDeviceItem(FileName, DeviceType.File)
Dim Restore AsNew Restore
With Restore
.Devices.Add(deviceItem)
.Action = RestoreActionType.Database
.Database = Database
.SqlRestore(Srv)
EndWith
EndUsing
EndSub
پاسخ با نقل قول