Slabwise & Pagewise Datareport

[Neelesh2007]

Hi all.
In my project I am using VB6.0 & Access 2003. I want to create Slab wise & Pagewise Datareport as shown below.

Marks <30

ID Subject Marks
11 Maths 25
75 Science 18

<page Break>

Marks >30 and < 40 ' on next page
ID Subject Marks
65 Maths 38
34 Science 33
81 English 37
34 Science 35

<page break>

and so on for slabs 40 to 50, 50 to 60, 60 to 70....

Please give me hint or sample code if possibe. Give code for DataReport as I dont have Crystal Report.
Thanks

[Dököll]

Hi all.
In my project I am using VB6.0 & Access 2003. I want to create Slab wise & Pagewise Datareport as shown below.

Marks <30

ID Subject Marks
11 Maths 25
75 Science 18

<page Break>

Marks >30 and < 40 ' on next page
ID Subject Marks
65 Maths 38
34 Science 33
81 English 37
34 Science 35

<page break>

and so on for slabs 40 to 50, 50 to 60, 60 to 70....

Please give me hint or sample code if possibe. Give code for DataReport as I dont have Crystal Report.
Thanks

I searched but could not find anything on this for you. Do stay tuned nonetheless in case other experts have an idea.

The Data reports I am used to aren't that fancy (Data Environ,DataRep ort), so no joy there;-)

Have a great week-end!

Dököll

[Neelesh2007]

Thanx Dököll,
But i can not enjoy my weekend without solution of this problem. Can anybody else help me?

Thanks.

[9815402440]

hi
use following code for the purspose

Dim rst As New ADODB.Recordset
'MakeRecordSet is a function that i use to opens recordset. if you need its code, please ask me.
Set rst = MakeRecordSet(" shape {select * from Table1} as rsAlias append new adbstr key")
With rst
.MoveFirst
While Not .EOF
' all slabs that falls in 0 - 30, value of "Key" is "0-30"
' all slabs that falls in 30-40, value of "Key" is "30-40"
' and so on
' so check for slabs and give value to "Key" accordingly


if fallsin("0-30") then
.Fields("Key"). Value = "0-30"
else
.Fields("Key"). Value = ""
endif
.MoveNext
Wend
End With
Dim strGrp As String
strGrp = "AS GroupedData COMPUTE GroupedData,Cou nt(GroupedData. 'Fld1') AS CountOfFld1 BY 'fld1'"
Dim rstGrouped As New ADODB.Recordset
rstGrouped.Open "Shape rsAlias " & strGrp, cn '(cn is connection)
'bind and show report as follows

With DataReport1
Set .DataSource = rstGrouped
.DataMember = ""
With .Sections("Grou pHeader").Contr ols
.Item("key").Da taMember = ""
.Item("key").Da taField = "key"
End With
With .Sections("Deta il").Controls
.Item("fld1").D ataMember = "GroupedDat a"
.Item("flde").D ataField = "fld1"

.Item("fld2").D ataMember = "GroupedDat a"
.Item("fld2").D ataField = "fld2"
End With
.Refresh
.Show
End With

this code is just to suggest logic or usage. please check for errors.

regards
manpreet singh dhillon hoshiarpur

[Neelesh2007]

Thanks lot for your code. But ya i require code for function maketable. Also i am not familiar with keyword 'shape'. Will it work with Access?.
Thanks again for your help.

Neelesh.

[9815402440]

hi

following is the code for MakeRecordset function


Private Function MakeRecordset(q ry As String) As ADODB.Recordset
Dim cn As New ADODB.Connectio n
With cn
.Provider = "MsDataShap e"
.Properties("Da ta Provider") = "Microsoft.Jet. OLEDB.4.0"
.Properties("Da ta Source") = App.Path & "\data.mdb"
.Open
End With

Dim rst As New ADODB.Recordset
rst.Open qry, cn
Set MakeRecordset = rst
Set rst = Nothing
End Function

Shape clause works with ms access also.
regards
manpreet singh dhillon hoshiarpur

[Neelesh2007]

Thanks a lot Manpreet.


Neelesh