Элементы отчета Crystal, не отображаемые при развертывании на клиентском компьютере vb.net

0

При запуске приложения на моем сервере pc, где база данных установлена, она работает и отображает элементы в моей базе данных, но когда я устанавливаю и запускаю ее на своем клиентском ПК, она не показывает никаких ошибок. im, используя сообщество vb.net 2013, wamp mysql в качестве базы данных и sap crystal report version 13.0.12.1494, и я использую odbc im my connection connection

вот скриншот этого, работающий на моем сервере pc

Изображение 174551

вот один из моего клиентского ПК, вы можете видеть, что мой список просматривает и показывает элементы в базе данных, но когда я нажимаю print, отчет о кристалле показывается пустым

Изображение 174551

вот моя строка подключения в моей конфигурации приложения и подключении к модулю

App.config

<?xml version="1.0" encoding="utf-8"?>
<configuration>
  <configSections>
  </configSections>
  <startup>
    <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.5"/>
  </startup>

  <connectionStrings>
    <add name="MySqlConnectionString" connectionString="SERVER=192.168.1.2;DATABASE=payparkingsystem;UID=connect;PASSWORD=password;" />
  </connectionStrings>

</configuration>

moduleconnection.vb.

Imports MySql.Data.MySqlClient
Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared
Imports System.Configuration
Module ModuleConnection

    Public connString1 As String = ConfigurationManager.ConnectionStrings("MySqlConnectionString").ToString()
    Public conn As MySqlConnection = New MySqlConnection(connString1)
    Public sql As String = ""

    Public Function ExecuteQuery(ByVal query As String) As DataTable
        Dim sqlDT As New DataTable
        Try
            Dim sqlCon As New MySqlConnection(connString1)
            Dim sqlDA As New MySqlDataAdapter(query, sqlCon)
            Dim sqlCB As New MySqlCommandBuilder(sqlDA)
            sqlDA.Fill(sqlDT)
        Catch ex As Exception
        End Try
        Return sqlDT
    End Function
End Module

вот мой код печати

Public Sub PrintEmployeeAccountsLogsSearch()
        Dim cryRpt As New ReportDocument
        cryRpt.Load("C:\Reports\CrystalReportPrintEmployeeAccountsLogsSearch.vb.rpt")
        Dim crParameterFieldDefinitions As ParameterFieldDefinitions
        Dim crParameterFieldDefinition As ParameterFieldDefinition
        Dim crParameterValues As New ParameterValues
        Dim crParameterDiscreteValue As New ParameterDiscreteValue
        crParameterDiscreteValue.Value = print
        crParameterFieldDefinitions = cryRpt.DataDefinition.ParameterFields
        crParameterFieldDefinition = crParameterFieldDefinitions.Item("My Parameter")
        crParameterValues = crParameterFieldDefinition.CurrentValues
        crParameterValues.Clear()
        crParameterValues.Add(crParameterDiscreteValue)
        crParameterFieldDefinition.ApplyCurrentValues(crParameterValues)
        FormPrintEmployeeAccountsLogsSearch.CrystalReportViewer1.ReportSource = cryRpt
        FormPrintEmployeeAccountsLogsSearch.CrystalReportViewer1.Refresh()
        cryRpt.PrintToPrinter(1, True, 0, 0)
    End Sub

вот скриншот моей базы данных

Изображение 174551

Я надеюсь, что кто-то может помочь мне исправить мою ошибку, любая помощь будет оценена Спасибо заранее и больше власти ребята!

Теги:
winforms
crystal-reports

1 ответ

0

Вы подключаете базу данных от своего клиента?

  • 0
    Я предполагаю, что это связано, потому что мой просмотр списка показывает элементы в моей базе данных, и мой вход в систему также работает.
  • 0
    Я вижу что-то в вашем коде для печати отчета, вы вызываете ExecuteQuery, который предназначен для возврата источника данных для вашего отчета, я предполагаю, что вы обращаетесь к базе данных через отчет, верно?
Показать ещё 3 комментария

Ещё вопросы

Сообщество Overcoder
Наверх
Меню