如何发布含Crystal Report的VB.Net应用，无需客户端安装VS等组件

问题描述 #

我需要把VB.Net应用打包成安装程序，让客户端仅安装该程序就能连接我电脑上XAMPP的MySQL数据库，不需要额外安装MySQL ODBC驱动、Crystal Report和Visual Studio。目前数据库连接在本地已实现，但因为用到Crystal Report，部署时出现问题——客户端未装VS2022和Crystal Report的情况下运行应用会报错，本地装有全套开发环境时运行完全正常。

我的工具 #

• Visual Studio 2022
• Installer Project for VS 64位
• Crystal Report for VS 2022 64位
• Xampp
• Odbc Data sources 64位和32位
• MySQL驱动64位和32位

数据库连接模块代码 #

Imports System.Data.Odbc
Imports System.Text
Imports System.Security.Cryptography
Module Module1
    Public Conn As OdbcConnection
    Public da As OdbcDataAdapter
    Public ds As DataSet
    Public rd As OdbcDataReader
    Public rd2 As OdbcDataReader
    Public cmd As OdbcCommand
    Public cLevelUser, cUserId, mPath, cNamaUser, cId_Dataset, cKode_Prodi, cId_Periode As String
    Public tblEdit, Valid As Boolean
    Public Sub Koneksi()
        'Procedure koneksi database dengan MySql
        mPath = Application.StartupPath & "\\"
        Try
            Conn = New OdbcConnection("DSN=dsnMahasiswa_Regis;MultipleActiveResultSets=True")
            If Conn.State = ConnectionState.Closed Then
                Conn.Open()
            End If
        Catch ex As Exception
            MsgBox("Koneksi Database Gagal", vbExclamation, "Koneksi Gagal")
        End Try
    End Sub
    Public Function StripNonAlphaNum(ByRef sText As String) As String
        Dim strRegex As String = "[^a-zA-Z0-9 -]"
        Dim rgx As New System.Text.RegularExpressions.Regex(strRegex)
        Return rgx.Replace(sText, "")
    End Function
    Public Function SHA256(ByVal Content As String) As String
        'Function untuk mengenkrip password dengan algoritma SHA256
        Dim MoleCul3 As New Security.Cryptography.SHA256CryptoServiceProvider
        Dim ByteString() As Byte = System.Text.Encoding.ASCII.GetBytes(Content)
        ByteString = MoleCul3.ComputeHash(ByteString)
        Dim FinalString As String = Nothing
        For Each bt As Byte In ByteString
            FinalString &= bt.ToString("x2")
        Next
        Return FinalString
    End Function
End Module

异常情况 #

客户端未安装VS2022和Crystal Report时，运行应用会出现Crystal Report组件加载失败的异常；本地装有全套开发环境时，应用可正常连接数据库并显示报表。

解决方案 #

一、Crystal Report部署处理 #

1. 打包Crystal Report运行时
   客户端必须有对应版本的Crystal Report运行时才能加载报表，不能依赖开发环境：

   • 下载匹配VS2022的64位Crystal Report Runtime for .NET安装包
   • 在Installer Project中，将该运行时添加为Prerequisite，设置为安装时自动静默安装；也可将运行时核心DLL（如CrystalDecisions.CrystalReports.Engine.dll、CrystalDecisions.Shared.dll等）复制到应用输出目录，一并打包。

2. 完善安装项目配置

   • 在Installer Project中右键选择Add→Project Output，勾选主输出和内容文件，确保所有.rpt报表文件被包含进安装包
   • 确认安装项目的Target Platform为64位，与应用、Crystal Report版本保持一致，避免位数不兼容

二、MySQL ODBC驱动部署处理 #

当前使用DSN连接依赖客户端配置，需改为无DSN连接并打包驱动：

1. 替换为无DSN连接字符串
   修改Koneksi方法中的连接字符串，直接指定驱动和数据库参数，摆脱DSN依赖：

   Conn = New OdbcConnection("Driver={MySQL ODBC 8.0 Unicode Driver};Server=你的电脑IP;Database=你的数据库名;User=数据库用户名;Password=数据库密码;Port=3306;")
   

   注意替换为你的实际服务器IP、数据库信息，以及匹配的驱动版本名称。

2. 自动安装ODBC驱动
   下载MySQL ODBC驱动的静默安装包，在Installer Project中添加为Prerequisite，设置安装时自动执行静默安装，无需客户端手动操作。

三、其他关键注意事项 #

• 防火墙与权限：开放本地XAMPP MySQL的3306端口，确保客户端能访问；客户端应用需有读取报表文件的权限
• 报表路径：加载报表时使用相对路径，比如Application.StartupPath & "\报表文件名.rpt"，避免依赖开发环境路径
• 测试验证：在未装开发环境的干净设备上测试安装包，确认所有依赖正常安装、数据库连接和报表显示无问题

内容的提问来源于stack exchange，提问作者Rom-san