منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : عمل أتاش لقاعدة البيانات
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم ورحمة الله تعالى وبركاته
رجاءا هل هناك طريقة لعمل اتاش لقاعدة البيانات عن ظريق الأكواد بالفيجوال بيزك
ألف شكر مسبقا
السلام عليكم أخي العزيز ورحمة الله وبركاته
شغل هذا الكود من خلال زر أمر :
PHP كود :
Dim cmd As New SqlCommand()
Dim con As new SqlConnection "Connection string"

cmd.CommandText "sp_attach_db 'e:\dbTest.mdf', 'e:\dbTest.ldf'"
  
    
con.open()
    
cmd.CommandType CommandType.StoredProcedure
 cmd
.Connection con
    cmd
.executenonquery()
    
con.close 

أتمنى لك التوفيق
ألف شكر لكم راح أجرب وأخبرك
PHP كود :
Dim con As New SqlConnection("Data Source=localhost;Initial Catalog=master;Integrated Security=True")
 
con.Open()

        
Dim cmd As New SqlCommand()
        
Dim txt As String

        txt 
"sp_attach_db @dbname = N'Test', " vbCrLf _
              
"@filename1 = N'C:\Program Files\Microsoft SQL Server\MSSQL12.MSSQLSERVER\MSSQL\DATA\Test.MDF', " vbCrLf _
              
"@filename2 = N'C:\Program Files\Microsoft SQL Server\MSSQL12.MSSQLSERVER\MSSQL\DATA\Test_log.LDF'"

        
cmd.CommandText txt
        cmd
.Connection con
        cmd
.ExecuteNonQuery()
        
MsgBox("Database created successfully")


        
con.Close() 
لقد جربت هذا الكود وهو ناجح مئة بالمئة

أتمنى لك التوفيق
السلام عليكم أخي العزيز ورحمة الله وبركاته
شرح الكود أعلاه : إعادة ربط قاعدة البيانات
أولا لكي نتمكن من إعادة ربط قاعدة البيانات لا بد من الإتصال بقاعدة بيانات Master
PHP كود :
Dim con As New SqlConnection("Data Source=localhost;Initial Catalog=master;Integrated Security=True"

ثانيا : لقد قمنا باستدعاء الإجراء المخزن sp_attach_db وهو Stored Procedure من قاعدة بيانات Master
[attachment=9728]

[attachment=9729]

ثالثا : قمنا بالإعلان عن متغير يتضمن إسم Stored Procedure ومسار قاعدة البيانات الغير مرتبطة
PHP كود :
txt "sp_attach_db @dbname = N'Test', " vbCrLf _
              
"@filename1 = N'C:\Program Files\Microsoft SQL Server\MSSQL12.MSSQLSERVER\MSSQL\DATA\Test.MDF', " vbCrLf _
              
"@filename2 = N'C:\Program Files\Microsoft SQL Server\MSSQL12.MSSQLSERVER\MSSQL\DATA\Test_log.LDF'" 

رابعا : نفذنا العملية من خلال SqlCommand

أتمنى لك التوفيق
ألف شكر لكم جميعا وجزاكم الله خيرا