【解決方法】Crystal レポートは、VB.NET および SQL サーバーのクライアント PC でデータベースエラーを表示します。

プログラミングQA

2023.04.20

こんにちはコーダー、私は VB.Net と SQL Server でプロジェクトを開発しました。プロジェクトのセットアップを作成し、クライアントの PC にインストールした後、CRUD 操作は正常に機能していますが、Crystal レポートにはデータベースが見つからないというエラーが表示されます。「D:\myproject\bin\Debug が見つかりません。
CRUD 操作とレポートは私の PC では正常に機能していますが、クライアントの PC ではレポートが機能していません。
Crystal レポートを表示するために次のコードを使用しています。

Form1.loaditems()
       Dim ds As New DataSet4
       Dim ad As New DataSet4TableAdapters.proceduresTableAdapter
       ad.Fill(ds.procedures)
       Dim rpt As New CrystalReport4
       rpt.SetDataSource(ds)
       CrystalReportViewer1.ReportSource = rpt

VB.Net を SQL Server に接続するために、次のコードを使用しています

Imports System.Data
Imports System.Data.SqlClient
imports system.IO
Module connection
    Public dbconn As SqlConnection
    Public amountPaid As Integer = 0
    Sub connectDatabase()
        Try
            dbconn = New SqlConnection("server=(localdb)\MSSQLLocalDB;AttachDbFileName=" & System.IO.Path.GetFullPath("DatabaseName.mdf") & ";Integrated Security=True;")
            dbconn.Open()
        Catch ex As Exception
            MsgBox(ex.Message.ToString)
        End Try
    End Sub
End Module

データセットを次のようにテーブルに接続する方法が必要だと思います

System.IO.Path.GetFullPath("DatabaseName.mdf")

実際のパスではありませんが、その方法がわかりません。
誰かがこの問題の解決策を持っている場合は、皆さんに。私は非常に感謝しています.
ありがとう

私が試したこと：

For connecting VB.Net to SQL Server, I am using the following code
<pre>Imports System.Data
Imports System.Data.SqlClient
imports system.IO
Module connection
    Public dbconn As SqlConnection
    Public amountPaid As Integer = 0
    Sub connectDatabase()
        Try
            dbconn = New SqlConnection("server=(localdb)\MSSQLLocalDB;AttachDbFileName=" & System.IO.Path.GetFullPath("DatabaseName.mdf") & ";Integrated Security=True;")
            dbconn.Open()
        Catch ex As Exception
            MsgBox(ex.Message.ToString)
        End Try
    End Sub
End Module

クリスタルレポートにレコードを表示するために、次のコードを使用しています

Form1.loaditems()
       Dim ds As New DataSet4
       Dim ad As New DataSet4TableAdapters.proceduresTableAdapter
       ad.Fill(ds.procedures)
       Dim rpt As New CrystalReport4
       rpt.SetDataSource(ds)
       CrystalReportViewer1.ReportSource = rpt