07-03-16, 12:11 AM
السلام عليكم ورحمة الله تعالى وبركاته
رجاءا هل هناك طريقة لعمل اتاش لقاعدة البيانات عن ظريق الأكواد بالفيجوال بيزك
ألف شكر مسبقا
رجاءا هل هناك طريقة لعمل اتاش لقاعدة البيانات عن ظريق الأكواد بالفيجوال بيزك
ألف شكر مسبقا
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
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()
Dim con As New SqlConnection("Data Source=localhost;Initial Catalog=master;Integrated Security=True")
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'"