... ma il database è identico .. il software si collega allo stesso server dove risiede il database.
Questo è il codice:
rptdocument = New ReportDocument()
Dim reportPath As String = Application.StartupPath & "\Report\xxxxxx.rpt"
rptdocument.Load(reportPath)
Dim tabella As New DataTable
Dim miaDataAdapter As New SqlClient.SqlDataAdapter(v_stringSQL, DB)
miaDataAdapter.Fill(tabella)
rptdocument.Load(reportPath)
rptdocument.Database.Tables(0).SetDataSource(tabella)
rptdocument.SetDatabaseLogon(UserID, Password, Server, Database)
rptdocument.PrintToPrinter(1, False, 1, 1)
come mai quindi sul pc di sviluppo funziona e su un altro no? GRAZIE
ho provato anche così:
'
rptdocument.Load(reportPath)
Dim crConnectionInfo As ConnectionInfo = New ConnectionInfo()
' Dim crTableLogOnInfo As TableLogOnInfo
' Dim tb As CrystalDecisions.CrystalReports.Engine.Table
' crConnectionInfo.ServerName = server
' crConnectionInfo.DatabaseName = db
' crConnectionInfo.UserID = id
' crConnectionInfo.Password = pass
' For Each tb In rptdocument.Database.Tables
' crTableLogOnInfo = tb.LogOnInfo
' crTableLogOnInfo.ConnectionInfo = crConnectionInfo
' tb.ApplyLogOnInfo(crTableLogOnInfo)
' Next
rptdocument.PrintToPrinter(1, False, 1, 1)
... e così non va nemmeno sul pc di sviluppo.