View Full Version : نسخه پشتیبان (sql server(*.mdf
netvbf0x
پنج شنبه 17 دی 1388, 23:49 عصر
سلام :قلب::قلب:
من یه برنامه نوشتم که با بانک (sql server(*.mdf ارتباط داره
میخوام ازش( (نسخه پشتیبان و بازیابی پشتیبان) ) تهیه کنم
اگه کمکم کنید ممنون مشیم
با تشکر:خجالت::خجالت:
hrj1981
شنبه 19 دی 1388, 15:41 عصر
این سورس برای پشتیبان گیری
Sub BackUp()
Dim CNN As New Connection
'----------------------------------------------
'قطع اتصال بانک با سرور
With CNN
.Open "Provider=sqloledb;Data Source=(local);Initial Catalog=master;Persist Security Info=false;Integrated Security=SSPI;"
.Execute "EXEC sp_detach_db @dbname = N'نام مستعار بانک اطلاعاتی موجود در سرور'"
.Close
End With
'کپی فایلها در پوشه پشتیبان
fso.CopyFile App.Path & "\dbf\OFOGH_dbf_Data.MDF", "مسیر فایل Mdf.bak"
fso.CopyFile App.Path & "\dbf\OFOGH_dbf_Log.LDF", "مسیر فایل LDF.bak"
'اتصال مجدد بانک با سرور
With CNN
.Open "Provider=sqloledb;Data Source=(local);Initial Catalog=master;Persist Security Info=false;Integrated Security=SSPI;"
.Execute "EXEC sp_attach_db @dbname = N'OFOGH'," & _
"@filename1 = N'" مسیر و نام بانک اطلاعاتی.MDF'"
.Close
End With
End With
'-----------------------------------------------
End Sub
netvbf0x
شنبه 19 دی 1388, 20:35 عصر
سلام
اگه امکان داره بازگردانی پشتیبان رو هم سورسشو بزارید
ممنون میشم
hrj1981
یک شنبه 20 دی 1388, 07:49 صبح
Sub Restore()
Dim CNN As New Connection
'----------------------------------------------
'قطع اتصال بانک با سرور
With CNN
.Open "Provider=sqloledb;Data Source=(local);Initial Catalog=master;Persist Security Info=false;Integrated Security=SSPI;"
.Execute "EXEC sp_detach_db @dbname = N'نام مستعار بانک اطلاعاتی موجود در سرور'"
.Close
End With
'کپی فایلهای پشتیبان در پوشه اصلی
fso.CopyFile " مسیر قرار گیری فایل پشتیبان MDF.bak", "مسیر اصلی پوشه و فایل MDF"
fso.CopyFile "مسیر قرار گیری فایل پشتیبان LDF.bak", "مسیر اصلی پوشه و فایل LDF"
'اتصال مجدد بانک با سرور
With CNN
.Open "Provider=sqloledb;Data Source=(local);Initial Catalog=master;Persist Security Info=false;Integrated Security=SSPI;"
.Execute "EXEC sp_attach_db @dbname = N'نام مستعار بانک اطلاعاتی موجود در سرور'," & _
"@filename1 = N'"مسیر اصلی پوشه و فایل MDF',@filename2 = N'" مسیر اصلی پوشه و فایل LDF'"
.Close
End With
End With
'-----------------------------------------------
End Sub
masoud17
یک شنبه 20 دی 1388, 22:07 عصر
با سلام
من يه برنامه نوشتم با ويژوال بيسيك حالا ميخوام اين برنامه را اتصال بدم به پايگاه داده اسكيو ال 2000كه خودم ايجاد كردم ولي بلد نيستم چطور و با چه كدي اين دو را به هم متصل كنم اگه ميشه يه راهنمايي كن .
netvbf0x
دوشنبه 21 دی 1388, 13:36 عصر
سلام
من دیشب میخواستم جواب بدم وقت نشد ببخشید
sql server هم مثل access فرقی آن چنانی نداره
اول یه ado میندازی رو برنامت بعد کد:
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;JET OLEDB:Database Password=1234;Data source =" & App.path & "\" & "Database\Database.mdf"
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select * from dbr_user"
Adodc1.refresh
به همین سادگی
البته چند روش دیگه هم داره بدون ado اگه بخوای میتونم واست بزارم
همینجا پست بزار
جواب میدم
masoud17
دوشنبه 21 دی 1388, 15:52 عصر
سلام
من دیشب میخواستم جواب بدم وقت نشد ببخشید
sql server هم مثل access فرقی آن چنانی نداره
اول یه ado میندازی رو برنامت بعد کد:
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;JET OLEDB:Database Password=1234;Data source =" & App.path & "\" & "Database\Database.mdf"
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select * from dbr_user"
Adodc1.refresh
به همین سادگی
البته چند روش دیگه هم داره بدون ado اگه بخوای میتونم واست بزارم
همینجا پست بزار
جواب میدم
با سلام من این برنامه را به پایگاه داده اکسس ارتباط میدهم و هیچ مشکلی هم ندارد.
وقتی که قطعه کدی را که شما گذاشتید را گذاشتم و برنامه را اجرا کردم این پیغام را داد که عکس را را ضمیمه کرده ام من بلد نبودم چطود عكس را قرار دهم براي ديدن عكس به ادرس زير بريد و اون را دانلود كنيد
http://www.uplod.ir/download.php?file=334046
وسپس این خط را مشخص کرد
Ado.Refresh
من هم از ado اسفاده میکنم
لطفا راهنمایی کنید تا مشکل را حل کنم ممنون
vBulletin® v4.2.5, Copyright ©2000-1404, Jelsoft Enterprises Ltd.