.NET程序打包(自动安装数据库)总结

发布时间:2014-10-25 2:20:58
来源:分享查询网

一).创建部署项目 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 属性并键入 CUSTOMTEXTA110. 选择 Edit1Value 属性并键入:dbservers11. 选择 Edit2Label 属性并键入:服务器名:12. 选择 Edit2Property 属性并键入 CUSTOMTEXTA213. 选择 Edit2Value 属性并键入:(local)14. 选择 Edit3Label 属性并键入:用户名:15. 选择 Edit3Value 属性并键入:sa16. 选择 Edit3Property 属性并键入 CUSTOMTEXTA317. 选择 Edit4Label 属性并键入:密码:18. 选择 Edit4Property 属性并键入 CUSTOMTEXTA419. 选择 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,2003Module 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 SubEnd Module3.将控制台程序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();     }当然打包的时候也要把这两个数据库文件也加进来。       ------------------------------------------------------------------------------------------------____   以上是网上通用的解决方案,在按这个解决方案做的过程中遇到了一些问题,现在就是把一些问题和解决方法说一下。。         1.我们用SQL生成的SQL脚本,在每个语句下边都会有一个GO,我们利用ADO.NET执行SQL脚本的时候会运行不成功,我们可以去掉GO语句。 2.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);     这个地方,由于路径问题,我怀疑拿不到SQL.TXT脚本,我尝试用WINFORM直接写死路径就可以,所以找到其他方法 http://msdn.microsoft.com/en-us/library/49b92ztk(vs.71).aspx 官方文档。 Private Function GetSql(ByVal Name As String) As String   Try      ' Gets the current assembly.      Dim Asm As [Assembly] = [Assembly].GetExecutingAssembly()      ' Resources are named using a fully qualified name.      Dim strm As Stream = Asm.GetManifestResourceStream(Asm.GetName().Name + "." + Name)      ' Reads the contents of the embedded file.      Dim reader As StreamReader = New StreamReader(strm)      Return reader.ReadToEnd()   Catch ex As Exception      MsgBox("In GetSQL: " & ex.Message)      Throw ex   End TryEnd Function  意思将SQL.TXT文件添加到类库中,设置为嵌入式资源,利用反射调用。   网上有高人说了这个问题 “们可以把“GO”替换成换行符,利用ADO.NET一条条执行SQL 语句。很显然,这样的效率比较低  最好的办法是调用osql执行脚本。” http://www.cnblogs.com/tutuya/articles/35072.html    这个方法我还没试。

返回顶部
查看电脑版