کمک برای تکمیل پروژه

[saber187518]

سلام دوستان عزیز من این پروژه رو نوشتم. میدونم که خیلی سطح پایینه ولی گذشت کنید.
میخوام پروژه برام از فایل sql بک آپ بگیره اما نمیگیره چندین کد رو امتحان کردم ولی نشد. ممکنه کمکم کنید. قرار بوده امروز تحویلش بدم ولی انداختمش برا چند روز دیگه از اساتید محترم درخواست کمک میکنم که برام back up و restore رو تکمیل کنن.خواهش میکنم به این برادر کوچیکتون کمک کنین.:قلب: توی پست بعد هم پروژه و هم بانک رو میزارم.

[saber187518]

دوستان لینک زیر پروژه هست.
http://www.persiangig.com/pages/download/?dl=http://azizpoorian.persiangig.com/programming_code/final_saleh_beigi.rar

لینک زیر هم بانک هست.
http://www.persiangig.com/pages/download/?dl=http://azizpoorian.persiangig.com/programming_code/SalehBeigi_Data.rar
دوستان من منتظر هستم. خواهشن لطف کنین و کمکم کنین.:قلب:

[nokhodsiah2001]

سلام

از این کد استفاده کن
البته باید کمی دستاریش کنی من از تویکی از برنامه هام برداشتمش






StrBakUpNameFull = StrDataName & Date.Today.Year & Date.Today.Month & Date.Today.Day & "_" & My.Computer.Clock.LocalTime.Hour & My.Computer.Clock.LocalTime.Minute & My.Computer.Clock.LocalTime.Second & ".bak"
StrBakUpName = StrDataName & "_BachUp" & Date.Today.Year & Date.Today.Month & Date.Today.Day & My.Computer.Clock.LocalTime.Hour & My.Computer.Clock.LocalTime.Minute & My.Computer.Clock.LocalTime.Second

Timer1.Enabled = True

Me.Cursor = Cursors.WaitCursor

dataconn.Open()
dstData = New DataSet
dadData = New OleDbDataAdapter("exec sp_addumpdevice 'disk','" & StrBakUpName & "','" & Application.StartupPath & "\Backup\ " & StrBakUpNameFull & "' ", dataconn)
dadData.Fill(dstData, "Tbl_PelakType")

dadData = New OleDbDataAdapter(" use " & StrDataName & " dbcc checkdb ('" & StrDataName & "')with no_infomsgs backup database parkinghoma to " & StrBakUpName & " with init ", dataconn)
dadData.Fill(dstData, "Tbl_PelakType2")

dataconn.Close()

[saber187518]

با تشکر از دوست گرامی nokhodsiah2001 (http://barnamenevis.org/forum/member.php?u=38035).
اما کارم راه نیافتاد. خواهش میکنم کمکم کنین:گریه: