При запуске приложения на моем сервере pc, где база данных установлена, она работает и отображает элементы в моей базе данных, но когда я устанавливаю и запускаю ее на своем клиентском ПК, она не показывает никаких ошибок. im, используя сообщество vb.net 2013, wamp mysql в качестве базы данных и sap crystal report version 13.0.12.1494, и я использую odbc im my connection connection
вот скриншот этого, работающий на моем сервере pc
вот один из моего клиентского ПК, вы можете видеть, что мой список просматривает и показывает элементы в базе данных, но когда я нажимаю print, отчет о кристалле показывается пустым
вот моя строка подключения в моей конфигурации приложения и подключении к модулю
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
вот скриншот моей базы данных
Я надеюсь, что кто-то может помочь мне исправить мою ошибку, любая помощь будет оценена Спасибо заранее и больше власти ребята!
Вы подключаете базу данных от своего клиента?