Question

我收到此代码并收到错误提示。数据库登录。即使我输入了正确的密码，也总是说登录失败。

Dim report As New ReportDocument
report.Load("rptPrntIss.rpt")

report.RecordSelectionFormula = "{tbl_issued.TransactionID}=" & txtIssID.Text & "AND ({tbl_transaction.Department}=" & cBoxDpt.Text & ")"
frmPrnt.CrystalReportViewer1.ReportSource = report
frmPrnt.CrystalReportViewer1.Refresh()
frmPrnt.ShowDialog()

也许这段代码不对，因为没有这段代码，一切都很完美。

Answer 1

使用setdatabaselogon()函数阻止每次提示数据库登录。

就像

report.SetDatabaseLogon("username", "password", "server", "dbname", false)

在某些情况下，这也不会起作用（最近有一些情况对我来说），在这种情况下，我们需要为报表中的每个表指定数据库登录。

喜欢

dim connInfo as new ConnectionInfo()
connInfo.ServerName = yourserver
connInfo.DatabaseName = "dbname"
connInfo.UserID = "username"
connInfo.Password = "password"
dim  tableLogOnInfo as new TableLogOnInfo()
tableLogOnInfo.ConnectionInfo = connInfo

   foreach Table as table in reportDoc.Database.Tables

      table.ApplyLogOnInfo(tableLogOnInfo)
      table.LogOnInfo.ConnectionInfo.ServerName = connInfo.ServerName
      table.LogOnInfo.ConnectionInfo.DatabaseName = connInfo.DatabaseName
      table.LogOnInfo.ConnectionInfo.UserID = connInfo.UserID
      table.LogOnInfo.ConnectionInfo.Password = connInfo.Password
   next

希望这会有所帮助。

提示数据库登录从列表视图内容生成报告到水晶报表时

1 个答案: