همیشه تست می کنی که آیا بانک وصل هست یا نه اگه نبود بانک تو به SQL SERVER باید ATTACH کنی
اینم کدش
PublicSub AddDBSQL()
StrDataBaseName = "DataBaseName"
objConnection =
New SqlConnection("Data Source=.;Initial Catalog=" & StrDataBaseName & ";Integrated Security=True")
DB_Attach()
EndSub
PublicSub DB_Attach()
Try
Dim StrExec AsString
If objConnection.State = ConnectionState.Open Then objConnection.Close()
StrExec = "sp_attach_db '" & StrDataBaseName & "','" & Application.StartupPath & "\" & _
StrDataBaseName & "_Data.mdf','" & Application.StartupPath & "\" & StrDataBaseName & "_Log.ldf'"
objConnection.ConnectionString =
"Data Source=.;Initial Catalog=Master;Integrated Security=True"
objCommand =
New SqlCommand(strExec, objConnection)
objConnection.Open()
objCommand.ExecuteNonQuery()
objConnection.Close()
Dim strMsg AsString
strMsg =
"Attach Is Complete"
strMsg &= vbCrLf &
"Please Restart Program"
MessageBox.Show(strMsg,
"Message", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1, MessageBoxOptions.RightAlign)
EndProgram()
Catch EX As SqlClient.SqlException
Dim strMsg AsString
strMsg =
"Yejaye kare milange"
MessageBox.Show(strMsg,
"Message", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1, MessageBoxOptions.RightAlign)
EndProgram()
EndTry
EndSub
اگر متوجه نشده این ای دی منه تو یاهو PM بده تا بهت بگم
AB2621367