عمل back up للداتا بيز

حدد نوع الداتا بيس

قاعد البيانات هي

SQL server 2000

أرجو ممن يعرف الحل الإفادة

بأسرع وقت....

اخى العزيز

عندما كنت اقوم بالعمل فى مشروع التخرج قابلتنى هذه المشكلة و لكنى تغلبت عليها بالطريقة الاتيه

كنت اقوم بنسخ ملف الmdf الى مكان اخر وعندما ايرد ان ارجعه الى العمل مرة اخرى اقوم بعمل attach له فى ال sql server

هذا هو الكود الذى يقوم بنسخ الملف

Imports System.IO
    File.Copy("تكتب هنا مسار الملف ال mdf", "و تكتبهنا المسار الذى تريد وضع الملف فيه ", True)

يجب ان تقوم بايقاف الserver agent اولا لأنه اذا كان السيرفر متصل بقاعدة البيانات لن يقمو بالنسخ

والكود الذى تستعمله لعمل attach لقاعدة البيانات فى ال sever هو

Dim conn As New SqlConnection("Database= master;integrated security= true")
        Dim CheckDataBase As New SqlCommand("IF not EXISTS (SELECT name FROM master.dbo.sysdatabases WHERE name = N'7s')" & _
 "EXECUTE sp_attach_single_file_db 'اسم قاعدة البيانات , المسار الى فيه الملف .MDF", conn)
        Try
            conn.Open()
            CheckDataBase.ExecuteNonQuery()
        Catch exc As System.Exception
            MsgBox(exc.Message)
            Application.Exit()
        Finally
            conn.Close()
            End Try

شكرا لك أخي العزيز...

وقد وجدت أيضا طريقة أخرى بدون ايقاف الsql server.وهي عن طريق اضافة ملفSQLDMo

الموجود في المسارالتالي:

C:\programfiles\microsoftSQLServer\tools\80\binn

و استخدامه عن طريق :

Dim SqlServ AsNew SQLDMO.SQLServer()

Dim BackUp AsNew SQLDMO.Backup()

SqlServ.LoginSecure = True

SqlServ.Connect(SqlNAme)

BackUp.Database = DatabaseName

BackUp.Action = SQLDMO.SQLDMO_BACKUP_TYPE.SQLDMOBackup_Database

BackUp.Files = "[" & BackupPath & "\ " & DatabaseName & " .bak]"

BackUp.SQLBackup(SqlServ)

ويمكن تغيير مكان الباك اب عن طريق وضع open file dialog...

تحياتي

شكرا على هذه المعلومة

لو كانت قاعدة البيانات اكسس

كيف ستكون الطريقة ؟

أخي لو كانت أكسس

كيف نعمل الها باك اب

أرجو وضع الكود بالتوضيح

شكرا لاخوان على الجواب انا ايضا كنت محتاج لهذا

السلام عليكم

الاخ OROBAH

كيف يمكن ان احصل على الملف SQLDMO

هل اعمل imports له عملت imports .SQLDMOولكن يوجد خطأ

ارجو ان توضح لى كيف يمكن عملها

قم باضافة reference كما بالصورة

assmb كتب:

السلام عليكم

الاخ OROBAH

كيف يمكن ان احصل على الملف SQLDMO

هل اعمل imports له عملت imports .SQLDMOولكن يوجد خطأ

ارجو ان توضح لى كيف يمكن عملها

إخواني عندي نفس الإستفساااااااااااااااااااااااااااااااااااااار

إخواني الأفاضل السلام عليكم ورحمة الله وبركاته ..

كيف أستطيع عمل إستعادة للنسخة الإحتياطية التي قمت بإنشاءها بنجاااااااااااااح

هذا وللعلم بأنني قد جربت الشفرة التالية لعملية النسخة الإحتياطية وقد نجحت معي 100% حيث كانت الشفرة بالشكل التالي :

		Dim SqlServ As New SQLDMO.SQLServer()
		Dim BackUp As New SQLDMO.Backup()
		SqlServ.LoginSecure = True
		SqlServ.Connect(".\sqlexpress")
		Dim MyBackupPath As String = "C:\MyPath"
		Dim MyDataBase As String = "MySqlServerDataBase"
		BackUp.Database = MyDataBase
		BackUp.Action = SQLDMO.SQLDMO_BACKUP_TYPE.SQLDMOBackup_Database
		BackUp.Files = "[" & MyBackupPath & "\ " & MyDataBase & " .bak]"
		BackUp.SQLBackup(SqlServ)
		MsgBox("Backup Successed")

ولقد نجحت معي 100% وإنشأ ملف بإمتداد Bak في المسار الذي حددته ..

الأن كيف أستطيع عمل إستعادة لهذه النسخة في أي وقت أشاء لأتأكد من صحة إنشاء هذه النسخة بنجاااااااااااااااااح

أرجوا إفادتي في هذا الموضوع للأهمية القصوى وبأسرع وقت ممكن ..

mqmmss كتب:

إخواني الأفاضل السلام عليكم ورحمة الله وبركاته ..

كيف أستطيع عمل إستعادة للنسخة الإحتياطية التي قمت بإنشاءها بنجاااااااااااااح

هذا وللعلم بأنني قد جربت الشفرة التالية لعملية النسخة الإحتياطية وقد نجحت معي 100% حيث كانت الشفرة بالشكل التالي :

		Dim SqlServ As New SQLDMO.SQLServer()
		Dim BackUp As New SQLDMO.Backup()
		SqlServ.LoginSecure = True
		SqlServ.Connect(".\sqlexpress")
		Dim MyBackupPath As String = "C:\MyPath"
		Dim MyDataBase As String = "MySqlServerDataBase"
		BackUp.Database = MyDataBase
		BackUp.Action = SQLDMO.SQLDMO_BACKUP_TYPE.SQLDMOBackup_Database
		BackUp.Files = "[" & MyBackupPath & "\ " & MyDataBase & " .bak]"
		BackUp.SQLBackup(SqlServ)
		MsgBox("Backup Successed")

ولقد نجحت معي 100% وإنشأ ملف بإمتداد Bak في المسار الذي حددته ..

الأن كيف أستطيع عمل إستعادة لهذه النسخة في أي وقت أشاء لأتأكد من صحة إنشاء هذه النسخة بنجاااااااااااااااااح

أرجوا إفادتي في هذا الموضوع للأهمية القصوى وبأسرع وقت ممكن ..

up