你装没装MSDN？上面讲得可详细了。
为曲麻莱等地区用户提供了全套网页设计制作服务，及曲麻莱网站建设行业解决方案。主营业务为成都网站设计、成都网站制作、外贸网站建设、曲麻莱网站设计，以传统方式定制建设网站，并提供域名空间备案等一条龙服务，秉承以专业、用心的态度为用户提供真诚的服务。我们深信只要达到每一位用户的要求，就会得到认可，从而选择与我们长期合作。这样，我们也可以走得更远！
下面是一个教程，供参考：
在VB.NET中如何制作安装程序，
给你个例子！ 创建 Windows 应用程序 在“文件”菜单上指向“新建”，然后选择“项目”。
在“新建项目”对话框中，选择“项目类型”窗格中的“Visual Basic 项目”，然后选择“模板”窗格中的“Windows 应用程序”。在“名称”框中，键入“我的记事本”。
此项目被添加到解决方案资源管理器中，并且窗体设计器打开。 在“工具箱”中选择“Windows 窗体”选项卡，并将“按钮”(Button) 控件拖到窗体中。
双击 Button 控件为该按钮添加事件处理程序。在事件处理程序中添加下面的代码：
Shell("Notepad.exe", AppWinStyle.NormalFocus)
这将启动 Notepad.exe 并将焦点对准它。 在“生成”菜单上，选择“生成我的记事本”该应用程序。
创建部署项目 在“文件”菜单上指向“添加项目”，然后选择“新建项目”。
在“添加新项目”对话框中，选择“项目类型”窗格中的“安装和部署项目”，然后选择“模板”窗格中的“安装项目”。在“名称”框中，键入“我的记事本安装程序”。
项目被添加到解决方案资源管理器中，并且文件系统编辑器打开。 在解决方案资源管理器中选择“我的记事本安装程序”项目。在“属性”窗口中，选择 ProductName 属性，并键入“我的记事本”。
注意 ProductName 属性确定应用程序显示在文件夹名称以及“添加/删除程序”对话框中的名称。
将 Windows 应用程序添加到安装程序中 在解决方案资源管理器中选择“我的记事本安装程序”项目。在“文件系统编辑器”中，选择“应用程序文件夹”节点。
在“操作”菜单上，选择“添加”-“项目输出”。
在“添加项目输出组”对话框中，从“项目”下拉列表中选择“我的记事本”。
从列表中选择“主输出”组，并单击“确定”。
在“生成”菜单上选择“生成我的记事本安装程序”。
部署应用程序（基本安装程序）如果正在执行一个完整的演练过程，可以跳过此步骤。 在解决方案资源管理器中选择“我的记事本安装程序”项目。在“项目”菜单上选择“安装”。
这将运行该安装程序并在开发计算机上安装“我的记事本”。 其余步骤演示可选的部署功能。为 Windows 应用程序创建快捷方式此步骤将为您的应用程序创建一个快捷方式，安装过程中，会将该快捷方式放置到目标计算机的桌面上。 在解决方案资源管理器中选择“我的记事本安装程序”项目。在“文件系统编辑器”中，选择“来自‘我的记事本’的主输出”节点。
在“操作”菜单上，选择“创建 主输出来自我的记事本（活动）的快捷方式”。
这将添加一个“主输出来自我的记事本（活动）的快捷方式”节点。 重命名“主输出来自我的记事本（活动）的快捷方式”快捷方式。
选择“主输出来自我的记事本（活动）的快捷方式”，并将其拖到左窗格的“用户桌面”文件夹中。
为 Windows 应用程序创建文件关联此步骤为“我的记事本”添加文件关联，以便双击 .vbn 文件时启动“我的记事本”应用程序。 在解决方案资源管理器中选择“我的记事本安装程序”项目。在“视图”菜单上指向“编辑器”，然后选择“文件类型”。
在“文件类型编辑器”中选择“目标计算机上的文件类型”节点。在“操作”菜单上，选择“添加文件类型”。
将添加一个“新文档类型 #1”节点，而且该节点将打开，以便您重命名。 将“新文档类型 #1”重命名为 Vbn.doc。
在“属性”窗口中，将文件类型的 Extension 属性设置为 vbn。
选择 Command 属性并单击“省略号”() 按钮。在“选择项目中的项”对话框中，定位到“应用程序文件夹”，并选择“来自‘我的记事本’的主输出”。
为 Windows 应用程序添加注册表项此步骤将一个注册表项以及相应的值添加到注册表中。运行时，可以从应用程序代码中引用此注册表项以检索每用户信息。 在解决方案资源管理器中选择“我的记事本安装程序”项目。在“视图”菜单上，指向“编辑器”，并选择“注册表”。
选择“HKEY_CURRENT_USER”节点并将其展开，然后展开“Software”节点，并选择“[Manufacturer]”节点。
注意 “Manufacturer”节点两边带有括号，这表示它是一个属性。它将被输入的部署项目的 Manufacturer 属性值所替代。
在“操作”菜单上，选择“新建”-“键”。
重命名 UserChoice 键。
在“操作”菜单上，选择“新建”，再选择“字串值”。
重命名 TextColor 值。
在“属性”窗口中，选择 Value 属性，并输入 Black。
添加自定义安装对话框此步骤添加并配置一个在安装期间显示的自定义用户界面对话框。 在解决方案资源管理器中选择“我的记事本安装程序”项目。在“视图”菜单上指向“编辑器”，然后选择“用户界面”。
在用户界面编辑器中，选择“安装”节点下的“启动”节点。
在“操作”菜单上，选择“添加对话框”。
在“添加对话框”对话框中，选择“复选框 (A)”。
在“操作”菜单上，选择“上移”两次，将“复选框 (A)”对话框放置在“选择安装文件夹”对话框之上。
在“属性”窗口中，将 BannerText 属性设置为“示例”。
将 BodyText 属性设置为“‘安装示例文件’复选框控制是否安装示例文件。如果处于未选中状态，则不安装示例。”
将 CheckBox1Label 属性设置为“要安装示例吗？”。
将 Checkbox2Visible、Checkbox3Visible 和 Checkbox4Visible 属性设置为 false。这将隐藏其他复选框。
添加 Samples 文件夹此步骤创建一个 Samples 子文件夹，它将被安装到 Application 文件夹的下面。 在解决方案资源管理器中选择“我的记事本安装程序”项目。在“视图”菜单上指向“编辑器”，然后选择“文件系统”。“应用程序文件夹”仍应被选中。
从“操作”菜单上指向“添加”，然后选择“文件夹”。
将“新建文件夹 #1”重命名为“示例”。
为应用程序创建示例文件此步骤创建两个简单的文本文件，如果用户在自定义对话框中选择“安装示例”选项，将安装这两个文本文件。 使用记事本或其他文本编辑器创建一个包含文本“这是 rules.vbn”的文本文件，然后将其保存为 Rules.vbn。
注意 若要防止记事本自动添加 .txt 扩展名，请从“文件类型”下拉列表中选择“所有文件”。
创建另一个包含文本“这是 memo.vbn”的文本文件，将其保存为 Memo.vbn。
将示例添加到安装程序中此步骤将示例文件添加到 Samples 文件夹中，并设置决定是否安装该文件的条件。 在解决方案资源管理器中选择“我的记事本安装程序”项目。从“视图”菜单中指向“编辑器”，选择“文件系统”，然后选择“示例”文件夹。
从“操作”菜单上指向“添加”，然后选择“文件”。将 Rules.vbn 和 Memo.vbn 文件添加到“示例”文件夹中。
在文件系统编辑器中选择 Rules.vbn。
在“属性”窗口中，将 Condition 属性设置为 CHECKBOXA1=1。运行安装程序时，只在自定义的复选框被选中时才安装 Rules.vbn 文件。
在文件系统编辑器中选择 Memo.vbn 文件。
在“属性”窗口中，将 Condition 属性设置为 CHECKBOXA1=1。运行安装程序时，只在自定义的复选框被选中时才安装 Memo.vbn 文件。
添加启动条件来检查 Internet Explorer 版本此步骤检查在目标计算机上是否安装了 Internet Explorer 5.0 或更高版本，如果未安装所需版本的 Internet Explorer，将停止安装过程。注意 此步骤旨在阐述启动条件的概念；“我的记事本”应用程序实际上并不依赖于 Internet Explorer。
在解决方案资源管理器中选择“我的记事本安装程序”项目。在“视图”菜单上指向“编辑器”，然后选择“启动条件”。
在启动条件编辑器中，选择“目标计算机上的要求”节点。
在“操作”菜单上，选择“添加文件启动条件”。
将在“搜索目标计算机”节点下面添加一个“搜索 File1”节点，而在“启动条件”节点下面添加一个“Condition1”节点。 将“搜索 File1”重命名为“搜索 Internet Explorer”。
在“属性”窗口中，将 FileName 属性设置为 Iexplore.exe，将 Folder 属性设置为 [ProgramFilesFolder]，将 Depth 属性设置为 2，将 MinVersion 属性设置为 5.00。
选择“Condition1”节点。
将 Message 属性设置为“该程序需要 Microsoft Internet Explorer 5.0 或更高版本。请安装 Internet Explorer 并重新运行‘记事本’安装程序。”
设置部署项目的可选属性此步骤设置一个属性，以便在目标计算机上没有正确版本的 Windows 安装程序时，自动安装 Windows 安装引导程序文件。 在解决方案资源管理器中选择“我的记事本安装程序”项目。在“视图”菜单上，选择“属性页”。
在“我的记事本安装程序”属性页中，选择“引导程序”下拉列表，然后选择“Windows 安装引导程序”。
在“生成”菜单上选择“生成我的记事本安装程序”。
在开发计算机上安装“我的记事本” 在解决方案资源管理器中选择“我的记事本安装程序”项目。在“项目”菜单上选择“安装”。
这将运行该安装程序并在开发计算机上安装“我的记事本”。 将“我的记事本”部署到其他计算机上 在 Windows 资源管理器中，定位到项目目录并查找所生成的安装程序。默认路径是 \documents and settings\yourloginname\我的记事本安装程序\project configuration\我的记事本安装程序.msi，默认“项目配置”是“Debug”。
将该目录中的 我的记事本安装程序.msi 文件以及其他所有文件和子目录复制到另一台计算机上。
注意 若要在未连网的计算机上进行安装，请将文件复制到 CD-ROM 等传统媒体中。
在目标计算机上双击 Setup.exe 文件来运行安装程序。
测试安装 验证快捷方式是否安装到了桌面上以及是否能够正确启动“我的记事本”应用程序。
使用“控制面板”中的“添加/删除程序”工具卸载该应用程序。
提示 若要从开发计算机上卸载，则在“项目”菜单上选择“卸载”。
打包过程：
1、打开自己已经创建好的VB.NET项目（一般一开始创建项目的时候创建的是Windows窗体应用程序）。
2、点“文件”--“新建项目”--“其他项目类型”--“安装部署”--“Visual Studio Installer”--“安装项目”，输入项目名称（此处命名为setup1）并点击“确定”。
3、执行完上一步，在解决方案下面会出现setup1项目。右击setup1项目--“添加”--“项目输出”。
4、在“添加项目输出组”中，选择“主输出”，然后单击“确定”。将自动添加所有依赖项。
5、在解决方案资源管理器中，右击安装项目---“添加”---“合并模块”。 把相关模块添加进来。
6、在文件系统选项卡中添加所需的应用程序图标等文件，并生成应用程序的桌面快捷方式，在快捷方式上右键选择属性，并在属性栏中的图标处选择应用程序快捷方式图标。（要在用户桌面和用户的“程序”菜单属性里将AlwaysCreate属性的值修改为True）。这样安装完程序后就可以看到桌面的图标了
7、关于应用程序图标的详细说明：
（1）点击“应用程序文件夹”并在右侧的列表中的“主输出来自。。”上右键然后点击“创建主输出来自。。的快捷方式”
（2）把生成的快捷方式复制到“用户桌面”，然后右键重命名为你想要在程序安装后显示的名字。
（3）重命名完成后在右侧的属性栏中点击图标设置为自己想要的图标，注意，需要先把图标文件ico加入到“应用程序文件夹”中。（ico的制作：先做好256*256的png文件，然后百度ico制作找到在线制作ico的网站，直接生成ico图标文件）
关于安装后的一些属性的设置：
将VB.Net程序打包成可执行的.exe程序 收藏 一).创建部署项目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类中获得安装后的路径，我们设置此参数。
直接把代码编译生成即可，把Bin文件夹下面的几个文件拷贝过去就可以了。客户机需要安装dot net framwork 3.5
打包过程：
一).创建部署项目
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. 将SQL Server备份成文件DB.dat添加到“setup1”项目(在企业管理器中右击数据库-所有工作-备份数据库,备份成一个文件，取名为DB.dat)
2. 将安装文件LisenceFile.rtf添加到“setup1”项目
3. 在用户界面编辑器中，选择许可协议，设置LisenceFile属性为LisenceFile.rtf文件
4.一般会自动将依赖项添加到“检测到的依赖项”，如果没有，那么我们要手动将其加入步骤5）
Crystal_Managed2003.msm （如果有水晶报表）
dotnetfxredist_x86.msm （.net一定是必须的）
... （如果有引用其他的dll）
5. 如果使用了水晶报表，手动加入要包含的文件：项目--添加--合并模块（添加你的程序文件） (包括dotNetFramework和MDAC27)，位于：C:\Program Files\Common Files\Merge Modules\ 下，*为必要的
具体功能如下：
（托管组件 MSM 处理所有托管组件的分发，其中包括 Windows 窗体查看器、Web 窗体查看器和所有 Crystal Decisions 命名空间）
* Crystal_Managed2003.msm
Crystal_Managed2003_chs.msm
（对于使报表运行所需的所有其他文件，由数据库访问 MSM 处理其分发。其中包括数据库、导出和图表驱动程序。）
* Crystal_Database_access2003.msm
Crystal_Database_access2003_chs.msm
（KeyCode MSM 处理 Crystal Decisions 密钥号码的安装,注意是添加合并模块，否则没有“MergeMouduleProperties”属性）
* Crystal_regwiz2003.msm
（如果报表文件使用了 ADO.NET 的 dataset 数据集对象，那么 VC_User_CRT71_RTL_X86_---.msm 和 VC_User_STL71_RTL_X86_---.msm 模块也必须包含在安装工程中。而且这两个模块的文件安装属性的"Module Retargetable Folder"项必须修改成为系统目录）
VC_User_CRT71_RTL_X86_---.msm
VC_User_STL71_RTL_X86_---.msm
(很多人经常出现查询错误，不妨加上这个)
6. 打开解决方案--右键点击Crystal_regwiz2003.msm的属性，在“MergeMouduleProperties”里的 “License Key”填入：AAP5GKS0000GDE100DS（这个是你生成Crystal Report是用到的注册号的密码！）
七).打包时加入卸载功能：
方法一:
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的快捷方式
八).打包时加入.net环境和MDAC功能：
把MS的PluginInstaller.msi插件装上后,用vb.net的自带的打包工具打包,就会自动把
.net framework环境打进去,再下面的步骤进行设置,就可以把MDAC也打包.
使用 Setup 项目安装 MDAC
1.确保 Visual Studio .NET 框架引导程序插件已安装。
2.在 Solution Explorer 中选择 Setup 项目。
从 View 菜单指向 Editor，并选择 Launch Conditions（启动条件）。
3.选择 Requirements on Target Machine（搜索目标计算机） 节点。
从 Action 菜单，选择 Add Registry Launch Condition（添加注册表搜索）。
4.选择 Search for RegistryEntry1 节点。在 Properties 窗口中，
选择 RegKey 属性，并键入 Software\Microsoft\DataAccess。
5.选择 Root 属性，并选择 vsdrrHKLM。
6.选择 Value 属性，并键入 FullInstallVer。
7.选择 Property 属性，并键入 MDACSEARCH。
8.在 Launch Conditions Editor（启动条件） 中，添加Condition1 节点。
选择 Condition1 节点，在 Properties 窗口中，选择 Condition 属性，并选择 MDACSEARCH="2.6"。
9.在 Solution Explorer 中选择 Setup 项目。在 Project 菜单上，选择 Properties。
10.将 Bootstrapper 属性设置为 Windows Installer Bootstrapper（Windows 安装引导程序）。
附：
installdb.vb类,要添加引用 system.configuration.install.dll :
Imports System.ComponentModel
Imports System.Configuration.Install
RunInstaller(True) Public Class Installer1
Inherits System.Configuration.Install.Installer
#Region " 组件设计器生成的代码 "
Public Sub New()
MyBase.New()
'该调用是组件设计器所必需的。
InitializeComponent()
'在 InitializeComponent() 调用之后添加任何初始化
End Sub
'Installer 重写 dispose 以清理组件列表。
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
'组件设计器所必需的
Private components As System.ComponentModel.IContainer
'注意: 以下过程是组件设计器所必需的
'可以使用组件设计器来修改此过程。
'不要使用代码编辑器来修改它。
System.Diagnostics.DebuggerStepThrough() Private Sub InitializeComponent()
components = New System.ComponentModel.Container
End Sub
#End Region
Public Overrides Sub Install(ByVal stateSaver As System.Collections.IDictionary)
MyBase.Install(stateSaver)
If Not InstallDB() Then
'失败，反安装
Me.Uninstall(stateSaver)
Exit Sub
End If
DeleteFile(String.Format("{0}DB.dat", Me.Context.Parameters.Item("targetdir")))
End Sub
Public Overrides Sub Uninstall(ByVal stateSaver As System.Collections.IDictionary)
'执行反安装
MyBase.Uninstall(stateSaver)
DeleteFile(String.Format("{0}DB.dat", Me.Context.Parameters.Item("targetdir")))
End Sub
Private Sub DeleteFile(ByVal paths As String)
'删除指定的文件
Try
Dim delFile As New System.IO.FileInfo(paths)
If delFile.Exists Then
delFile.Delete()
End If
Catch ex As Exception
End Try
End Sub
Private Sub CreateSql(ByVal paths As String)
Dim File As System.IO.StreamWriter
Dim db As String = String.Format("{0}", Me.Context.Parameters.Item("dbname"))
Dim path As String = String.Format("{0}", Me.Context.Parameters.Item("targetdir"))
Try
Dim s As New System.Text.StringBuilder
s.Append("use master" vbCrLf)
s.Append("" vbCrLf)
s.Append("if not exists (select * from sysdatabases where name='" db "')" vbCrLf)
s.Append(" BEGIN" vbCrLf)
s.Append(" create database " db vbCrLf)
s.Append(" END" vbCrLf)
s.Append("" vbCrLf)
s.Append("if exists (select * from sysdevices where name='DBdisk')" vbCrLf)
s.Append(" BEGIN" vbCrLf)
s.Append(" EXEC sp_dropdevice 'DBdisk'" vbCrLf)
s.Append(" END" vbCrLf)
s.Append("Else" vbCrLf)
s.Append(" BEGIN" vbCrLf)
s.Append(" EXEC sp_addumpdevice 'disk','DBdisk', '" path "DB.dat'" vbCrLf)
s.Append(" END" vbCrLf)
s.Append("" vbCrLf)
s.Append("restore database " db vbCrLf)
s.Append("from disk='" path "DB.dat'" vbCrLf)
s.Append("with replace")
File = New System.IO.StreamWriter(paths)
File.Write(s.ToString)
Catch ex As Exception
Finally
File.Close()
End Try
End Sub
Private Function InstallDB() As Boolean
'安装数据库，调用自动批处理。
Try
'创建临时脚本
CreateSql(String.Format("{0}Mydb2000tp.sql", Me.Context.Parameters.Item("targetdir")))
'调用osql执行脚本
Dim sqlProcess As New System.Diagnostics.Process
sqlProcess.StartInfo.FileName = "osql.exe"
sqlProcess.StartInfo.Arguments = String.Format(" -U {0} -P {1} -S {2} -i {3}Mydb2000tp.sql", Me.Context.Parameters.Item("user"), Me.Context.Parameters.Item("pwd"), Me.Context.Parameters.Item("server"), Me.Context.Parameters.Item("targetdir"))
sqlProcess.StartInfo.WindowStyle = ProcessWindowStyle.Hidden
sqlProcess.Start()
sqlProcess.WaitForExit() '等待执行
sqlProcess.Close()
'删除脚本文件
DeleteFile(String.Format("{0}Mydb2000tp.sql", Me.Context.Parameters.Item("targetdir")))
Return True
Catch ex As Exception
Return False
End Try
End Function
End Class
网上的另外一种installdb.vb类
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();
}
当然打包的时候也要把这两个数据库文件也加进来。
重庆分公司
重庆分公司
