کد Attach کردن با VB.NET :
Imports System.Data.SqlClient
Public Class FrmAttachDB
Dim constatus As Boolean = False
Dim con As SqlConnection
Private Sub FrmAttachDB_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If My.Computer.FileSystem.DirectoryExists("C:\databas e") = False Then
My.Computer.FileSystem.CreateDirectory("C:\Databas e")
End If
DropDatabase()
CopyDB()
AttachDB()
Me.Close()
End Sub
Function AttachDB() As Boolean
ConOpen()
Dim cmd As New SqlCommand()
Dim txt As String
txt = "sp_attach_db @dbname = N'MyDatabase', " & vbCrLf & _
"@filename1 = N'C:\Database\MyDatabase.MDF', " & vbCrLf & _
"@filename2 = N'C:\Database\MyDatabase_log.LDF'"
cmd.CommandText = txt
cmd.Connection = con
cmd.ExecuteNonQuery()
End Function
Public Sub ConOpen()
Try
constatus = True
con = New SqlConnection("Data Source=.;Initial Catalog=master;Integrated Security=True")
con.Open()
Catch ex As Exception
constatus = False
End Try
End Sub
Function DropDatabase() As Boolean
Dim cn As New SqlClient.SqlConnection
cn.ConnectionString = _
"Server=localhost;" & _
"DataBase=Master;" & _
"Integrated Security=SSPI;" & _
"data source=(local)"
Dim CreateDBCommand As New SqlClient.SqlCommand
CreateDBCommand.Connection = cn
CreateDBCommand.CommandText = "IF EXISTS (SELECT name FROM master.dbo.sysdatabases WHERE name = N'MyDatabase') " & _
"DROP DATABASE [MyDatabase]"
cn.Open()
Try
CreateDBCommand.ExecuteNonQuery()
Catch Ex As Exception
End Try
cn.Close()
Return True
End Function
Function CopyDB() As Boolean
My.Computer.FileSystem.CopyFile(My.Application.Inf o.DirectoryPath + "\Database\MyDatabase.mdf", "C:\Database\MyDatabase.mdf", True)
My.Computer.FileSystem.CopyFile(My.Application.Inf o.DirectoryPath + "\Database\MyDatabase_log.ldf", "C:\Database\MyDatabase_log.ldf", True)
End Function
End Class