چگونگي پشتيبان گيري از بانك SQL در برنامه vb.net

[safasoft]

با سلام
من مي خواهم در برنامه VB.net خود كدي بنويسم كه بوسيله آن از بانك SQL server پشتيبان تهيه كنم . البته لازم به ذكر است كه من در نرم افزار خود دو بانك دارم كه نام يكي متغير مي باشد و ديگري نام ثابت دارد . و من مي خواهم هر بار از هر دوي آنها پشتيبان تهيه كنم .
از راهنمايي تون ممنون مي شم .

[touraj]

برای پشتیبان گیری یه بانک رو برات میذارم. خودت برای هر دو تا کاملش کن. این هم backup میگیره، هم restore میکنه.

Imports System

Imports System.Data.SqlClient

Imports Microsoft.SqlServer.Management.Common

Imports Microsoft.SqlServer.Management.Smo







Namespace CreateRANU

    Class Program

        Private Shared Sub Main(ByVal args As String())

            BackupDatabase()

            RestoreBackup()

        End Sub

        

        Public Shared Sub BackupDatabase()

            Dim sConnect As String = Properties.Settings.[Default].BackupConnectionString

            Dim dbName As String

            

            Using cnn As New SqlConnection(sConnect)

                cnn.Open()

                dbName = cnn.Database.ToString()

                

                Dim sc As New ServerConnection(cnn)

                Dim sv As New Server(sc)

                

                ' Check that I'm connected to the user instance

                Console.WriteLine(sv.InstanceName.ToString())

                

                ' Create backup device item for the backup

                Dim bdi As New BackupDeviceItem("C:\AppDataBackup\SampleBackup.ba  k", DeviceType.File)

                

                ' Create the backup informaton

                Dim bk As New Backup()

                bk.Devices.Add(bdi)

                bk.Action = BackupActionType.Database

                bk.BackupSetDescription = "SQL Express is a great product!"

                bk.BackupSetName = "SampleBackupSet"

                bk.Database = dbName

                bk.ExpirationDate = New DateTime(2007, 5, 1)

                bk.LogTruncation = BackupTruncateLogType.Truncate

                

                ' Run the backup

                bk.SqlBackup(sv)

                Console.WriteLine("Your backup is complete.")

            End Using

        End Sub

        

        Public Shared Sub RestoreBackup()

            Dim sConnect As String = Properties.Settings.[Default].BackupConnectionString

            Dim dbName As String

            

            Using cnn As New SqlConnection(sConnect)

                cnn.Open()

                dbName = cnn.Database.ToString()

                cnn.ChangeDatabase("master")

                

                Dim sc As New ServerConnection(cnn)

                Dim sv As New Server(sc)

                

                ' Check that I'm connected to the user instance

                Console.WriteLine(sv.InstanceName.ToString())

                

                ' Create backup device item for the backup

                Dim bdi As New BackupDeviceItem("C:\AppDataBackup\SampleBackup.ba  k", DeviceType.File)

                

                ' Create the restore object

                Dim resDB As New Restore()

                resDB.Devices.Add(bdi)

                resDB.NoRecovery = False

                resDB.ReplaceDatabase = True

                resDB.Database = dbName

                

                ' Restore the database

                resDB.SqlRestore(sv)

                Console.WriteLine("Your database has been restored.")

            End Using

        End Sub

        

        Public Shared Sub CreateDatabase()

            Using cn As New SqlConnection("Data Source=.\SQLEXPRESS;Integrated Security=True;User Instance=True;Connection Timeout=60")

                cn.Open()

                Dim cmd As New SqlCommand("CREATE DATABASE forumTest1", cn)

                cmd.ExecuteNonQuery()

                

                Dim cn2 As New SqlConnection("Data Source=.\SQLEXPRESS;Integrated Security=True;AttachDbFilename=|DataDirectory|\for  umTest1.mdf;User Instance=True;Connection Timeout=60")

                    

                cn2.Open()

            End Using

        End Sub

    End Class

End Namespaceمنبع : http://blogs.msdn.com/sqlexpress/

[reza6384]

سلام.

این دوتا Import نشدن ، توی لیست Net. و Com هم نبودن که Add Reference شون کنم ، لطفا بگین از کجا باید Add بشه.

Imports Microsoft.SqlServer.Management.Common

Imports Microsoft.SqlServer.Management.Smo

[elmira_63]

سلام اگه ممکنه راهنمایی کنید منم همین مشکل رو دارم

[touraj]

سلام.

این دوتا Import نشدن ، توی لیست Net. و Com هم نبودن که Add Reference شون کنم ، لطفا بگین از کجا باید Add بشه.

Imports Microsoft.SqlServer.Management.Common

Imports Microsoft.SqlServer.Management.Smo

راستش من به این مشکل بر نخوردم. توی net. بود. مطمئنید SQL رو درست نصب کردید؟

[ali_habibi1384]

راه اصولی:
یک store procedure در sql درست کنید که کار اونها بک آپ گیری و restore مردن باشه . در موقع نیاز اونها رو صدا بزنین .

[elmira_63]

راستشو بخوای من توی sql نمی تونم کار کنم اگه کسی راه حلی توی vb داره خواهشاً بگه خیلی نیازمه

[ameysams]

من خودم از کد زیر استفاده میکنم:

privatevoid button2_Click(object sender, EventArgs e)

{

SqlCommand com = newSqlCommand();

SqlConnection con = newSqlConnection();

messages ms = newmessages();

//**************************************

try

{

folderBrowserDialog1.ShowDialog();

string con_str = "Data Source=(local);Initial Catalog=master;Integrated Security=True";

con.ConnectionString = con_str;

com.Connection = con;

string str = " BACKUP DATABASE video TO DISK='" +

folderBrowserDialog1.SelectedPath + "\\video.bak'";

com.CommandText = str;

con.Open();

com.ExecuteNonQuery();

ms.showing("عملیات با موفقیت انجام شد");

}

catch//(Exception ex)

{

MessageBox.Show( "خطایی رخ داده است ");

}

finally 

{

con.Close();

}

video نام بانک است

[elmira_63]

اگه ممکنه توی vb.net 2005 بگین کدش چیه واقعا دیگه گیج شدم ؟

[Sub Zero]

این تاپیک رو مطالعه کنید جواب سوال شما قبلا داده شده . (پست شماره 4)