Use Yourdatabasename
GO
create Proc getdatabasebackup
as
Declare @NameDate as varchar(50)
Set @NameDate= REPLACE(Convert(Nvarchar(50),GetDate(),113), ':' , '-')
Declare @BcakupDate varchar(1000)
set @BcakUpDate=N'D:\MyFolder\' + REPLACE(@NameDate,' ','-') +N'.bak'
backup database Yourdatabasename to disk =@BcakUpDate
WITH NOREWIND,COMPRESSION, INIT, FORMAT, CHECKSUM, STOP_ON_ERROR;
GO
'
Dim ConnactionDatabaseBackup As New SqlConnection("نص الاتصال الخاص بك;")
Dim ComBackupSQL As New SqlCommand
ComBackupSQL.CommandText = "[dbo].[getdatabasebackup]"
ComBackupSQL.CommandType = CommandType.StoredProcedure
ComBackupSQL.Connection = ConnactionDatabaseBackup
Try
ConnactionDatabaseBackup.Open()
ComBackupSQL.ExecuteNonQuery()
ConnactionDatabaseBackup.Close()
MsgBox("تم اخذ النسخة الاحتياطية بنجاح")
Catch ex As Exception
MsgBox(ex.ToString)
End Try
طبعاً انا النسخة الاحتياطية التي اريد تخزينها في ملف MYFolder موجود في ال D
لذالك اذا كنت لم تنشئة فيجب عليكء انشاء قبل تشغيل البرنامج