كود النسخ الاحتياطى

السلام عليكــم ورحمـة الله وبركاتــه ،،

انا شغال vb.net 2005 + sql

عندى مشكلة فى كود النسخ الاحتياطى لقاعدة البيانات

وده الكود المستخدم

ارجو من الاخوة المشرفين والاعضاء المساعدة فى كتابة الكود بصورة صحيحة

Dim Conn As New SqlConnection(con)

Dim con As String = "Data

Source=.\SQLEXPRESS;AttachDbFilename=" & Application.StartupPath & "\Pyramidsv12009DB.mdf;Integrated Security=True;User Instance=True"

'Dim Conn = New SqlClient.SqlConnection("Connection String")

Dim objData = New SqlClient.SqlCommand

Try

Dim SQLs As String = "backup DataBase Pyramidsv12009DB.mdf to disk = @Path "

objData.Parameters.Clear()

objData.Parameters.Add("@Path", SqlDbType.NVarChar).Value = "c:\Backup.mdf"

Conn.Open()

objData.Connection = Conn

objData.CommandText = SQLs

objData.ExecuteNonQuery()

Conn.Close()

MessageBox.Show("Backup Data Completed")

Catch ex As Exception

MessageBox.Show(ex.Message)

Conn.Close()

End Try

Dim Conn As New SqlConnection(con)

Dim con As String = "Data

Source=.\SQLEXPRESS;AttachDbFilename=" & Application.StartupPath & "\Pyramidsv12009DB.mdf;Integrated Security=True;User Instance=True"

'Dim Conn = New SqlClient.SqlConnection("Connection String")

Dim objData = New SqlClient.SqlCommand

Try

Dim SQLs As String = "backup DataBase Pyramidsv12009DB.mdf to disk = @Path "

objData.Parameters.Clear()

objData.Parameters.Add("@Path", SqlDbType.NVarChar).Value = "c:\Backup.mdf"

Conn.Open()

objData.Connection = Conn

objData.CommandText = SQLs

objData.ExecuteNonQuery()

Conn.Close()

MessageBox.Show("Backup Data Completed")

Catch ex As Exception

MessageBox.Show(ex.Message)

Conn.Close()

End Try