Asp.net與SQLserver一起打包部署安裝圖文教程

一.準備必要的檔案
1. SQL指令檔，產生以後安裝過程中需要的表和預存程序等等；

產生之後，就暫時把它命名為db.sql(注意大小寫)
2.LisenceFile.rtf的安裝檔案，因為我的系統是個人的，而且free的，所以就沒有做。這個以後也是要用到的。
二.在自己現有的項目裡面建立部署項目:
1. 在[檔案] 功能表上指向“添加項目”，然後選擇“建立項目”。(圖1-2)
2. 在“添加新項目”對話方塊中，選擇“項目類型”窗格中的“安裝和部署項目”，然後選擇“模板”窗格中的“Web 安裝項目”。在“名稱”框中鍵入 Test Installer。(圖1-3)
3. 單擊“確定”關閉對話方塊。
4. 項目被添加到方案總管中，並且檔案系統編輯器開啟。
5. 在“屬性”視窗中，選擇 ProductName 屬性，並鍵入 GCRM。

(1-2)

(圖1-3)其他項目的作用可以參考Webcast
三。將 VbNetTest項目的輸出添加到部署項目中(假如你的虛擬目錄是SQLANDASPNet)
1. 在“檔案系統編輯器”中，選擇“Web 應用程式檔案夾"。在“操作”菜單上，指向“添加”，然後選擇“項目輸出”。(圖1-4)
2. 在“添加項目輸出組”對話方塊中，選擇“項目”下拉式清單中的“SQLANDASPNet”。
3. 單擊“確定”關閉對話方塊。
4. 從列表中選擇“主輸出”和“內容檔案”組，然後單擊“確定”。(圖1-5)

(圖1-4)

（圖1-5）其他的作用可以參考webcast，源檔案就是所有項目的的檔案
四.

建立自訂安裝對話方塊
1. 在方案總管中選擇“Test Installer”項目。在“視圖”菜單上指向“編輯器”，然後選擇“使用者介面”。 (圖1-6)
2. 在使用者介面編輯器中，選擇“安裝”下的“啟動”節點。在“操作”菜單上，選擇“添加對話方塊”。
3. 在“添加對話方塊”對話方塊中，選擇“許可協議”對話方塊，然後單擊“確定”關閉對話方塊。 (註：我沒有添加，因為暫時我還是不需要，需要的要添加一下哦）
4. 在“添加對話方塊”對話方塊中，選擇“文字框 (A)”對話方塊，然後單擊“確定”關閉對話方塊。 （圖1-7)
5. 在“操作”菜單上，選擇“上移”。重複此步驟，直到“文字框 (A)”對話方塊位於“安裝資料夾”節點之上。
6. 在“屬性”視窗中，選擇 BannerText 屬性並鍵入：安裝資料庫.。
7. 選擇 BodyText 屬性並鍵入：安裝程式將在目標機器上安裝資料庫。
8. 選擇 Edit1Label 屬性並鍵入：資料庫名稱:。
9. 選擇 Edit1Property 屬性並鍵入 CUSTOMTEXTA1。
10. 選擇 Edit1Value 屬性並鍵入：GsCrm。
11. 選擇 Edit2Label 屬性並鍵入：伺服器名:。
12. 選擇 Edit2Property 屬性並鍵入 CUSTOMTEXTA2。
13. 選擇 Edit2Value 屬性並鍵入：(local)。
14. 選擇 Edit3Label 屬性並鍵入：使用者名稱:。
15. 選擇 Edit3Value 屬性並鍵入：sa。
16. 選擇 Edit3Property 屬性並鍵入 CUSTOMTEXTA3。
17. 選擇 Edit4Label 屬性並鍵入：密碼:。
18. 選擇 Edit4Property 屬性並鍵入 CUSTOMTEXTA4。
19. 選擇 Edit2Visible、Edit3Visible ，並將它們設定為 False。(圖1-8)

(圖1-7)

（圖1-8)

（五).建立自訂動作
1. 在方案總管中選擇“Test Installer”項目。在“視圖”菜單上指向“編輯器”，然後選擇“自訂動作”。(圖1-9)
2. 在自訂動作編輯器中選擇“安裝”節點。在“操作”菜單上，選擇“添加自訂動作”。
3. 在“選擇項目中的項”對話方塊中，雙擊“應用程式檔案夾”。
4. 選擇“主輸出來自 DBCustomAction（活動）”項，然後單擊“確定”關閉對話方塊。
5. 在“屬性”視窗中，選擇 CustomActionData 屬性並鍵入 /dbname=[CUSTOMTEXTA1] /server=[CUSTOMTEXTA2] /user=[CUSTOMTEXTA3] /pwd=[CUSTOMTEXTA4] /targetdir="[TARGETDIR]\"。 (圖1-10)

附/targetdir="[targetdir]\"是安裝後的目標路徑，為了在dbcustomaction類中獲得安裝後的路徑，我們設定此參數。
另外，安裝後的路徑也可以通過Reflection得到：
Dim Asm As System.Reflection.Assembly = _
System.Reflection.Assembly.GetExecutingAssembly
MsgBox("Asm.Location")

（圖1-9)

(圖1-10)
呵呵，已經好多了，剩下來的是關鍵性步驟，我花了好多時間研究。
（六）建立安裝程式類
1. 在[檔案] 功能表上指向“建立”，然後選擇“項目”。
2. 在“建立項目”對話方塊中，選擇“項目類型”窗格中的“Visual Basic 項目”，然後選擇“模板”窗格中的“類庫”。在“名稱”框中鍵入 DBCustomAction。
3. 單擊“開啟”關閉對話方塊。
4. 從“項目”菜單中選擇“添加新項”。
5. 在“添加新項”對話方塊中選擇“安裝程式類”。在“名稱”框中鍵入 DBCustomAction。
6. 單擊“確定”關閉對話方塊。（圖1-11，1-12）
注:這裡是在原來的項目上建立一個簡單的安裝檔案就可以了。

（圖1-11)
添加後的：

（圖1-12）這裡的sql檔案是要等一下添加的
（七）
添加檔案
1. 將SQL Server產生的指令檔db.sql添加到“Test Installer”項目(圖1-12)
2. 將安裝檔案LisenceFile.rtf添加到“Test Installer”項目
3. 在使用者介面編輯器中，選擇許可協議，設定LisenceFile屬性為LisenceFile.rtf檔案
（八)
一下的代碼是整個部署的最重要的一部分了

將代碼添加到安裝程式類中，dbcustomaction.vb類

複製代碼 代碼如下:Imports System.ComponentModel
imports System.Configuration.Install
imports System.IO
imports System.Reflection
<runinstaller(true)> Public Class DBCustomActionClass DBCustomAction
inherits System.Configuration.Install.Installer
組件設計器產生的程式碼#region "組件設計器產生的程式碼 "
public Sub New()Sub New()
mybase.new()
'該調用是組件設計器所必需的
initializecomponent()
'在 InitializeComponent() 調用之後添加任何初始化
end Sub
' Installer 重寫 dispose 以清理組件列表。
protected Overloads Overrides Sub Dispose()Sub Dispose(ByVal disposing As Boolean)
if disposing Then
if Not (components Is Nothing) Then
components.dispose()
end If
end If
mybase.dispose(disposing)
end Sub
private components As System.ComponentModel.IContainer
<system.diagnostics.debuggerstepthrough()> Private Sub InitializeComponent()Sub InitializeComponent()
end Sub
#end Region
'執行sql 語句
private Sub ExecuteSql()Sub ExecuteSql(ByVal conn As String, ByVal DatabaseName As String, ByVal Sql As String)
dim mySqlConnection As New SqlClient.SqlConnection(conn)
dim Command As New SqlClient.SqlCommand(Sql, mySqlConnection)
command.connection.open()
command.connection.changedatabase(databasename)
try
command.executenonquery()
finally
'close Connection
command.connection.close()
end Try
end Sub
public Overrides Sub Install()Sub Install(ByVal stateSaver As System.Collections.IDictionary)
MyBase.Install(stateSaver)
' ------------------------建立資料庫-------------------------------------------------
try
dim connStr As String = String.Format("data source={0};user id={1};password={2};persist security info=false;packet size=4096", Me.Context.Parameters.Item("server"), Me.Context.Parameters.Item("user"), Me.Context.Parameters.Item("pwd"))
'根據輸入的資料庫名稱建立資料庫
executesql(connstr, "master", "CREATE DATABASE " + Me.Context.Parameters.Item("dbname"))
'調用osql執行指令碼
dim sqlProcess As New System.Diagnostics.Process
sqlprocess.startinfo.filename = "osql.exe "
sqlprocess.startinfo.arguments = String.Format(" -U {0} -P {1} -d {2} -i {3}db.sql", Me.Context.Parameters.Item("user"), Me.Context.Parameters.Item("pwd"), Me.Context.Parameters.Item("dbname"), Me.Context.Parameters.Item("targetdir"))
sqlprocess.startinfo.windowstyle = ProcessWindowStyle.Hidden
sqlprocess.start()
sqlprocess.waitforexit() '等待執行
sqlprocess.close()
'刪除指令檔
dim sqlFileInfo As New System.IO.FileInfo(String.Format("{0}db.sql", Me.Context.Parameters.Item("targetdir")))
if sqlFileInfo.Exists Then
sqlfileinfo.delete()
end If
catch ex As Exception
throw ex
end Try
' ---------------------將連接字串寫入Web.config-----------------------------------
try
dim FileInfo As System.IO.FileInfo = New System.IO.FileInfo(Me.Context.Parameters.Item("targetdir") & "\web.config")
if Not FileInfo.Exists Then
throw New InstallException("沒有找到設定檔")
end If
'執行個體化xml文檔
dim XmlDocument As New System.Xml.XmlDocument
xmldocument.load(fileinfo.fullname)
'尋找到appsettings中的節點
dim Node As System.Xml.XmlNode
dim FoundIt As Boolean = False
for Each Node In XmlDocument.Item("configuration").Item("appSettings")
if Node.Name = "add" Then
if Node.Attributes.GetNamedItem("key").Value = "connString" Then
'寫入連接字串
node.attributes.getnameditem("value").value = String.Format("Persist Security Info=False;Data Source={0};Initial Catalog={1};User ID={2};Password={3};Packet Size=4096;Pooling=true;Max Pool Size=100;Min Pool Size=1", _
me.context.parameters.item("server"), Me.Context.Parameters.Item("dbname"), Me.Context.Parameters.Item("user"), Me.Context.Parameters.Item("pwd"))
foundit = True
end If
end If
next Node
if Not FoundIt Then
throw New InstallException("web.Config 檔案沒有包含connString連接字串設定")
end If
xmldocument.save(fileinfo.fullname)
catch ex As Exception
throw ex
end Try
end Sub
end Class

有點難度的就是那個Process類，它調用了osql.exe程式，來執行sql語句osql -U,-P,,-d,-i。
web.config的修改代碼是利用xml的文法實現。不是很難理解。
最後編譯產生！

安裝介面：

哈哈，總算寫完了，也不知道有沒有寫好。
最後還是感謝李洪根老師和微軟的講師。結合他們的共同的經驗，部署起來真的很簡單。