Crystal Report

[=?Utf-8?B?ZHJhYmVl?=]

Greetings:
Please
This is the first time i'm using crystal report i'm passing Parameters like
code belowe but what i'm getting alwayes just the last record
pleeeeeeeeeeeee eeease any help



Dim report As New ReportDocument
Dim I As Int16
mycon.Connectio nString = "PROVIDER=MICRO SOFT.JET.OLEDB. 4.0;DATA
SOURCE=" & Server.MapPath( "App_Data/TRN.mdb") & ""
mycon.Open()

'Dim sql As String = "SELECT Users.CPR,Users .Name,
courses.CourseT itel, courses.SDate, courses.Edate, Registration.Su pApp,
Registration.St atus FROM Users INNER JOIN (courses INNER JOIN Registration ON
courses.Code = Registration.Co de) ON Users.CPR = Registration.CP R WHERE
Users.CPR='7112 20956'"

Dim sql As String = "SELECT Users.CPR, Users.Name,
Users.Directora te, courses.CourseT itel, courses.SDate, courses.Edate,
courses.locatio n, courses.fees, Registration.Su pApp, Registration.St atus FROM
Users INNER JOIN (courses INNER JOIN Registration ON courses.Code =
Registration.Co de) ON Users.CPR = Registration.CP R"
sql = sql & " WHERE Registration.Su pApp='APP' AND
Registration.St atus='APP' AND Users.CPR='7112 20956'"




da = New OleDbDataAdapte r(sql, mycon)
da.Fill(ds)
report.Load(Ser ver.MapPath("em rpt.rpt"))

report.SetDataS ource(ds)

CRV.ReportSourc e = report
CRV.DataBind()

For I = 0 To ds.Tables(0).Ro ws.Count - 1
report.SetParam eterValue("CPR" , ds.Tables(0).Ro ws(I)(0).ToStri ng)
report.SetParam eterValue("test ", ds.Tables(0).Ro ws(I)(1).ToStri ng)
report.SetParam eterValue("dir" , ds.Tables(0).Ro ws(I)(2).ToStri ng)
report.SetParam eterValue("Cour seName",
ds.Tables(0).Ro ws(I)(3).ToStri ng)
report.SetParam eterValue(2, CType(ds.Tables (0).Rows(I)(4),
Date).ToShortDa teString)
report.SetParam eterValue(3, CType(ds.Tables (0).Rows(I)(5),
Date).ToShortDa teString)
report.SetParam eterValue("loc" , ds.Tables(0).Ro ws(I)(6).ToStri ng)
report.SetParam eterValue("fee" , ds.Tables(0).Ro ws(I)(7).ToStri ng)
report.SetParam eterValue("SupA PP",
ds.Tables(0).Ro ws(I)(8).ToStri ng)
report.SetParam eterValue("AdAP P",
ds.Tables(0).Ro ws(I)(9).ToStri ng)

Next

[Mr. Arnold]

Re: Crystal Report


"drabee" <drabee@discuss ions.microsoft. comwrote in message
news:3C1AD039-C1FB-4384-8DAF-63DFCC12AD48@mi crosoft.com...

Greetings:
Please
This is the first time i'm using crystal report i'm passing Parameters
like
code belowe but what i'm getting alwayes just the last record
pleeeeeeeeeeeee eeease any help
>

>
>
>
'Dim sql As String = "SELECT Users.CPR,Users .Name,
courses.CourseT itel, courses.SDate, courses.Edate, Registration.Su pApp,
Registration.St atus FROM Users INNER JOIN (courses INNER JOIN Registration
ON
courses.Code = Registration.Co de) ON Users.CPR = Registration.CP R WHERE
Users.CPR='7112 20956'"
>
Dim sql As String = "SELECT Users.CPR, Users.Name,
Users.Directora te, courses.CourseT itel, courses.SDate, courses.Edate,
courses.locatio n, courses.fees, Registration.Su pApp, Registration.St atus
FROM
Users INNER JOIN (courses INNER JOIN Registration ON courses.Code =
Registration.Co de) ON Users.CPR = Registration.CP R"
sql = sql & " WHERE Registration.Su pApp='APP' AND
Registration.St atus='APP' AND Users.CPR='7112 20956'"

Well, you need to verify that your Select statements are pulling back the
data you want.

There should be a way in Access to take those Selects and run them gainst
the database to see if they work before moving on to Crystal.

[=?Utf-8?B?ZHJhYmVl?=]

Re: Crystal Report


Thank you for your replay actually i did it is OK giving me 4 records
"Mr. Arnold" wrote:

>
"drabee" <drabee@discuss ions.microsoft. comwrote in message
news:3C1AD039-C1FB-4384-8DAF-63DFCC12AD48@mi crosoft.com...

Greetings:
Please
This is the first time i'm using crystal report i'm passing Parameters
like
code belowe but what i'm getting alwayes just the last record
pleeeeeeeeeeeee eeease any help

>

'Dim sql As String = "SELECT Users.CPR,Users .Name,
courses.CourseT itel, courses.SDate, courses.Edate, Registration.Su pApp,
Registration.St atus FROM Users INNER JOIN (courses INNER JOIN Registration
ON
courses.Code = Registration.Co de) ON Users.CPR = Registration.CP R WHERE
Users.CPR='7112 20956'"

Dim sql As String = "SELECT Users.CPR, Users.Name,
Users.Directora te, courses.CourseT itel, courses.SDate, courses.Edate,
courses.locatio n, courses.fees, Registration.Su pApp, Registration.St atus
FROM
Users INNER JOIN (courses INNER JOIN Registration ON courses.Code =
Registration.Co de) ON Users.CPR = Registration.CP R"
sql = sql & " WHERE Registration.Su pApp='APP' AND
Registration.St atus='APP' AND Users.CPR='7112 20956'"

>
Well, you need to verify that your Select statements are pulling back the
data you want.
>
There should be a way in Access to take those Selects and run them gainst
the database to see if they work before moving on to Crystal.
>
>
>

[Mr. Arnold]

Re: Crystal Report


"drabee" <drabee@discuss ions.microsoft. comwrote in message
news:AB116EA6-5285-48CD-B3A1-B532992CF1FB@mi crosoft.com...

>
Thank you for your replay actually i did it is OK giving me 4 records

So, how many records are in ds.Tables(0).Ro ws.Count, when you use the
Immediate Pane in Dubug mode?