VB.NET安装工程具体应用方法解析

VB.NET是由微软推出的一款功能强大的，具有面向对象特性的编程语言。它可以帮助我们打造出一个安全稳定的编程环境，提高编程效率。我们将会在这篇文章为大家详细介绍一下有关VB.NET安装工程的相关概念。

创新互联专注于九原企业网站建设,成都响应式网站建设公司,商城网站建设。九原网站建设公司,为九原等地区提供建站服务。全流程按需定制网站，专业设计，全程项目跟踪，创新互联专业和态度为您提供的服务

刚听了SMART CLIENT部署的讲座,里面详细讲述了如果在VB.NET安装工程里运行自定义的DLL或者EXE,以后在自定义的工程中如何得到安装工程的传递过来的参数。下面大致说一下自己的心得：

首先，是制作一个类工程。然后添加一个安装类文件，并添加一个SQL.TXT文件,当作嵌入的资源,类的代码如下,在后面再做说明:

 
 
 
    
  
  
  
  1. Dim Cn As SqlConnection 
    2. 
  
  
  
  2. '得到SQL脚本字符串 
    3. 
  
  
  
  3. Private Function GetSql(ByVal Name As String) As String 
    4. 
  
  
  
  4. Try 
    5. 
  
  
  
  5. '通过反射取到程序集 
    6. 
  
  
  
  6. Dim Asm As [Assembly] = [Assembly].GetExecutingAssembly() 
    7. 
  
  
  
  7. '读取资源文件资料,要将资源文件在编译时设成嵌入的资源 
    8. 
  
  
  
  8. Dim Sm As Stream = Asm.GetManifestResourceStream
    (Asm.GetName().Name + "." + Name) 
    9. 
  
  
  
  9. Dim Rr As New StreamReader(Sm) 
    10. 
  
  
  
  10. Return Rr.ReadToEnd 
    11. 
  
  
  
  11. Catch ex As Exception 
    12. 
  
  
  
  12. MsgBox(Err.Description, MsgBoxStyle.OKOnly, "出错提示") 
    13. 
  
  
  
  13. Throw ex 
    14. 
  
  
  
  14. End Try 
    15. 
  
  
  
  15. End Function 
    16. 
  
  
  
  16. '得到数据库备份文件路径 
    17. 
  
  
  
  17. Private Function GetBakFilePath
    (ByVal DatFileName As String) As String 
    18. 
  
  
  
  18. Try 
    19. 
  
  
  
  19. '通过反射取到程序集 
    20. 
  
  
  
  20. Dim Asm As [Assembly] = [Assembly].GetExecutingAssembly() 
    21. 
  
  
  
  21. '读取资源文件资料,要将资源文件在编译时设成嵌入的资源 
    22. 
  
  
  
  22. Dim Sm As Stream = Asm.GetManifestResourceStream
    (Asm.GetName().Name + "." + DatFileName) 
    23. 
  
  
  
  23. If File.Exists("c:\" & DatFileName) Then 
    24. 
  
  
  
  24. File.Delete("c:\" & DatFileName) 
    25. 
  
  
  
  25. End If 
    26. 
  
  
  
  26. Dim Fs As New FileStream("c:\" & DatFileName, FileMode.Create) 
    27. 
  
  
  
  27. Dim Sw As New BinaryWriter(Fs) 
    28. 
  
  
  
  28. Dim recbyte(Sm.Length - 1) As Byte 
    29. 
  
  
  
  29. Dim strread As New BinaryReader(Sm) 
    30. 
  
  
  
  30. strread.Read(recbyte, 0, recbyte.Length) 
    31. 
  
  
  
  31. Sw.Write(recbyte, 0, recbyte.Length) 
    32. 
  
  
  
  32. Sw.Close() 
    33. 
  
  
  
  33. Fs.Close() 
    34. 
  
  
  
  34. Return "C:\" & DatFileName 
    35. 
  
  
  
  35. Catch ex As Exception 
    36. 
  
  
  
  36. MsgBox(Err.Description, MsgBoxStyle.OKOnly, "出错提示") 
    37. 
  
  
  
  37. Throw ex 
    38. 
  
  
  
  38. End Try 
    39. 
  
  
  
  39. End Function 
    40. 
  
  
  
  40. Private Sub ExecuteSql(ByVal DbName As String, 
    ByVal SqlText As String, ByVal uid As String, 
    ByVal pwd As String, ByVal servername As String) 
    41. 
  
  
  
  41. Dim cmd As New SqlCommand(SqlText, Cn) 
    42. 
  
  
  
  42. If Cn.State = ConnectionState.Closed Then Cn.Open() 
    43. 
  
  
  
  43. Try 
    44. 
  
  
  
  44. Cn.ChangeDatabase(DbName) 
    45. 
  
  
  
  45. cmd.ExecuteNonQuery() 
    46. 
  
  
  
  46. Catch ex As Exception 
    47. 
  
  
  
  47. MsgBox("运行SQL脚本出错!", MsgBoxStyle.OKOnly, "提示") 
    48. 
  
  
  
  48. Throw ex 
    49. 
  
  
  
  49. End Try 
    50. 
  
  
  
  50. Cn.Close() 
    51. 
  
  
  
  51. End Sub 
    52. 
  
  
  
  52. Protected Sub AddDBTable(ByVal DBName As String, 
    ByVal uid As String, ByVal pwd As String, ByVal servername As String) 
    53. 
  
  
  
  53. '判断数据库是否存在 
    54. 
  
  
  
  54. Try 
    55. 
  
  
  
  55. Cn = New SqlConnection("Persist Security Info=False;
    User ID=" & uid & ";Initial Catalog=master;
    Data Source=" & servername & ";password=" & pwd & ";Max Pool Size=75000") 
    56. 
  
  
  
  56. Dim Dt As New DataTable() 
    57. 
  
  
  
  57. Cn.Open() 
    58. 
  
  
  
  58. Dim cmd As New SqlDataAdapter() 
    59. 
  
  
  
  59. cmd.SelectCommand = New SqlCommand("exec sp_helpdb", Cn) 
    60. 
  
  
  
  60. cmd.Fill(Dt) 
    61. 
  
  
  
  61. Dim i As Int16 
    62. 
  
  
  
  62. For i = 0 To Dt.Rows.Count - 1 
    63. 
  
  
  
  63. If DBName.ToLower = CType(Dt.Rows(i).Item(0), String).ToLower Then 
    64. 
  
  
  
  64. '数据库存在 
    65. 
  
  
  
  65. cmd = Nothing
    66. 
  
  
  
  66. Cn.Close() 
    67. 
  
  
  
  67. Exit Sub 
    68. 
  
  
  
  68. End If 
    69. 
  
  
  
  69. Next 
    70. 
  
  
  
  70. Catch ex As Exception 
    71. 
  
  
  
  71. MsgBox(Err.Description & "连接数据库出错,请检查所输入的参数是否正确!",
     MsgBoxStyle.OKOnly, "出错提示") 
    72. 
  
  
  
  72. Exit Sub '如已存在则跳出 
    73. 
  
  
  
  73. End Try 
    74. 
  
  
  
  74. Try 
    75. 
  
  
  
  75. '========方法一:运行SQL脚本创建数据库 
    76. 
  
  
  
  76. ' ExecuteSql("Master", "Create DataBase " & DBName, uid, pwd, servername) 
    77. 
  
  
  
  77. 'ExecuteSql(DBName, GetSql("mysql.txt"), uid, pwd, servername) 
    78. 
  
  
  
  78. '========方法二:执行还原备份文件 
    79. 
  
  
  
  79. Dim cm As New ADODB.Command() 
    80. 
  
  
  
  80. Dim cn As New ADODB.Connection() 
    81. 
  
  
  
  81. Dim dbrs As New ADODB.Recordset() 
    82. 
  
  
  
  82. cn.Open("Provider=SQLOLEDB.1;Persist Security Info=False;
    User ID=" & uid & ";Initial Catalog=master;
    Data Source=" & servername & ";password=" & pwd) 
    83. 
  
  
  
  83. cm.ActiveConnection = cn
    84. 
  
  
  
  84. '判断该数据是否存在,存在就删除 
    85. 
  
  
  
  85. cm.CommandText = "exec sp_helpdb"
    86. 
  
  
  
  86. dbrs = cm.Execute() '取所有数据库名 
    87. 
  
  
  
  87. If Not dbrs.BOF And Not dbrs.EOF Then 
    88. 
  
  
  
  88. Do While Not dbrs.EOF 
    89. 
  
  
  
  89. If Trim(dbrs.Fields(0).Value) = Trim(DBName) Then '如果该数据库存 
    90. 
  
  
  
  90. cm.CommandText = "drop database " & Trim(DBName) 
    91. 
  
  
  
  91. cm.Execute() 
    92. 
  
  
  
  92. Exit Do 
    93. 
  
  
  
  93. End If 
    94. 
  
  
  
  94. dbrs.MoveNext() 
    95. 
  
  
  
  95. Loop 
    96. 
  
  
  
  96. End If 
    97. 
  
  
  
  97. ' dbrs.Close() 
    98. 
  
  
  
  98. Dim Sfile As String = GetBakFilePath("installdb.dat") 
    99. 
  
  
  
  99. cm.CommandText = "restore database " & Trim(DBName) & " from DISK='" & Trim(Sfile) & "'" 
    100. 
  
  
  
  100. cm.Execute() 
    101. 
  
  
  
  101. cn.Close() 
    102. 
  
  
  
  102. If File.Exists(Sfile) Then 
    103. 
  
  
  
  103. File.Delete(Sfile) 
    104. 
  
  
  
  104. End If 
    105. 
  
  
  
  105. Catch ex As Exception 
    106. 
  
  
  
  106. MsgBox(Err.Description & "A", MsgBoxStyle.OKOnly, "出错提示") 
    107. 
  
  
  
  107. Throw ex 
    108. 
  
  
  
  108. End Try 
    109. 
  
  
  
  109. End Sub 
    110. 
  
  
  
  110. '覆写安装方法 
    111. 
  
  
  
  111. Public Overrides Sub Install(ByVal stateSaver As System.Collections.IDictionary) 
    112. 
  
  
  
  112. MyBase.Install(stateSaver) 
    113. 
  
  
  
  113. '取安装程序中用户界面中添回的文本框中的参数值 
    114. 
  
  
  
  114. Dim Connstr As String = Me.Context.Parameters.Item("dbname") 
    115. 
  
  
  
  115. Dim Cs As String() = Split(Connstr, "|") 
    116. 
  
  
  
  116. AddDBTable(Cs(0), Cs(1), Cs(2), Cs(3)) 
    117. 
  
  
  
  117. End Sub
    118.

然后添加一个VB.NET安装工程,将上面的类的工程做为项目主输出添进来.在用户界面中加一个文本框#t#

然后在文本框的四个属性中输入参数名称..

这里设置了四个参数,在安装运行的时候,会有界面让你输入四个参数,在自定义操作里的安装项目上,将所加载进来的项目主输入选中置入.

并将属性CustomActionData设置为/参数名=[][][][]...以这种方式写入在文件框中设置好的参数,我们再看一下上面类中的代码:

 
 
 
    
  
  
  
  1. Dim Connstr As String = Me.Context.Parameters.Item("dbname")
    2.

便会取到参数dbname的值,亦就是在安装界面时要用户输入的值.

类中还覆写了Install方法.会自动运行,并执行用户自定义的程序代码.代码与平时所编的vbNET一样.

上面的VB.NET安装工程代码做了二种情况,一种是从嵌入的文本文件中取得SQL语句,运行它创建数据库.另一种是用SQL数据备份的DAT文件做为嵌入资源,在安装过程中,由用户输入的参数为条件,连接SQL服务器并还原数据库...

网页标题：VB.NET安装工程具体应用方法解析
文章转载：http://www.shufengxianlan.com/qtweb/news26/3776.html

网站建设、网络推广公司-创新互联，是专注品牌与效果的网站制作，网络营销seo公司；服务项目有等

广告

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源： 创新互联

猜你还喜欢下面的内容

企业网站制作知识

同城分类信息

成都手机网站报价　　 　免备案虚拟主机空间　　 　400电话申请　　 　堡垒主机　　 　微信开发　　 　郫都区消防器材　　 　LED显示屏厂家　　 　乐山服务器托管　　 　梓潼网站建设　　 　虚拟主机　　 　宜宾做网站　　 　重庆水土三线托管　　 　企业网站设计　　 　虚拟主机　　 　网站SEO优化排名　　 　自贡托管服务器　　 　成都企业网站维护　　 　成都圣月窗帘　　 　成都网站推广　　 　东方电机技改服务有限公司