一).創建部署項目
1. 在“文件”菜單上指向“添加項目”，然後選擇“新建項目”。
2. 在“添加新項目”對話框中，選擇“項目類型”窗格中的“安裝和部署項目”，然後選擇“模板”窗格中的“安裝項目”。在“名稱”框中鍵入 setup1。
3. 單擊“確定”關閉對話框。
4. 項目被添加到解決方案資源管理器中，並且文件系統編輯器打開。
5. 在“屬性”窗口中，選擇 ProductName 屬性，並鍵入 信息管理系統 。
二).將 主程序 項目的輸出添加到部署項目中
1. 在“文件系統編輯器”中，選擇“應用程序文件夾”。在“操作”菜單上，指向“添加”，然後選擇“項目輸出”。
2. 在“添加項目輸出組”對話框中，選擇“項目”下拉列表中的“你的程序”。
3. 單擊“確定”關閉對話框。
4. 從列表中選擇“主輸出”和“內容文件”組，然後單擊“確定”。
三).創建安裝程序類
1. 在“文件”菜單上指向“新建”，然後選擇“項目”。
2. 在“新建項目”對話框中，選擇“項目類型”窗格中的“Visual Basic 項目”，然後選擇“模板”窗格中的“類庫”。在“名稱”框中鍵入 installDB。
3. 單擊“打開”關閉對話框。
4. 從“項目”菜單中選擇“添加新項”。
5. 在“添加新項”對話框中選擇“安裝程序類”。在“名稱”框中鍵入 installDB。
6. 單擊“確定”關閉對話框。
7. 詳細代碼附後。
四).創建自定義安裝對話框
1. 在解決方案資源管理器中選擇“setup1”項目。在“視圖”菜單上指向“編輯器”，然後選擇“用戶界面”。
2. 在用戶界面編輯器中，選擇“安裝”下的“啟動”節點。在“操作”菜單上，選擇“添加對話框”。
3. 在“添加對話框”對話框中，選擇“許可協議”對話框，然後單擊“確定”關閉對話框。
4. 在“添加對話框”對話框中，選擇“文本框 (A)”對話框，然後單擊“確定”關閉對話框。
5. 在“操作”菜單上，選擇“上移”。重復此步驟，直到“文本框 (A)”對話框位於“安裝文件夾”節點之上。
6. 在“屬性”窗口中，選擇 BannerText 屬性並鍵入：安裝數據庫.
7. 選擇 BodyText 屬性並鍵入：安裝程序將在目標機器上安裝數據庫
8. 選擇 Edit1Label 屬性並鍵入：數據庫名稱:
9. 選擇 Edit1Property 屬性並鍵入 CUSTOMTEXTA1
10. 選擇 Edit1Value 屬性並鍵入：dbservers
11. 選擇 Edit2Label 屬性並鍵入：服務器名:
12. 選擇 Edit2Property 屬性並鍵入 CUSTOMTEXTA2
13. 選擇 Edit2Value 屬性並鍵入：(local)
14. 選擇 Edit3Label 屬性並鍵入：用戶名:
15. 選擇 Edit3Value 屬性並鍵入：sa
16. 選擇 Edit3Property 屬性並鍵入 CUSTOMTEXTA3
17. 選擇 Edit4Label 屬性並鍵入：密碼:
18. 選擇 Edit4Property 屬性並鍵入 CUSTOMTEXTA4
19. 選擇 Edit2Visible、Edit3Visible 和 Edit4Visible 屬性，並將它們設置為 true
五).創建自定義操作
1. 在解決方案資源管理器中選擇“setup1”項目。在“視圖”菜單上指向“編輯器”，然後選擇“自定義操作”。
2. 在自定義操作編輯器中選擇“安裝”節點。在“操作”菜單上，選擇“添加自定義操作”。
3. 在“選擇項目中的項”對話框中，雙擊“應用程序文件夾”。
4. 選擇“主輸出來自 installDB（活動）”項，然後單擊“確定”關閉對話框。
5. 在“屬性”窗口中，選擇 CustoMactionData 屬性並鍵入“/dbname=[CUSTOMTEXTA1] /server=[CUSTOMTEXTA2] /user=[CUSTOMTEXTA3] /pwd=[CUSTOMTEXTA4] /targetdir="[TARGETDIR]\"”。
附:/targetdir="[TARGETDIR]\"是安裝後的目標路徑，為了在installDB類中獲得安裝後的路徑，我們設置此參數。
六).打包時加入卸載功能：
方法一:
1.在打包項目中添加文件msIExec.exe(一般可在c:\Windows\system32\下找到)
2.在文件系統視圖中選擇應用程序文件夾,在msIExec.exe上按右鍵,選擇創建快捷方式,重命名快捷方式為"卸載".
3.更改此快捷方式的Arguments 為"/x {產品id}",產品id的值為打包項目的ProductCode屬性值.
方法二:(推薦)
1.先生成安裝包，記下ProductCode(選擇解決方案資源管理器根目錄如setup1,再查看屬性標簽,不是右鍵中的屬性),下面要用到
2.用VS.Net建立一個新的控制台程序uninst.exe文件
'power by: landlordh
'for 2000,xp,2003
Module uninstall
Sub Main()
Dim myProcess As Process = New Process
If System.Environment.OSVersion.ToString.IndexOf("NT 5") Then
myProcess.Start("msIExec", "/X{2B65D4A9-C146-4808-AB4B-321FB0779559}") '改為自己的ProductCode
End If
myProcess.Close()
End Sub
End Module
3.將控制台程序BIN目錄的exe文件加入到打包程序文件中,在程序組創建uninst.exe的快捷方式
installdb.vb類,要添加引用 system.configuration.install.dll :
using System;
using System.Collections;
using System.ComponentModel;
using System.Configuration.Install;
using System.Reflection;
using System.IO;
using System.Data;
using System.Data.SqlClIEnt;
namespace install
{
/// <summary>
/// Installer1 的摘要說明。
/// </summary>
[RunInstaller(true)]
public class Installer1 : System.Configuration.Install.Installer
{
/// <summary>
/// 必需的設計器變量。
/// </summary>
private System.ComponentModel.Container components = null;
public Installer1()
{
// 該調用是設計器所必需的。
InitializeComponent();
// TODO: 在 InitializeComponent 調用後添加任何初始化
}
/// <summary>
/// 清理所有正在使用的資源。
/// </summary>
protected override void Dispose( bool disposing )
{
if( disposing )
{
if(components != null)
{
components.Dispose();
}
}
base.Dispose( disposing );
}
#region 組件設計器生成的代碼
/// <summary>
/// 設計器支持所需的方法 - 不要使用代碼編輯器修改
/// 此方法的內容。
/// </summary>
private void InitializeComponent()
{
components = new System.ComponentModel.Container();
}
#endregion
private string GetSql(string Name)
{
// //調用osql執行腳本
//
// System.Diagnostics.Process sqlProcess = new System.Diagnostics.Process();
//
// sqlProcess.StartInfo.FileName = "osql.exe";
//
// sqlProcess.StartInfo.Arguments = String.Format(" -U {0} -P {1} -d {2} -i {3}db.sql", this.Context.Parameters["user"], this.Context.Parameters["pwd"],"master", this.Context.Parameters["targetdir"]);
//
// sqlProcess.StartInfo.WindowStyle = System.Diagnostics.ProcessWindowstyle.Hidden;
//
// sqlProcess.Start();
//
// sqlProcess.WaitForExit() ;//等待執行
//
// sqlProcess.Close();
try
{
// Assembly Asm = Assembly.GetExecutingAssembly();
// System.IO.FileInfo FileInfo = new System.IO.FileInfo(Asm.Location);
// string path=FileInfo.DirectoryName+@"\"+Name;
string path=this.Context.Parameters["targetdir"]+Name;
FileStream fs=new FileStream(path,FileMode.Open,FileAccess.Read,FileShare.Read);
StreamReader reader = new StreamReader(fs,System.Text.Encoding.Default);
//System.Text.Encoding.ASCII;
return reader.ReadToEnd();
}
catch (Exception ex)
{
Console.Write("In GetSql:"+ex.Message);
throw ex;
}
}
private void ExecuteSql(string DataBaseName,string Sql)
{
SqlConnection sqlConnection1=new SqlConnection();
sqlConnection1.ConnectionString =string.Format("server={0}; user id={1}; passWord={2}; Database=master",this.Context.Parameters["server"],this.Context.Parameters["user"],this.Context.Parameters["pwd"]);
System.Data.SqlClient.SqlCommand Command = new System.Data.SqlClIEnt.SqlCommand(Sql,sqlConnection1);
try
{
Command.Connection.Open();
Command.Connection.ChangeDatabase(DataBaseName);
Command.ExecuteNonQuery();
}
catch(Exception ex)
{
Console.Write("In exception handler :"+ex.Message);
}
finally
{
Command.Connection.Close();
}
}
protected void AddDBTable(string strDBName)
{
try
{
ExecuteSql("master","CREATE DATABASE "+ strDBName);
ExecuteSql(strDBName,GetSql("sql.txt"));
ExecuteSql("master","exec sp_addlogin 'myoamaster','myoamaster','"+strDBName+"',Null,Null");
ExecuteSql(strDBName,"EXEC sp_grantdbAccess 'myoamaster', 'myoamaster'");
ExecuteSql(strDBName,"exec sp_addrolemember 'db_owner','myoamaster'");
}
catch(Exception ex)
{
Console.Write("In exception handler :"+ex.Message);
}
}
public override void Install(System.Collections.IDictionary stateSaver)
{
base.Install(stateSaver);
AddDBTable(this.Context.Parameters["dbname"]);
}
}
}
這裡有個sql.txt是數據庫的sql腳本,當然可以調用osql來執行sql腳本，其實是一樣的。
打包的時候必須把sql.txt文件加進來，否則不會執行。
如果你想附加數據庫的mdf文件和ldf文件，用下面這段程序：
private void CreateDataBase(string strSql,string DataName,string strMdf,string strLdf)
{
String str;
SqlConnection myConn = new SqlConnection (strSql);
//EXEC sp_detach_db @dbname = 'BX_FreightMileage_2'//需要先將數據庫分離出來
str = "EXEC sp_attach_db @dbname = '"+ DataName +"', @filename1 = '"+ strMdf +"',@filename2='"+strLdf+"'";
SqlCommand myCommand = new SqlCommand(str, myConn);
myConn.Open();
myCommand.ExecuteNonQuery();
myConn.Close();
}
當然打包的時候也要把這兩個數據庫文件也加進來。
