حل مشکل پشتیبان گیری و بازیابی برای همیشه

نقل قول:

---

نوشته شده توسط Sub Zero

جناب رضایی منش بالاخره فهمیدم منشا این مشکل کجاست . ببینید در حالت پیش فرض Logon Type سرور به صورت Network Services ست شده برای همین وقتی میخواد به درایو ویندوز دسترسی داشته باشه این خطا رو میده ( فقط درایو ویندوز) برای حل این مشکل باید Logon Type رو روی Local System ست کنید مشکل حل میشه .(از طریق برنامه SQL Server Configuration Manager )
اگر هم قصد دارید تحت شبکه پشتبان گیری و بازگردانی رو انجام بدید سعی کنید برنامه رو توی درایوی غیر از درایو ویندوز نصب کنید چرا که دسترسی به درایو ویندوز ، تحت شبکه یه سری محدودیتها داره
برای اینکه دقیقا متوجه شید چه چیزی باعث بروز مشکل میشه از کد زیر در قسمت Catch استفاده کنید.:

Catch ex As Exception

  MsgBox( ex.InnerException.InnerException.Message, 48, "پیغام")

 End Try

---

سلام
آقا من چیزی با این عناوینی که نوشتی پیدا نکردم لطفا بیشتر راهنمایی کن

اینم عکسش :
http://img29.picoodle.com/data/img29...km_1523bf0.png

سلام
ممنون عوض کردن مشکل حل شد
اما من همچنان تو unzip مشکل دارم
اینم کم مقدار ورودی های تابع هم نوشتم ببین مشکل چیه خطا هم نمی ده اما کار هم نمی کنه

  'FilePath :"E:\VS2005\HomePrj\BongahPrgV2\BongahSadat_Rezvan  iMashhad\BongahPro870520\BongahPro\bin\Debug\BackU  p\"

            'FileName : "[1387_06_03].Zip"

            Using Prs As New Process

                Dim SynName As String = System.IO.Path.GetFileName(FileName)

                With Prs

                    .StartInfo.WorkingDirectory = System.IO.Path.GetDirectoryName(FilePath)

                    .StartInfo.Arguments = String.Format("X Src -hp141 *.bak Dest", SynName)

                    ' .StartInfo.Arguments = String.Format("a -ep -hp141 {1}{0}.Bak {1}{2} -df", SynName, FilePath, FileName)

                    .StartInfo.WindowStyle = ProcessWindowStyle.Hidden

                    .StartInfo.FileName = String.Format("{0}\System\Rar.exe", My.Application.Info.DirectoryPath)

                End With

                Prs.Start()

            End Using

فکر کنم مشکلت تو این خط باشه :

.StartInfo.Arguments = String.Format("X Src -hp141 *.bak Dest", SynName)

به شکل زیر تغییرش بده :

.StartInfo.Arguments = String.Format("X {0} -hp141 *.bak Dest", SynName)

ببخشید آقای sub zero
من هنوز برای برنامه ام، برنامه نصب درست نکرده ام .
1- حال اگر بخواهم انرا بر روی یک کامپیوتر دیگر که در آن بانک sql نصب نیست و از روی شبکه و از طریق ip به بانک متصل می شود ببرم این dll ها را در کجا بریزم تا پشتیبان گیری کار کند.
2- من بانکم را در سرور بر روی درایو C(درایو ویندوز) نصب کرده ام آیا به همین خاطر خطای "faield for server "را می دهد یا باید کار دیگری انجام دهم.
3- بانک من sql 2000 است.
برنامه شما به صورت لوکال و در کامپیوتر خودم (vs2005 و sql2000 بر روی آن نصب است)کار می کرد.
منتظر راهنمایی شما و سایر اساتید هستم.

نقل قول:

---

نوشته شده توسط mohammad-gh

ببخشید آقای sub zero
من هنوز برای برنامه ام، برنامه نصب درست نکرده ام .
1- حال اگر بخواهم انرا بر روی یک کامپیوتر دیگر که در آن بانک sql نصب نیست و از روی شبکه و از طریق ip به بانک متصل می شود ببرم این dll ها را در کجا بریزم تا پشتیبان گیری کار کند.
2

---

این فایلها باید دقیقا کنار فایل اجرایی برنامتون باشند .

نقل قول:

---

- من بانکم را در سرور بر روی درایو C(درایو ویندوز) نصب کرده ام آیا به همین خاطر خطای "faield for server "را می دهد یا باید کار دیگری انجام دهم.

---

نقل قول:

---

3- بانک من sql 2000 است.
برنامه شما به صورت لوکال و در کامپیوتر خودم (vs2005 و sql2000 بر روی آن نصب است)کار می کرد.

---

بله در چند پست قبل هم اشاره کردم که به دلیل محدودیتهایی که برای دسترسی به درایو ویندوز ، در شبکه وجود داره این مشکل پیش میاد پس سعی کنید برنامه و دیتابیس ها رو در درایوی غیر از درایو ویندوز نصب کنید . البته شاید راهی هم برای حل این مشکل باشه مثلا نوع Authentication رو عوض کنیم اما من تا حالا امتحانش نکردم .

با سلام مراحل بکاپ گیری از بانک اطلاعاتی sqlserver2000 در vb.net به من بگوید با تشکر:لبخند:

نقل قول:

---

نوشته شده توسط mohammad akbri

با سلام مراحل بکاپ گیری از بانک اطلاعاتی sqlserver2000 در vb.net به من بگوید با تشکر:لبخند:

---

به پست شماره 4 همین تاپیک مراجعه کنید

خیلی ممنون کاربر sub zero از بابت این کد backup

با سلام
من همه مراحل بالا رو امتحان کردم ، فقط سرعت پشتیبان گیری (زمانیکه حجم بانک بالا میره ) داره پایین میاد . اما تو یه برنامه حسابداری دیدم در 2 ثانیه پشتیبان گیری می کرد هر چی هم حجم بانک بالا میرفت تاثیری در سرعت پشتیبان گیری نداشت . چطوری میشه سرعت رو بالا برد؟

با سلام

من براي بك آپ از كدهاي اينجا استفاده كردم ولي وقتي با سورس كار ميكنم مشكلي ندارم اما وقتي كه setup تهيه ميكنم backup failed to server ميده در صورت امكان دوستان راهنمايي بفرمايند.
با تشكر

از دوستان كسي راهنمايي نميكنه؟

سلام دوستان

فرمایش همه شما متین، اما مشکلی که هست اینه که sqlserver فایل رو در اختیار می گیره و نمی ذاره که باهاش کار کرد.

یعنی میگه که فایل توسط برنامه یا شخص دیگری داره استفاده می شه، مخصوصا زمانی که با SqlExpress کار می کنیم.

اگر لطف کنید راه حلی برای این مورد آخر ارائه بدین بی نهایت ممنون می شم.

نقل قول:

---

نوشته شده توسط Sub Zero

سلام دوست عزیز کارهایی که بهشون اشاره کردی (برنامه حسابداری هلو) کد نویسی بسیار ساده ای داره . در واقع یکی از ویژگیهای جدید .Net این اجازه رو به برنامه نویس میده که بدون استفاده از توابع Sql و تنها با اضافه کردن چند رفرنس و اجرای فانکشهای از پیش تعریف شده اونها ، اعمال مورد نظر رو انجام بده .
مراحل انجام کار رو برات توضیح میدم .
ابتدا رفرنس های زیر رو به برنامتون اضافه کنید :
Microsoft.SqlServer.Smo
Microsoft.SqlServer.ConnectionInfo
بعد nameSpace های زیر رو به صورت زیر به کلاستون Import کنید :

Imports System.Data.SqlClient

Imports Microsoft.SqlServer.Management.Smo

Imports Microsoft.SqlServer.Management.Common

کد زیر رو برای گرفتن پشتیبان از دیتابیس استفاده کنید.

 Public Shared Sub BackupDatabase(ByVal ConnectionStr As String, ByVal DevicePath As String)

Dim DataName As String="DataBaseName.bak"

        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(DevicePath & 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

پارامترهای این رویه شامل کانکشن استرینگ که رشته مربوط به اتصال به دیتابیس رو مشخص میکنه و Device Path که مسیر ذخیره بانک اطلاعاتی رو مشخص میکنه هست . شما میتونید با استفاده از یک SaveFileDialog این مسیر رو از کاربر دریافت کنید .
متغییر DataName نام فایل پشتیبان رو مشخص میکنه که پسوند اون bak است.
تا اینجا مربوط به پشتیبان گیری بود. برای انجام عمل restore از رویه زیر استفاده کنید.:

Public Shared Sub RestoreBackup(ByVal ConnectionStr As String, ByVal DevicePath As String)

        Using cnn As New SqlConnection(ConnectionStr)

            cnn.Open()

            Dim DBName As String = cnn.Database

            cnn.ChangeDatabase("master")

            Dim Srvcon As New ServerConnection(cnn)

            Dim Srv As New Server(Srvcon)

            ' Create backup device item for the backup

            Dim bdi As New BackupDeviceItem(DevicePath, DeviceType.File)

            ' Create the restore object

            Dim Restore As New Restore()

            'cnn.Close()

            With Restore

                .Devices.Add(bdi)

                .NoRecovery = False

                .ReplaceDatabase = True

                .Database = DataBaseName.bak

                ' Restore the database

                Srv.KillAllProcesses(DBName) 'Important Code For Remove All Processes

                .SqlRestore(Srv)

            End With

        End Using

End Sub

پارامترها مانند قبلند با این تفاوت که Device Path در اینجا شامل مسیر ونام بانک اطلاعاتی است که میتوان با استفاده از OpenFileDialog آن را از کاربر دریافت نمود . متد ChangeDatabase نیز باعث میشه مشکلی که جناب rezaei manesh بهش اشاره کردن پیش نیاد . برای اطمینان بیشتر متد KillAllProcesses رو هم استفاده کنید .
لازم به ذکر است که این روش رو خودم بارها پیاده سازی کردم وکاملا هم جواب داده . اگه جایی مشکل پیدا کردی مطرح کن .

---

ميشه يك نمونه قرا بديد

دست دوستان درد نكنه مطالب بسيار جالب و مفيده