مشکل در بکاپ گیری از بانک برنامه

[systam]

سلام من با این کد از برنامه بکاپ میگیرم مشکلی نداره

Dim save1 As New SaveFileDialog
'save1.DefaultExt = "Bak"
save1.Filter = "SQL Backup Files (*.BAK)|*.BAK |All Files(*.*)|*.0*)"
save1.FileName = "Database"
save1.OverwritePrompt = True
'save1.FilterIndex = 1


If save1.ShowDialog = Windows.Forms.DialogResult.OK Then
Dim str As String = "\Database.mdf"
Dim con As New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirector y|\Database.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True")
con.Open()
Dim cmd As New SqlCommand()
cmd.Connection = con
cmd.CommandType = CommandType.Text
cmd.CommandText = "USE master backup database [" + System.Windows.Forms.Application.StartupPath & str + "] to disk = '" + save1.FileName.ToString + "'"
'con.Open()
cmd.ExecuteNonQuery()
con.Close()
MessageBox.Show("نسخه پشتیبان با موفقیت تهیه گردید")
End If

و لی برای بازیابی با این کد هر کار میکنم نمیدونم چیه سایت برنامه نویس رو زیرو کردم هر کدی رو بکی امتحان کردم نشد

Dim Open1 As New OpenFileDialog
'Open1.DefaultExt = "Bak"
'Open1.Filter = "SQL Backup Files (*.BAK)|*.BAK |All Files(*.*)|*.0*)"
Open1.FileName = "Database"
Open1.FilterIndex = 1


If Open1.ShowDialog = Windows.Forms.DialogResult.OK Then
Dim str As String = "\Database.mdf"

Dim con As New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirector y|\Database.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True")
con.Open()
Dim cmd As New SqlCommand()
cmd.Connection = con
cmd.CommandType = CommandType.Text
'cmd.CommandText = "USE [master] RESTORE DATABASE [" + System.Windows.Forms.Application.StartupPath & str + "] from disk = '" + Open1.FileName.ToString + "'"
cmd.CommandText = "USE MASTER RESTORE DATABASE [" + System.Windows.Forms.Application.StartupPath & str + "] FROM DISK = N'" + Open1.FileName.ToString + " '"
'con.Open()
cmd.ExecuteNonQuery()
con.Close()
MessageBox.Show("بازیابی با موفقیت انجامبد")
Form1_Load(e, sender)
End If

دوستان راهنمایی کنید مشکل کارکجایه خدا خیرتان بده


یا علی

[systam]

یک سیخ زدن اسم بانک رو عوض کردم با این خطا overwrite رو میده

[misagh1370]

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

 Private Sub Restore(ByVal strFileName As String)

        '  USE Master RESTORE DATABASE [lendCashDB] FROM DISK =@PATH



        Try



            Dim command As String = "use [master]; RESTORE DATABASE project1 from disk='" + strFileName + "'with file = 1, NOUNLOAD, REPLACE, STATS = 10 "

            'this.Cursor = Cursors.WaitCursor;

            Dim ocommand As SqlCommand

            Dim oConnection As SqlConnection

 oConnection = New SqlConnection("Data Source=mahtab-pc;Initial Catalog=project1;Integrated Security=True")

            If oConnection.State <> ConnectionState.Open Then

                oConnection.Open()

            End If

            ocommand = New SqlCommand(command, oConnection)

            MessageBox.Show(command)

            ocommand.ExecuteNonQuery()

            'this.Cursor = Cursors.Default

            oConnection.Close()

            MessageBox.Show("بازیابی اطلاعات از نسخه پشتیبان با موفقیت انجام شد ")





        Catch ex As Exception



            MessageBox.Show("Error Occurd :" + ex.Message)

        End Try

    End Sub





    Private Sub btnreastor_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnreastor.Click

        Dim strFileName As String = String.Empty

        OpenFileDialog1.Filter = "SQL Backup files (*.BAK) |*.BAK|All files(*.*)|*.*"



        OpenFileDialog1.FilterIndex = 1

        OpenFileDialog1.Title = "Restore SQL File"

        If OpenFileDialog1.ShowDialog() = DialogResult.OK Then



            strFileName = OpenFileDialog1.FileName



            Restore(strFileName)

        End If

    End Sub

[shadi khanum]

توی دستور REsotre از move استفاده کن، تو help خود SQL اگه Restore رو سرچ کنی دستور کامل رو با Sample میاره. این Err داره میگه شما باید مسیر جدیدی برای restore شدن فیل های mdf و ldf مشخص کنی..

[systam]

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

فرقی نکرد همون خطا قبلی رو میده

[shadi khanum]

دستوری که دوستمون نوشته هم فایل ها رو move نمیکنه برای همین خطا میده

RESTORE DATABASE AdventureWorks2008R2    FROM AdventureWorks2008R2Backups    WITH NORECOVERY,        MOVE 'AdventureWorks2008R2_Data' TO  'C:\Program Files\Microsoft SQL Server\MSSQL10_50.MSSQLSERVER\MSSQL\Data\NewAdvWor  ks2008R2.mdf',        MOVE 'AdventureWorks2008R2_Log'  TO 'C:\Program Files\Microsoft SQL Server\MSSQL10_50.MSSQLSERVER\MSSQL\Data\NewAdvWor  ks2008R2.ldf' 

برای اطلاعات خودت درستش کن

[systam]

سلام
من که بریدم دیگه این برنامه دوستان کی میتونه کمکم کنه
برنامه رو ضمیمه کردم

[systam]

من الان commandtext داخلش اینه :

" USE Master RESTORE database [E:\test\test\bin\Debug\db.mdf] FROM DISK ='E:\db.BAK' WITH NORECOVERY , MOVE 'db' TO 'E:\test\test\bin\Debug\db.mdf', MOVE 'db_log' TO ' E:\test\test\bin\Debug \db_log.ldf' "

خطایی که میگیره

[systam]

طبق این صفحه هم پیش رفتم نشد

[systam]

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

سلام من هر کدی رو بگی امتحان کردم نشد
نکنه که باید بانک در sql server باشه کار انجام بشه
من از sql خود .net استفاده میکنم
مشکل از اون نیست

[فرید نجفلو]

سلام
دوست عزیز من نمونه برنامه شما رو با این کد تست کردم و بازیابی به خوبی انجام شد

Imports System.Data.SqlClient

Public Class Form1



    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim sta As New SqlDataAdapter("select * from r", "Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirector  y|\db.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True")

        Dim ds As New DataSet

        Dim bs As New BindingSource

        ds.Clear()

        sta.Fill(ds, "r")

        bs.DataSource = ds

        bs.DataMember = "r"

        DataGridView1.AutoGenerateColumns = True

        DataGridView1.DataSource = bs



    End Sub



    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Dim Open1 As New OpenFileDialog

        Open1.FileName = "db"

        Open1.FilterIndex = 1



        If Open1.ShowDialog = Windows.Forms.DialogResult.OK Then

            Dim str As String = "\db.mdf"



            Dim con As New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirector  y|\db.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True")

            con.Open()

            Dim cmd As New SqlCommand()

            SqlConnection.ClearAllPools()

            cmd.Connection = con

            cmd.CommandType = CommandType.Text

            cmd.CommandText = "USE MASTER RESTORE DATABASE [" + System.Windows.Forms.Application.StartupPath & str + "] FROM DISK = N'" + Open1.FileName.ToString + " '"

            cmd.ExecuteNonQuery()

            con.Close()

            MessageBox.Show("بازیابی با موفقیت انجامبد")

            Form1_Load(Nothing, Nothing)

        End If

    End Sub

End Class

نکنه که باید بانک در sql server باشه کار انجام بشه
من از sql خود .net استفاده میکنم
مشکل از اون نیست

تو این مورد اگه از VS به دیتابیس متصل شدید قبل از اینکه برنامه رو اجرا کنید کطمئن بشید اتصال دیتابیس رو بسته باشید
از server Explorer رو دیتابیس کلیک راست و Close connection رو بزنید

[systam]

سلام
دمت گرم داش فرید کد commandtext که شما گذاشتید رو گذاشتم به راحتی کار کرد


میبنید ادمی که بلد نیست همینه دیگه
4 روزه الافم که مشکل کجا بوده جون بانک برنامه در server explorer باز بوده

برنامه رو ضمیمه میکنند که دوستانی که مشکل من رو داشتند بتونند از برنامه استفاده کنند
بانک برنامه خالی یک فایل بکاپ گرفته شده از قبل داخل فایل فشرده هست
میتونند از همون تست رو انجام بدند




یا علی