在.NET平台下,部署Web 解決方案是比較方便的。我們可以利用Visual Studio.NET 2003新增一個WEB安裝項目,在部署的「檔案系統編輯器」中新增項目的主輸出和內容文件,非常簡易地完成安裝程式的製作。
但是,這樣製作的安裝程序,只是將Web頁和ASP.NET程式編譯的DLL檔案安裝到目標機器的IIS目錄,對於一般的應用程式是可以的(例如用Access資料庫,可以一起打包到安裝程式中);如果資料庫是SQL SERVER,需要在部署的時候一併安裝資料庫,安裝程式的製作就會複雜一些,需要我們自訂安裝程式類別。在安裝程式類別中執行SQL腳本並將連接字串寫入Web.config。
l 安裝資料庫
微軟MSDN上介紹在部署應用程式的時候建立資料庫。如:
://msdn.microsoft.com/library/default.asp?url=/library/en-us/vsintro7/html/vxwlkWalkthroughUsingCustomActionToCreateDatabaseDuringInstallation.asp 此方法是建立一個安裝程式類,在安裝程式類別中呼叫ADO.NET執行SQL 語句(SQL語句放在一個文字檔案中)來建立資料庫。
但是,這種方法有一個問題,如果用SQL Server2000產生了所有建表、視圖、預存程序的一個腳本文件,用ADO.NET來執行這個腳本文件,就會因為腳本中有許多「GO」語句而出現錯誤。當然,我們可以把「GO」替換成換行符,利用ADO.NET一則執行SQL 語句。很顯然,這樣的效率比較低。
最好的方法是呼叫osql執行腳本。 (或建立一個資料庫專案的cmd文件,而cmd文件建立資料庫的時候也是呼叫的osql)。
using System;
using System.Collections;
using System.ComponentModel;
using System.Configuration.Install;
using System.Data.SqlClient;
using System.IO;
using System.Reflection;
using System.Diagnostics;
using System.Xml;
namespace DBCustomAction
{
/// <summary>
/// DBCustomAction 的摘要說明。
/// </summary>
[RunInstaller(true)]
public class DBCustomAction : System.Configuration.Install.Installer
{
/// <summary>
///@author:overred
/// </summary>
private System.ComponentModel.Container components = null;
public DBCustomAction()
{
// 該呼叫是設計器所必需的。
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
#region custom setup
private void ExecuteSql(string connString,string DatabaseName,string sql)
{
SqlConnection conn=new SqlConnection(connString);
SqlCommand cmd=new SqlCommand(sql,conn);
conn.Open();
cmd.Connection.ChangeDatabase(DatabaseName);
try
{
cmd.ExecuteNonQuery();
}
catch(Exception e)
{
StreamWriter w=new StreamWriter(@"e:\log.txt",true);
w.WriteLine("===in ExecuteSql======");
w.WriteLine(e.ToString());
w.Close();
}
finally
{
conn.Close();
}
}
public override void Install(IDictionary stateSaver)
{
createDB();
updateConfig();
}
private void createDB()
{
try
{
string connString=string.Format("server={0};user id={1};password={2}",this.Context.Parameters["server"],this.Context.Parameters["user"], this.Context.Parameters["pwd"]);
//根據輸入的資料庫名稱建立資料庫
ExecuteSql(connString,"master","create database "+this.Context.Parameters["dbname"]);
//呼叫osql執行腳本
string cmd=string.Format(" -S{0} -U{1} -P{2} -d{3} -i{4}db.sql",this.Context.Parameters["server"],this .Context.Parameters["user"],this.Context.Parameters["pwd"],this.Context.Parameters["dbname"],this.Context.Parameters["targetdir"]);
System.Diagnostics.Process sqlProcess=new Process();
sqlProcess.StartInfo.FileName="osql.exe";
sqlProcess.StartInfo.Arguments=cmd;
sqlProcess.StartInfo.WindowStyle=ProcessWindowStyle.Hidden;
sqlProcess.Start();
sqlProcess.WaitForExit();//等待執行
sqlProcess.Close();
//刪除腳本文件
System.IO.FileInfo sqlFileInfo=new FileInfo(string.Format("{0}db.sql",this.Context.Parameters["targetdir"]));
if(sqlFileInfo.Exists)
sqlFileInfo.Delete();
}
catch(Exception e)
{
StreamWriter w=new StreamWriter(@"e:log.txt",true);
w.WriteLine("===in Install======");
w.WriteLine(e.ToString());
w.Close();
}
}
private void updateConfig()
{
try
{
//將連線字串寫入Web.config
System.IO.FileInfo fileInfo=new FileInfo(string.Format("{0}web.config",this.Context.Parameters["targetdir"]));
if(!fileInfo.Exists)
throw new InstallException("can't find the web.config");
XmlDocument doc=new XmlDocument();
doc.Load(fileInfo.FullName);
bool foundIt=false;
string connString=string.Format("server={0};database={1};user id={2};password={3}",this.Context.Parameters["server"], this.Context.Parameters["dbname"],this.Context.Parameters["用戶"],this.Context.Parameters["pwd"]);
string enCS=SecurityHelper.EncryptDBConnectionString(connString);
XmlNode no=doc.SelectSingleNodeNode ("//appSettings/add[@key='connString']");
if(no!=null)
{
no.Attributes.GetNamedItem("value").Value=enCS;
foundIt=true;
}
if(!foundIt)
throw new InstallException("can't find the connString setting ");
doc.Save(fileInfo.FullName);
}
catch(Exception e)
{
StreamWriter w=new StreamWriter(@"e:log.txt",true);
w.WriteLine("===in updata connstring=tjtj=====");
w.WriteLine(e.ToString());
w.WriteLine(e.StackTrace);
w.Close();
}
}
#endregion
}
}