درود دوست من
عزیز تو قسمت اولین فرم برنامه که باز میشه و تو قسمت Form Load این کد ها رو بنویس
توضیح هم توی خود کد ها هست
فقط به جاهای Database Name Table Name Server Name دقت کن که نام های مخصوص برنامه خودت رو بزاری نه این کلمه هایی که تو کد ها من گذاشتم .
'ba in Function Check mikoni ke aya Database e morede nazar vojud dare ya na ( Attach hast ya na )
'tu meghdare bRet age True bargardune yani hast
'Server(hamun Server Name e SQL e ke bishtar in mored estefade mishe .\SQLExPRESS
Public Function Check_DB(ByVal server As String, ByVal database As String) As Boolean
Dim connString As String = ("Data Source=" + (server + ";Initial Catalog=master;Integrated Security=True;"))
Dim cmdText As String = _
("select * from master.dbo.sysdatabases where name='" + (database + "'"))
Dim bRet As Boolean = False
Using sqlConnection As SqlConnection = New SqlConnection(connString)
sqlConnection.Open()
Using sqlCmd As SqlCommand = New SqlCommand(cmdText, sqlConnection)
Using reader As SqlDataReader = sqlCmd.ExecuteReader
bRet = reader.HasRows
End Using
End Using
End Using
Return bRet
End Function
' Code Attach Kardan
Dim conn As SqlClient.SqlConnection = New SqlClient.SqlConnection
Dim cmd As New SqlClient.SqlCommand()
Dim ConnectionString As String = ("Data Source=.\SQLExpress;Integrated Security=True;Initial Catalog=master")
conn = New SqlClient.SqlConnection
conn.ConnectionString = ConnectionString
conn.Open() 'Open connection
Dim sqlDetech As String = ("EXEC sp_attach_db @dbname='" & "Database Name " & "', @filename1='" & (Application.StartupPath & "Addrese File .mdf") & "' , @filename2='" & (Application.StartupPath & "Addrese File.ldf") & "'")
cmd.CommandText = sqlDetech
cmd.Connection = conn
cmd.ExecuteNonQuery()
conn.Close()
' Code De Atach Kardan
Dim conn As SqlClient.SqlConnection = New SqlClient.SqlConnection
Dim cmd As New SqlClient.SqlCommand()
Dim ConnectionString As String = ("Data Source=.\SQLExPRESS;Integrated Security=True;Initial Catalog=master")
conn = New SqlClient.SqlConnection
conn.ConnectionString = ConnectionString
conn.Open() 'Open connection
Dim sqlDetech As String = ("sp_detach_db '" & "Database Name" & "', 'true'")
cmd.CommandText = sqlDetech
cmd.Connection = conn
cmd.ExecuteNonQuery()
با این کد ها کارت رو راه بنداز ، معمولا تو همه پروژه ها با این کد ها کارامون رو راه میندازیم