reza_edu
دوشنبه 17 آبان 1389, 00:45 صبح
سلام مهندسان گرامی
به این عکس ها و کد ها نگاه کنید:
http://up.iranblog.com/Files73/b067c588bd6044d8913e.jpg
Dim str As String
FolderBrowserDialog1.RootFolder = Environment.SpecialFolder.DesktopDirectory
FolderBrowserDialog1.ShowNewFolderButton = True
FolderBrowserDialog1.ShowDialog()
str = FolderBrowserDialog1.SelectedPath
Label2.Text = str
Dim smd As SqlCommand = New SqlCommand("RESTORE DATABASE ignore FROM DISK='" & str & "reza.bak'", conn)
conn.Open()
smd.ExecuteNonQuery()
conn.Close()
http://up.iranblog.com/Files73/1bcd0a14c4ca4d64b9a7.jpg
Dim Str_FileName As String
FolderBrowserDialog1.ShowDialog()
Str_FileName = FolderBrowserDialog1.SelectedPath
Dim Obj_SqlCommand As New SqlCommand
Obj_SqlCommand.CommandText = "USE ignore"
Obj_SqlCommand.Connection = conn
conn.Open()
Obj_SqlCommand.ExecuteNonQuery()
conn.Close()
Dim Obj_SqlCommand1 As New SqlCommand
Obj_SqlCommand1.CommandText = "ALTER DATABASE ignore SET OFFLINE "
Obj_SqlCommand1.Connection = conn
conn.Open()
Obj_SqlCommand1.ExecuteNonQuery()
conn.Close()
Dim Obj_SqlCommand2 As New SqlCommand
Obj_SqlCommand2.CommandText = "RESTORE DATABASE ignore FROM DISK ='" & Str_FileName & "reza.bak'"
Obj_SqlCommand2.Connection = conn
Dim Obj_SqlDataAdapter As New SqlDataAdapter(Obj_SqlCommand2)
conn.Open()
Obj_SqlCommand2.ExecuteNonQuery()
conn.Close()
Dim Obj_SqlCommand3 As New SqlCommand
Obj_SqlCommand3.CommandText = "ALTER DATABASE ignore SET ONLINE"
Obj_SqlCommand3.Connection = conn
conn.Open()
Obj_SqlCommand3.ExecuteNonQuery()
conn.Close()
آقایون ، برادران ، ای جماعت من همه تاپیک هارو نگاه کردم ، ای دوستانی که میگید این مسائل قبلا مطرح شده بله شما درست میگید خیلی در موردش بحث شده خیلی من همه رو تا جائی که میتونستم خوندم تا دیگه نخوام مذاحم احوالات شما بشم اما بخدا نشد:گریه: من دو روش برای برگرداندن اطلاعات دیتابیس دیدم که از هر دوکه استفاده کردم اولی که میگفت دیتابیس در حال استفاده هست نمیشه دومی هم میگفت به دیتابیس لاگین نمیشه من موندم این وسط چی کار کنم :گریه::گریه::گریه::گریه::گریه: :گریه::گریه::گریه::گریه::گریه: :گریه::گریه::عصبانی::عصبانی:: صبانی::عصبانی: بلاخره من حرف کدومشون رو گوش کنم؟؟؟؟؟؟؟؟؟؟؟؟:عصبانی++::ع بانی++::عصبانی++::عصبانی++::عص انی++:
قابل توجه دو ستان عکس زیر :
http://up.iranblog.com/Files73/2756309b779c488db954.jpg
همشون فعالا !!!!!!!!!! پس از چیه؟
این هم یه روش دیگه که از خود امسدین خوندم :
RESTORE DATABASE MyAdvWorks
FROM MyAdvWorks_1
WITH NORECOVERY,
MOVE 'MyAdvWorks' TO
'c:\Program Files\Microsoft SQL Server\MSSQL\Data\NewAdvWorks.mdf',
MOVE 'MyAdvWorksLog1'
TO 'c:\Program Files\Microsoft SQL Server\MSSQL\Data\NewAdvWorks.ldf'
RESTORE LOG MyAdvWorks
FROM MyAdvWorksLog1
WITH RECOVERY
با اینهم (البته با تعقیرات) نشد:افسرده::افسرده::افسرده:: فسرده::افسرده::افسرده::افسر ه::افسرده: کمک؟
به این عکس ها و کد ها نگاه کنید:
http://up.iranblog.com/Files73/b067c588bd6044d8913e.jpg
Dim str As String
FolderBrowserDialog1.RootFolder = Environment.SpecialFolder.DesktopDirectory
FolderBrowserDialog1.ShowNewFolderButton = True
FolderBrowserDialog1.ShowDialog()
str = FolderBrowserDialog1.SelectedPath
Label2.Text = str
Dim smd As SqlCommand = New SqlCommand("RESTORE DATABASE ignore FROM DISK='" & str & "reza.bak'", conn)
conn.Open()
smd.ExecuteNonQuery()
conn.Close()
http://up.iranblog.com/Files73/1bcd0a14c4ca4d64b9a7.jpg
Dim Str_FileName As String
FolderBrowserDialog1.ShowDialog()
Str_FileName = FolderBrowserDialog1.SelectedPath
Dim Obj_SqlCommand As New SqlCommand
Obj_SqlCommand.CommandText = "USE ignore"
Obj_SqlCommand.Connection = conn
conn.Open()
Obj_SqlCommand.ExecuteNonQuery()
conn.Close()
Dim Obj_SqlCommand1 As New SqlCommand
Obj_SqlCommand1.CommandText = "ALTER DATABASE ignore SET OFFLINE "
Obj_SqlCommand1.Connection = conn
conn.Open()
Obj_SqlCommand1.ExecuteNonQuery()
conn.Close()
Dim Obj_SqlCommand2 As New SqlCommand
Obj_SqlCommand2.CommandText = "RESTORE DATABASE ignore FROM DISK ='" & Str_FileName & "reza.bak'"
Obj_SqlCommand2.Connection = conn
Dim Obj_SqlDataAdapter As New SqlDataAdapter(Obj_SqlCommand2)
conn.Open()
Obj_SqlCommand2.ExecuteNonQuery()
conn.Close()
Dim Obj_SqlCommand3 As New SqlCommand
Obj_SqlCommand3.CommandText = "ALTER DATABASE ignore SET ONLINE"
Obj_SqlCommand3.Connection = conn
conn.Open()
Obj_SqlCommand3.ExecuteNonQuery()
conn.Close()
آقایون ، برادران ، ای جماعت من همه تاپیک هارو نگاه کردم ، ای دوستانی که میگید این مسائل قبلا مطرح شده بله شما درست میگید خیلی در موردش بحث شده خیلی من همه رو تا جائی که میتونستم خوندم تا دیگه نخوام مذاحم احوالات شما بشم اما بخدا نشد:گریه: من دو روش برای برگرداندن اطلاعات دیتابیس دیدم که از هر دوکه استفاده کردم اولی که میگفت دیتابیس در حال استفاده هست نمیشه دومی هم میگفت به دیتابیس لاگین نمیشه من موندم این وسط چی کار کنم :گریه::گریه::گریه::گریه::گریه: :گریه::گریه::گریه::گریه::گریه: :گریه::گریه::عصبانی::عصبانی:: صبانی::عصبانی: بلاخره من حرف کدومشون رو گوش کنم؟؟؟؟؟؟؟؟؟؟؟؟:عصبانی++::ع بانی++::عصبانی++::عصبانی++::عص انی++:
قابل توجه دو ستان عکس زیر :
http://up.iranblog.com/Files73/2756309b779c488db954.jpg
همشون فعالا !!!!!!!!!! پس از چیه؟
این هم یه روش دیگه که از خود امسدین خوندم :
RESTORE DATABASE MyAdvWorks
FROM MyAdvWorks_1
WITH NORECOVERY,
MOVE 'MyAdvWorks' TO
'c:\Program Files\Microsoft SQL Server\MSSQL\Data\NewAdvWorks.mdf',
MOVE 'MyAdvWorksLog1'
TO 'c:\Program Files\Microsoft SQL Server\MSSQL\Data\NewAdvWorks.ldf'
RESTORE LOG MyAdvWorks
FROM MyAdvWorksLog1
WITH RECOVERY
با اینهم (البته با تعقیرات) نشد:افسرده::افسرده::افسرده:: فسرده::افسرده::افسرده::افسر ه::افسرده: کمک؟