نسخه پشتیبان (sql server(*.mdf

[netvbf0x]

سلام :قلب::قلب:
من یه برنامه نوشتم که با بانک (sql server(*.mdf ارتباط داره
میخوام ازش( (نسخه پشتیبان و بازیابی پشتیبان) ) تهیه کنم
اگه کمکم کنید ممنون مشیم
با تشکر:خجالت::خجالت:

[hrj1981]

این سورس برای پشتیبان گیری

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]

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

[hrj1981]

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]

با سلام
من يه برنامه نوشتم با ويژوال بيسيك حالا ميخوام اين برنامه را اتصال بدم به پايگاه داده اسكيو ال 2000كه خودم ايجاد كردم ولي بلد نيستم چطور و با چه كدي اين دو را به هم متصل كنم اگه ميشه يه راهنمايي كن .

[netvbf0x]

سلام
من دیشب میخواستم جواب بدم وقت نشد ببخشید
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]

سلام
من دیشب میخواستم جواب بدم وقت نشد ببخشید
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 اسفاده میکنم
لطفا راهنمایی کنید تا مشکل را حل کنم ممنون