[转贴]用Vs.net制作安装程序,在安装包中自动为客户创建数据库

重点介绍如何在安装包中自动为客户创建数据库

步骤:
1、添加一个新项目->选择类库模板->命名为DBCustomAction
2、单击项目右键->添加新项->选择安装程序类(命名为DBCustomAction.cs)
3、在服务器资源管理器中添加->连接到数据库->指定用户密码(选择允许保存密码)->数据库选择master
4、切换到DBCustomAction.cs的视图状态->将服务器资源管理器数据库连接中的master.dbo拖动到designer中
5、添加一个新项sql.txt(注意要使用小写),输入下列sql代码
CREATE TABLE [dbo].[MK_Employees] (
[Name] [char] (30) COLLATE SQL_Latin1_General_CP1_CI_AS NOT NULL ,
[Rsvp] [int] NULL ,
[Requests] [nvarchar] (4000) COLLATE SQL_Latin1_General_CP1_CI_AS NULL 
) ON [PRIMARY];

ALTER TABLE [dbo].[MK_Employees] WITH NOCHECK ADD 
CONSTRAINT [PK_MK_Employees] PRIMARY KEY CLUSTERED 
(
[Name]
) ON [PRIMARY];
(P.S:也可以直接用SqlServer导出)

6、在sql.txt的右键属性中->生成操作->嵌入的资源
7、将DBCustomAction.cs切换到代码视图,添加下列代码
private  string GetSql(string Name)
      {
         try
         {
            Assembly Asm = Assembly.GetExecutingAssembly();
            Stream strm = Asm.GetManifestResourceStream(Asm.GetName().Name + "."+Name);
            StreamReader reader = new StreamReader(strm);
            return reader.ReadToEnd();
         }
         catch (Exception ex)
         {
            Console.Write("In GetSql:"+ex.Message);
            throw ex;
         }
      }

      private void ExecuteSql(string DataBaseName,string Sql)
      {
         System.Data.SqlClient.SqlCommand Command = new System.Data.SqlClient.SqlCommand(Sql,sqlConnection1);

         Command.Connection.Open();
         Command.Connection.ChangeDatabase(DataBaseName);
         try
         {
            Command.ExecuteNonQuery();
         }
         finally
         {
            Command.Connection.Close();
         }
      }


      protected void AddDBTable(string strDBName)
      {
         try
         {
            ExecuteSql("master","CREATE DATABASE "+ strDBName);
            ExecuteSql(strDBName,GetSql("sql.txt"));
         }
         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"]);
      }


8、再添加一个新项目,(选择添加到解决方案中)->项目类型为安装项目->命名为DBCustomAction Installer
9、选择应用程序文件夹->添加->项目输出->主输出
10、在方案资源管理器中->右键安装项目(DBCustomAction Installer)->视图->用户界面
11、选中启动结点->添加对话框->文本A
12、选动文本框A->右键->上移一直到最顶端
13、选择文本框A属性->修改BannerText,(Specify Database Name)
14、修改BodyText(This dialog allows you to specify the name of the database to be created on the database server. )
15、修改EditLabel1(Name of DB),修改Edit1Porperty(CUSTOMTEXTA1),将其他Edit2,3,4的Edit(2,3,4)Visible属性设为false;
16、在方案资源管理器中->右键安装项目(DBCustomAction Installer)->视图->自定义操作
17、选中安装结点->添加->双击应用程序文件夹->主输出来自DBCustomAction(活动)->右键属性->CustomActiveData属性修改为/dbname=[CUSTOMTEXTA1]
18、编译生成,OK!

注:此文章主要来自于MSDN,本来代码使用vb.net,我用C#改写了一下,完整URL请参考
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/vsintro7/html/vxwlkWalkthroughUsingCustomActionToCreateDatabaseDuringInstallation.asp
另外没有接受客户数据库服务Server-Name和Password的对话框,我想既然可以接受DBNAME参数,那么接收Server-Name和Password应该也不难.
几张图片