借鑒MSDN webcasts的Asp.net程序部署和李洪根的一篇文章，然后加上自己的親身體會，把整個SQL和Asp.net(vb.net)一起打包的全過程寫一下。

一.準(zhǔn)備必要的文件

1. SQL腳本文件，生成以后安裝過程中需要的表和存儲過程等等；

生成之后，就暫時把它命名為db.sql(注意大小寫)

2.LisenceFile.rtf的安裝文件，因為我的系統(tǒng)是個人的，而且free的，所以就沒有做。這個以后也是要用到的。

二.在自己現(xiàn)有的項目里面創(chuàng)建部署項目:

1. 在“文件”菜單上指向“添加項目”，然后選擇“新建項目”。(圖1-2)

2. 在“添加新項目”對話框中，選擇“項目類型”窗格中的“安裝和部署項目”，然后選擇“模板”窗格中的“Web 安裝項目”。在“名稱”框中鍵入 Test Installer。(圖1-3)

3. 單擊“確定”關(guān)閉對話框。

4. 項目被添加到解決方案資源管理器中，并且文件系統(tǒng)編輯器打開。

5. 在“屬性”窗口中，選擇 ProductName 屬性，并鍵入 GCRM。

(1-2)

(圖1-3)其他項目的作用可以參考Webcast

三。將 VbNetTest項目的輸出添加到部署項目中(假如你的虛擬目錄是SQLANDASPNet)

1. 在“文件系統(tǒng)編輯器”中，選擇“Web 應(yīng)用程序文件夾"。在“操作”菜單上，指向“添加”，然后選擇“項目輸出”。(圖1-4)

2. 在“添加項目輸出組”對話框中，選擇“項目”下拉列表中的“SQLANDASPNet”。

3. 單擊“確定”關(guān)閉對話框。

4. 從列表中選擇“主輸出”和“內(nèi)容文件”組，然后單擊“確定”。(圖1-5)

(圖1-4)

(圖1-5)其他的作用可以參考webcast，源文件就是所有項目的的文件

四.

創(chuàng)建自定義安裝對話框

1. 在解決方案資源管理器中選擇“Test Installer”項目。在“視圖”菜單上指向“編輯器”，然后選擇“用戶界面”。 (圖1-6)

2. 在用戶界面編輯器中，選擇“安裝”下的“啟動”節(jié)點。在“操作”菜單上，選擇“添加對話框”。

3. 在“添加對話框”對話框中，選擇“許可協(xié)議”對話框，然后單擊“確定”關(guān)閉對話框。 (注：我沒有添加，因為暫時我還是不需要，需要的要添加一下哦)

4. 在“添加對話框”對話框中，選擇“文本框 (A)”對話框，然后單擊“確定”關(guān)閉對話框。 (圖1-7)

5. 在“操作”菜單上，選擇“上移”。重復(fù)此步驟，直到“文本框 (A)”對話框位于“安裝文件夾”節(jié)點之上。

6. 在“屬性”窗口中，選擇 BannerText 屬性并鍵入：安裝數(shù)據(jù)庫.。

7. 選擇 BodyText 屬性并鍵入：安裝程序?qū)⒃谀繕?biāo)機器上安裝數(shù)據(jù)庫。

8. 選擇 Edit1Label 屬性并鍵入：數(shù)據(jù)庫名稱:。

9. 選擇 Edit1Property 屬性并鍵入 CUSTOMTEXTA1。

10. 選擇 Edit1Value 屬性并鍵入：GsCrm。

11. 選擇 Edit2Label 屬性并鍵入：服務(wù)器名:。

12. 選擇 Edit2Property 屬性并鍵入 CUSTOMTEXTA2。

13. 選擇 Edit2Value 屬性并鍵入：(local)。

14. 選擇 Edit3Label 屬性并鍵入：用戶名:。

15. 選擇 Edit3Value 屬性并鍵入：sa。

16. 選擇 Edit3Property 屬性并鍵入 CUSTOMTEXTA3。

17. 選擇 Edit4Label 屬性并鍵入：密碼:。

18. 選擇 Edit4Property 屬性并鍵入 CUSTOMTEXTA4。

19. 選擇 Edit2Visible、Edit3Visible ，并將它們設(shè)置為 False。(圖1-8)

(圖1-7)

(圖1-8)

(五).創(chuàng)建自定義操作

1. 在解決方案資源管理器中選擇“Test Installer”項目。在“視圖”菜單上指向“編輯器”，然后選擇“自定義操作”。(圖1-9)

2. 在自定義操作編輯器中選擇“安裝”節(jié)點。在“操作”菜單上，選擇“添加自定義操作”。

3. 在“選擇項目中的項”對話框中，雙擊“應(yīng)用程序文件夾”。

4. 選擇“主輸出來自 DBCustomAction(活動)”項，然后單擊“確定”關(guān)閉對話框。

5. 在“屬性”窗口中，選擇 CustomActionData 屬性并鍵入 /dbname=[CUSTOMTEXTA1] /server=[CUSTOMTEXTA2] /user=[CUSTOMTEXTA3] /pwd=[CUSTOMTEXTA4] /targetdir="[TARGETDIR]\"。 (圖1-10)

附/targetdir="[targetdir]\"是安裝后的目標(biāo)路徑，為了在dbcustomaction類中獲得安裝后的路徑，我們設(shè)置此參數(shù)。

另外，安裝后的路徑也可以通過Reflection得到：

Dim Asm As System.Reflection.Assembly = _

System.Reflection.Assembly.GetExecutingAssembly

MsgBox("Asm.Location")

(圖1-9)

(圖1-10)

呵呵，已經(jīng)好多了，剩下來的是關(guān)鍵性步驟，我花了好多時間研究。

(六)創(chuàng)建安裝程序類

1. 在“文件”菜單上指向“新建”，然后選擇“項目”。

2. 在“新建項目”對話框中，選擇“項目類型”窗格中的“Visual Basic 項目”，然后選擇“模板”窗格中的“類庫”。在“名稱”框中鍵入 DBCustomAction。

3. 單擊“打開”關(guān)閉對話框。

4. 從“項目”菜單中選擇“添加新項”。

5. 在“添加新項”對話框中選擇“安裝程序類”。在“名稱”框中鍵入 DBCustomAction。

6. 單擊“確定”關(guān)閉對話框。(圖1-11，1-12)

注:這里是在原來的項目上建立一個簡單的安裝文件就可以了。

(圖1-11)

添加后的效果圖：

(圖1-12)這里的sql文件是要等一下添加的

(七)

添加文件

1. 將SQL Server生成的腳本文件db.sql添加到“Test Installer”項目(圖1-12)

2. 將安裝文件LisenceFile.rtf添加到“Test Installer”項目

3. 在用戶界面編輯器中，選擇許可協(xié)議，設(shè)置LisenceFile屬性為LisenceFile.rtf文件

(八)

一下的代碼是整個部署的最重要的一部分了

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

1

ImportsSystem.ComponentModel23importsSystem.Configuration.Install45importsSystem.IO67importsSystem.Reflection891011

PublicClass?DBCustomActionClassDBCustomAction1213inheritsSystem.Configuration.Install.Installer14151617

組件設(shè)計器生成的代碼#region"組件設(shè)計器生成的代碼?"1819

publicSub?New()SubNew()2021mybase.new()2223'該調(diào)用是組件設(shè)計器所必需的2425initializecomponent()2627'在?InitializeComponent()?調(diào)用之后添加任何初始化2829end?Sub3031'Installer?重寫?dispose?以清理組件列表。3233

protectedOverloadsOverridesSub?Dispose()SubDispose(ByValdisposingAsBoolean)3435ifdisposingThen3637ifNot(componentsIsNothing)Then3839components.dispose()4041endIf4243endIf4445mybase.dispose(disposing)4647end?Sub4849privatecomponentsAsSystem.ComponentModel.IContainer5051

PrivateSub?InitializeComponent()SubInitializeComponent()5253end?Sub5455#end?Region5657'執(zhí)行sql?語句5859

privateSub?ExecuteSql()SubExecuteSql(ByValconnAsString,ByValDatabaseNameAsString,ByValSqlAsString)6061dimmySqlConnectionAsNewSqlClient.SqlConnection(conn)6263dimCommandAsNewSqlClient.SqlCommand(Sql,?mySqlConnection)6465command.connection.open()6667command.connection.changedatabase(databasename)6869try7071command.executenonquery()7273finally7475'close?Connection7677command.connection.close()7879endTry8081end?Sub8283

publicOverridesSub?Install()SubInstall(ByValstateSaverAsSystem.Collections.IDictionary)84MyBase.Install(stateSaver)8586'------------------------建立數(shù)據(jù)庫-------------------------------------------------8788try8990dimconnStrAsString=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"))9192'根據(jù)輸入的數(shù)據(jù)庫名稱建立數(shù)據(jù)庫9394executesql(connstr,"master","CREATE?DATABASE"+Me.Context.Parameters.Item("dbname"))9596'調(diào)用osql執(zhí)行腳本9798dimsqlProcessAsNewSystem.Diagnostics.Process99100sqlprocess.startinfo.filename="osql.exe"101102sqlprocess.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"))103104sqlprocess.startinfo.windowstyle=ProcessWindowStyle.Hidden105106sqlprocess.start()107108sqlprocess.waitforexit()'等待執(zhí)行109110sqlprocess.close()111112'刪除腳本文件113114dimsqlFileInfoAsNewSystem.IO.FileInfo(String.Format("{0}db.sql",Me.Context.Parameters.Item("targetdir")))115116ifsqlFileInfo.ExistsThen117118sqlfileinfo.delete()119120endIf121122catchexAsException123124throwex125126endTry127128129130'---------------------將連接字符串寫入Web.config-----------------------------------131132try133134dimFileInfoAsSystem.IO.FileInfo=NewSystem.IO.FileInfo(Me.Context.Parameters.Item("targetdir")&"\web.config")135136ifNotFileInfo.ExistsThen137138throwNewInstallException("沒有找到配置文件")139140endIf141142'實例化xml文檔143144dimXmlDocumentAsNewSystem.Xml.XmlDocument145146xmldocument.load(fileinfo.fullname)147148149150'查找到appsettings中的節(jié)點151152dimNodeAsSystem.Xml.XmlNode153154dimFoundItAsBoolean=False155156forEachNodeInXmlDocument.Item("configuration").Item("appSettings")157158ifNode.Name="add"Then159160ifNode.Attributes.GetNamedItem("key").Value="connString"Then161162'寫入連接字符串163164node.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",?_165166me.context.parameters.item("server"),Me.Context.Parameters.Item("dbname"),Me.Context.Parameters.Item("user"),Me.Context.Parameters.Item("pwd"))167168foundit=True169170endIf171172endIf173174nextNode175176ifNotFoundItThen177178throwNewInstallException("web.Config?文件沒有包含connString連接字符串設(shè)置")179180endIf181182xmldocument.save(fileinfo.fullname)183184catchexAsException185186throwex187188endTry189190end?Sub191192end?Class193194

有點難度的就是那個Process類，它調(diào)用了osql.exe程序，來執(zhí)行sql語句osql -U,-P,,-d,-i。

web.config的修改代碼是利用xml的語法實現(xiàn)。不是很難理解。

最后編譯生成！如圖：

安裝界面：如圖

哈哈，總算寫完了，也不知道有沒有寫好

。

最后還是感謝李洪根老師和微軟的講師。結(jié)合他們的共同的經(jīng)驗，部署起來真的很簡單。

總結(jié)

以上是生活随笔為你收集整理的asp.net mysql打包_Asp.net与SQL一起打包部署安装的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。