The ReportDocument object has a Tables collection that stores each table in a report. The program loops through each table in this collection and sets the logon properties for it. Listing 17-11 shows how to loop through each data source and set these properties. It sets different login credentials based upon the table.<\/p>\n
To example illustrates how each table is treated separately. It uses a table called CorpStandards that has public access for everyone in the company. It uses a global user account to login to it. All other tables have specific security and use the current user’s login information. This is managed elsewhere in the program and is passed to this procedure via its parameter list.<\/p>\n The code loops through each table in the ReportDocument.Database. Tables collection and gets a reference to the TableLogOnInfo object. If the table name is “CorpStandards” it applies the generic login information. For all other tables it uses the login parameters passed to the procedure. After setting the properties, it calls the ApplyLogOnInfo() method of the Table class. This updates the table with the new login properties. The TestConnectivity() method is used to determine whether the user credentials are valid or not. If they aren’t then a message box is displayed that tells which table failed. The report viewer is assigned the report document and this forces the report to open the database connections using the user credentials and display the report.<\/p>\n","protected":false},"excerpt":{"rendered":" Logging On with the ReportDocument The ReportDocument object has a Tables collection that stores each table in a report. The program loops through each table in this collection and sets the logon properties for it. Listing 17-11 shows how to loop through each data source and set these properties. It sets different login credentials based […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[37,2],"tags":[],"class_list":["post-733","post","type-post","status-publish","format-standard","hentry","category-chapter-17-dynamic-data-sources","category-crystal-reportsnet-2003","entry"],"_links":{"self":[{"href":"http:\/\/www.crystalreportsonlinetraining.com\/training\/wp-json\/wp\/v2\/posts\/733","targetHints":{"allow":["GET"]}}],"collection":[{"href":"http:\/\/www.crystalreportsonlinetraining.com\/training\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/www.crystalreportsonlinetraining.com\/training\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/www.crystalreportsonlinetraining.com\/training\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"http:\/\/www.crystalreportsonlinetraining.com\/training\/wp-json\/wp\/v2\/comments?post=733"}],"version-history":[{"count":0,"href":"http:\/\/www.crystalreportsonlinetraining.com\/training\/wp-json\/wp\/v2\/posts\/733\/revisions"}],"wp:attachment":[{"href":"http:\/\/www.crystalreportsonlinetraining.com\/training\/wp-json\/wp\/v2\/media?parent=733"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/www.crystalreportsonlinetraining.com\/training\/wp-json\/wp\/v2\/categories?post=733"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/www.crystalreportsonlinetraining.com\/training\/wp-json\/wp\/v2\/tags?post=733"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}
\n Private Sub LoginToTables(ByVal UserId As String, ByVal Password As String)<\/code>
\n Dim myReport As New CrystalReport1()<\/code>
\n Dim myTable As CrystalDecisions.CrystalReports.Engine.Table<\/code>
\n Dim myLogonInfo As CrystalDecisions.Shared.TableLogOnInfo<\/code>
\n 'Changing the logon info<\/code>
\n For Each myTable In myReport.Database.Tables<\/code>
\n myLogonInfo = myTable.LogOnInfo<\/code>
\n If myTable.Name = \" CorpStandards\" Then<\/code>
\n With myLogonInfo.ConnectionInfo<\/code>
\n .UserID = G_UserId<\/code>
\n .Password = G_Password<\/code>
\n End With<\/code>
\n Else<\/code>
\n With myLogonInfo.ConnectionInfo<\/code>
\n .UserID = UserId<\/code>
\n .Password = Password<\/code>
\n End With<\/code>
\n End If<\/code>
\n myTable.ApplyLogOnInfo(myLogonInfo)<\/code>
\n 'Test if the user credentials are valid<\/code>
\n If Not myTable.TestConnectivity() Then<\/code>
\n MessageBox.Show(\"Invalid user credentials for table: \" & myTable.Name)<\/code>
\n End If<\/code>
\n Next myTable<\/code>
\n CrystalReportViewer1.ReportSource = myReport<\/code>
\n End Sub<\/code><\/p>\n