مشکل backup & restore

[elmira_63]

سلام دوستان
من یه هفته هست که میون این تاپیک ها دنبال یه کد برای پشتیبان گیری توی برنامم می گردم ولی از هیچ کدومش نتونستم استفاده کنم آخه هر کدوم رو که کپی میکنم توی برنامم err میگیره تموم رفرنس هایی هم که گفته شده بود رو اضافه کردم
کسی نیست بتونه واضح برام این backup و restore رو توضیح بده؟؟؟؟؟؟؟؟؟؟
به خدا دیگه کلافه شدم
اللهم اجل لولیک الفرج

[touraj]

سلام دوستان
من یه هفته هست که میون این تاپیک ها دنبال یه کد برای پشتیبان گیری توی برنامم می گردم ولی از هیچ کدومش نتونستم استفاده کنم آخه هر کدوم رو که کپی میکنم توی برنامم err میگیره تموم رفرنس هایی هم که گفته شده بود رو اضافه کردم
کسی نیست بتونه واضح برام این backup و restore رو توضیح بده؟؟؟؟؟؟؟؟؟؟
به خدا دیگه کلافه شدم
اللهم اجل لولیک الفرج

این چهارمین تاپیکیه که داری این مطلب رو توش مینویسی. تو یه تاپیک ادامه بده. مطمئن باش به جواب خواهی رسید. 2 بار به خاطر این موضوع تاپیک زدی. اینجوری که نمیشه.
همین تاپیکت هم مشکل داره. چون کسی که میاد و میخونه، همون کدها و همون حرفهای قبلی رو میزنه. اونوقت شما دوباره میری یه تاپیک جدید میزنی.

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

[VisualStudio]

من یک همچین کدی دارم ببین به کارت میاد

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

[elmira_63]

ببخشید
حالا بچه که زدن نداره عزیز
من تازه عضو این سایت شدم نمی دونستم اگه توی همون تاپیک قبلی یه موضوعی اضافه کنم سوالم میاد اول صفحه فکر میکردم سوالم رفت صفحه دوم دیگه کسی نگاش نمی کنه
از ورژن profesional استفاده می کنم البته اون رفرنسایی که توی تاپیکای قبلی گفته شده بود روی یه سیستم دیگه پیدا کردم و به برنامم اضافه کردم ولی این کد رو که برای backup میزنم

Imports System

Imports System.Data.SqlClient

Imports Microsoft.SqlServer.Management.Smo

Imports Microsoft.SqlServer.Management.Common

 

Public Class backup

Public Shared Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click

Dim DataName As String = "zaban.bak"

Dim connectionstr As String = "data source='" & ser & "';Initial Catalog=zaban;Integrated Security=True"

Using cnn As New SqlConnection(ConnectionStr)

cnn.Open()

Dim Srvcon As New ServerConnection(cnn)

Dim Srv As New Server(Srvcon)

' Create backup device item for the backup

Dim bdi As New BackupDeviceItem("f:\zaban\zaban\database" & DataName, DeviceType.File)

' Create the backup informaton

Dim Backup As New backup

Backup.Devices.Add(bdi)

 

With Backup

'Type Of Backup

.Action = BackupActionType.Database

.BackupSetDescription = "Backup DataBase"

.BackupSetName = "DB"

.Database = cnn.Database.ToString()

.LogTruncation = BackupTruncateLogType.Truncate

'Backup.ExpirationDate = New DateTime(2007, 5, 1) 

' Run the backup

.SqlBackup(Srv)

End With

End Using

End Sub

End Class 

اینایی که زیرش خط کشیدم رو err میزنه که Error 1 'Devices' is not a member of 'zaban.backup'. F:\zaban\zaban\zaban\backup.vb 18 13 zaban

توی آدرس f:\zaban\zaban\database هم یه بار از توی sql از دیتا بیسم backup گرفتم قبلا
حالا با همه این تفاسیری که گفتم اگه کسی میدونه مشکل من چیه بدون هیچ زور و اجباری کمکم کنه
راستی من این کد ها رو توی onmouseclick یه button نوشتم دیگم نمی دونم توضیح دیگهای باید بدم یا نه؟؟؟؟؟؟
در ضمن رفرنس های interop.sqldmo و interop.sqlns رو هم اضافه کردم به برنامم

[elmira_63]

ممنون از آقای /خانم visual stdio ولی این کد رو هم امتحان کردم دقیقاً همون ایراد بالا رو می گیره به علاوه این که میزنه Error 10 Name 'Properties' is not declared. F:\zaban\zaban\zaban\backup.vb 47 38 zaban

[touraj]

ممنون از آقای /خانم visual stdio ولی این کد رو هم امتحان کردم دقیقاً همون ایراد بالا رو می گیره به علاوه این که میزنه Error 10 Name 'Properties' is not declared. F:\zaban\zaban\zaban\backup.vb 47 38 zaban

دیدی گفتم خانمی که همون جواب رو بهت میدن؟
دلیل این مشکلت رو نمیدونم. اما دو تا پیشنهاد دیگه دارم:

1. برای پست مطلبت "ارسال پاسخ" رو کلیک کن.
دکمه # رو کلیک کن و کدهایی که نوشتی رو بین دو تا تگ قرار بده که خوانا بشه.

2. مواردی که مشکل داره رو قرمز کن. اینطوری بقیه بهتر میبینن.

در ضمن، شما بچه نیستی. من هم جسارتی نکردم. اگه ناراحت شدی ببخشید.

[elmira_63]

Imports System

Imports System.Data.SqlClient

Imports Microsoft.SqlServer.Management.Smo

Imports Microsoft.SqlServer.Management.Common



Public Class backup

Public Shared Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click

Dim DataName As String = "zaban.bak"

Dim connectionstr As String = "data source='" & ser & "';Initial Catalog=zaban;Integrated Security=True"

Using cnn As New SqlConnection(ConnectionStr)

cnn.Open()

Dim Srvcon As New ServerConnection(cnn)

Dim Srv As New Server(Srvcon)

' Create backup device item for the backup

Dim bdi As New BackupDeviceItem("f:\zaban\zaban\database" & DataName, DeviceType.File)

' Create the backup informaton

Dim Backup As New backup

Backup.Devices.Add(bdi)



With Backup

'Type Of Backup

.Action = BackupActionType.Database

.BackupSetDescription = "Backup DataBase"

.BackupSetName = "DB"

.Database = cnn.Database.ToString()

.LogTruncation = BackupTruncateLogType.Truncate

'Backup.ExpirationDate = New DateTime(2007, 5, 1) 

' Run the backup

.SqlBackup(Srv)

End With

End Using

End Sub

End Class

واقعا معضرت میخوام خوب تازه واردم دیگه
اینم کدی که استفاده می کنم

[Sub Zero]

فکر کنم یه BackSlash جا انداختی

Dim bdi As New BackupDeviceItem("f:\zaban\zaban\database\" & DataName, DeviceType.File)

[elmira_63]

ولی عزیز مشکل من اینه که این کد انقدر err میگیره که اصلا وارد برنامه نمی شه که بخواد انجام بده یا نده
این خطایی که قرمز کردم رو err میگیره

Imports System

Imports System.Data.SqlClient

Imports Microsoft.SqlServer.Management.Smo

Imports Microsoft.SqlServer.Management.Common



Public Class backup

Public Shared Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click

Dim DataName As String = "zaban.bak"

Dim connectionstr As String = "data source='" & ser & "';Initial Catalog=zaban;Integrated Security=True"

Using cnn As New SqlConnection(ConnectionStr)

cnn.Open()

Dim Srvcon As New ServerConnection(cnn)

Dim Srv As New Server(Srvcon)

' Create backup device item for the backup

Dim bdi As New BackupDeviceItem("f:\zaban\zaban\database" & DataName, DeviceType.File)

' Create the backup informaton

Dim Backup As New backup

Backup.Devices.Add(bdi)



With Backup

'Type Of Backup

.Action = BackupActionType.Database

.BackupSetDescription = "Backup DataBase"

.BackupSetName = "DB"

.Database = cnn.Database.ToString()

.LogTruncation = BackupTruncateLogType.Truncate

'Backup.ExpirationDate = New DateTime(2007, 5, 1) 

' Run the backup

.SqlBackup(Srv)

End With

End Using

End Sub

End Class

ایرادی که می گیره مثلا برای خط آخر اینه

Error 7 'SqlBackup' is not a member of 'zaban.backup'. F:\zaban\zaban\zaban\backup.vb 29 17 zaban

[Sub Zero]

توی تاپیکی که بهت ادرس دادم نوشته بودم بارها بااین کد از دیتابیس Backup گرفتم اگه میتونی سورس برنامت رو برام بذار تا یه نگاهی بهش بندازم .
در ضمن این ser که توی کانکشن استرینگ ازش استفاده کردی چیه کجا مقدار دهی شده؟

[elmira_63]

نمی دونم والا
وقتی برنامم برای اولین بار اجرا روی یه سیستم اجرا بشه میاد نام سرور رو توی یه فایل ini. ذخیره میکنه بعد برای اتصال به دیتابیس به جای استفاده از نام مسقیم دیتابیس نام سرور که توی ini. ریخته بودم رو همون اول برنامه میریزه توی این متغییر ser و جاهای مختلف برنامه از اون برای اتصال به دیتابیس از اون استفاده میکنم ولی فکر نمی کنم اشکال از اینجا باشه
من روی این سیستمم ویندوز سرور نصب و ورژن sql رو هم زده 5.2 سرویس پک 2 در ضمن روی این سیستم اون آدرسی که قبلا گفته بودین D:\Program Files\Microsoft SQL Server\90\SDK\assembely
رو نداره تا اینجاش هست D:\Program Files\Microsoft SQL Server\90\SDK
اون رفرنسایی که توی فلدر assembely هست رو از روی یه سیستم دیگه کپی کردم آوردم نصب کردم امکانش هست که sql من مشکل داشته باشه؟؟؟؟؟؟؟؟

[Sub Zero]

امکانش هست که sql من مشکل داشته باشه؟؟؟؟؟؟؟؟

برای همین گفتم اگه میتونی سورست روبده تا برات درستش کنم چون ظاهرا کدهایی که استفاده کردی مشکلی ندارن .
درضمن به جای استفاده از فایل .INI از My.Settings استفاده کن . بدین صورت که متغییری که میخوای در سراسر برنامت ازش استفاده کنی رو در قسمت Settings از تب Project Properties تعریف کن .

[elmira_63]

اگه لطف کنید email تون رو بدید براتون mail میکنم سورس رو

[Sub Zero]

Email رو تو امضام نوشتم .

[elmira_63]

آقا کسی مشکل ما رو متوجه نشد چیه؟؟؟؟
روی یه سیستم دیگه که sql سالم داشت هم امتحان کردم ولی ربطی به اون نداشت بازم همون مشکل رو داره ولی فکر کنم مشکل از اون device باشه یا درست ننوشتم فرمتش رو یا یه اشکالی داره
تو رو خدا یکی کمک کنه کلافه شدم

[linux]

ولی عزیز مشکل من اینه که این کد انقدر err میگیره که اصلا وارد برنامه نمی شه که بخواد انجام بده یا نده
این خطایی که قرمز کردم رو err میگیره

Imports System

Imports System.Data.SqlClient

Imports Microsoft.SqlServer.Management.Smo

Imports Microsoft.SqlServer.Management.Common

 

Public Class backup

Public Shared Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click

Dim DataName As String = "zaban.bak"

Dim connectionstr As String = "data source='" & ser & "';Initial Catalog=zaban;Integrated Security=True"

Using cnn As New SqlConnection(ConnectionStr)

cnn.Open()

Dim Srvcon As New ServerConnection(cnn)

Dim Srv As New Server(Srvcon)

' Create backup device item for the backup

Dim bdi As New BackupDeviceItem("f:\zaban\zaban\database" & DataName, DeviceType.File)

' Create the backup informaton

Dim Backup As New backup

Backup.Devices.Add(bdi)

 

With Backup

'Type Of Backup

.Action = BackupActionType.Database

.BackupSetDescription = "Backup DataBase"

.BackupSetName = "DB"

.Database = cnn.Database.ToString()

.LogTruncation = BackupTruncateLogType.Truncate

'Backup.ExpirationDate = New DateTime(2007, 5, 1) 

' Run the backup

.SqlBackup(Srv)

End With

End Using

End Sub

End Class

ایرادی که می گیره مثلا برای خط آخر اینه

Error 7 'SqlBackup' is not a member of 'zaban.backup'. F:\zaban\zaban\zaban\backup.vb 29 17 zaban

شما 2000 استفاده می کنید یا 2005؟ باید smo یا dmo با رفرنسهای پروژه اضافه کنید

[elmira_63]

از 2000 استفاده می کنم smo رو هم اضافه کردم ولی dmo رو نه اگه لازمه اونم میرم پیدا می کنم اضافه می کنم ؟؟؟؟؟

[elmira_63]

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

[elmira_63]

کسی نیست مرا یاری کند؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

[elmira_63]

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

[bensaeed]

خوب بيد ولي من با سي شارپ ميخام