mmars
Feb 15th, 2006, 08:30 AM
I have created a report in CR XI that uses 2 tables from an access database. 2 fields are from one table and the 3rd field is from the other. When I preview the report in CR, it gives me the correct results.
User1
Site1
Site2
Site3
When I call the report in VB.NET 2003 it duplicates the results.
User1
Site1
Site1
Site1
Site2
Site2
Site2
Site3
Site3
Site3
Here is the code that I am calling the report in VB.NET.
strsql = "SELECT tblUser.UserName, tblUser.Administrator, Security_Access.Site_ID FROM tblUser INNER JOIN Security_Access ON tblUser.UserName = Security_Access.UserName"
reportname = apppath & "\rpt_users.rpt"
Dim con As New OleDb.OleDbConnection
'Create a connection to specified database
con = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & inpdatabase & ";")
'Open connection
con.Open()
da = New OleDb.OleDbDataAdapter(strsql, con)
da.Fill(ds, "User")
con.Close()
rd = New ReportDocument
rd.Load(reportname)
rd.SetDataSource(ds)
crvMain.ReportSource = rd
Thanks
mmars
User1
Site1
Site2
Site3
When I call the report in VB.NET 2003 it duplicates the results.
User1
Site1
Site1
Site1
Site2
Site2
Site2
Site3
Site3
Site3
Here is the code that I am calling the report in VB.NET.
strsql = "SELECT tblUser.UserName, tblUser.Administrator, Security_Access.Site_ID FROM tblUser INNER JOIN Security_Access ON tblUser.UserName = Security_Access.UserName"
reportname = apppath & "\rpt_users.rpt"
Dim con As New OleDb.OleDbConnection
'Create a connection to specified database
con = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & inpdatabase & ";")
'Open connection
con.Open()
da = New OleDb.OleDbDataAdapter(strsql, con)
da.Fill(ds, "User")
con.Close()
rd = New ReportDocument
rd.Load(reportname)
rd.SetDataSource(ds)
crvMain.ReportSource = rd
Thanks
mmars