Crystal reports Crystal Report Access 2007数据库登录失败
我正在使用VB.NET 2010和Access 2007数据库。我的代码是Crystal reports Crystal Report Access 2007数据库登录失败,crystal-reports,vb.net-2010,Crystal Reports,Vb.net 2010,我正在使用VB.NET 2010和Access 2007数据库。我的代码是 Dim Rpt As New ReportDocument Dim PD As New System.Drawing.Printing.PrintDocument Dim paramName As String = "", paramAddress As String = "", paramSMan As String = "" Dim crtableLogoninfos As New
Dim Rpt As New ReportDocument
Dim PD As New System.Drawing.Printing.PrintDocument
Dim paramName As String = "", paramAddress As String = "", paramSMan As String = ""
Dim crtableLogoninfos As New TableLogOnInfos
Dim crtableLogoninfo As New TableLogOnInfo
Dim crConnectionInfo As New ConnectionInfo
Dim CrTables As Tables
Dim CrTable As Table
With crConnectionInfo
.ServerName = Application.StartupPath & "\" & DB
.DatabaseName = Application.StartupPath & "\" & DB
.UserID = "Admin"
.Password = ""
End With
Rpt.Load(Application.StartupPath & "\rptBill.rpt")
CrTables = Rpt.Database.Tables
For Each CrTable In CrTables
crtableLogoninfo = CrTable.LogOnInfo
crtableLogoninfo.ConnectionInfo = crConnectionInfo
CrTable.ApplyLogOnInfo(crtableLogoninfo)
Next
Rpt.RecordSelectionFormula = "{SalesMaster.ID}=" & txtBillNo.Text
Rpt.Refresh()
Rpt.PrintOptions.PrinterName = PD.PrinterSettings.PrinterName
Rpt.PrintToPrinter(1, False, 0, 0)
但当我运行数据库登录失败时,会触发错误
请帮助我解决此问题尝试更新crConnectionInfo,而不是替换它
For Each CrTable In CrTables
crtableLogoninfo = CrTable.LogOnInfo
crConnectionInfo = crtableLogoninfo.ConnectionInfo
With crConnectionInfo
.ServerName = Application.StartupPath & "\" & DB
.DatabaseName = Application.StartupPath & "\" & DB
.UserID = "Admin"
.Password = ""
End With
crtableLogoninfo.ConnectionInfo = crConnectionInfo
CrTable.ApplyLogOnInfo(crtableLogoninfo)
Next