Data Report w/o using Data Enviroment Desinger 1

[intrepid101]

Is there a way to create a DataReport without using the Data Enviroment Designer to create the DataSource and so forth. I know how to create a DataSource from a class module, but I guess the Data Report links to a DataEnviroment object. I am learning the database end of VB so I may have the whole approach wrong. I am using VB6 with an ADO connection to Access.

Any help to point me in the right direction would be well appreciated.

Thanks Scott

 

[StaceyG]

There are a ton of articles out there on using the data report with the data environment. Actually, that's what I've found to be the best for me anyway. But there is a little blurb in the below article. And further down, another programmer I work with does his data reports from scratch and there's a snippet of code.

hope it helps
Stacey

http://www.sqlmag.com/Articles/Index.cfm?ArticleID=5222

Private Sub SetupReport()

Set rptAgentActivity.DataSource = rstReportRecords

With rptAgentActivity
.Sections("secPageHeader&quot.Controls("lblHeader3&quot. _
Caption = Format(dtpStartDate.Value, "Short Date&quot & _
" - " & Format(dtpEndDate.Value, "Short Date&quot
.Sections("secGroupHeader&quot.Controls("txtGroupHeader&quot. _
DataField = rstReportRecords.Fields(0).Name
.Sections("secGroupHeader&quot.Controls("lblGroupHeader&quot.Caption = _
rstReportRecords.Fields(0).Value
.Sections("secDetail&quot.Controls("txtAgentNumber&quot.DataField = _
rstReportRecords.Fields(1).Name
.Sections("secDetail&quot.Controls("txtNew&quot.DataField = _
rstReportRecords.Fields(2).Name
.Sections("secDetail&quot.Controls("txtPayments&quot.DataField = _
rstReportRecords.Fields(3).Name
.Sections("secDetail&quot.Controls("txtOptions&quot.DataField = _
rstReportRecords.Fields(4).Name
.Sections("secDetail&quot.Controls("txtLateTS&quot.DataField = _
rstReportRecords.Fields(6).Name
.Sections("secDetail&quot.Controls("txtRevenue&quot.DataField = _
rstReportRecords.Fields(5).Name

If optByState.Value Then
.Sections("secPageHeader&quot.Controls("lblHeader2&quot.Caption = _
"by State"
ElseIf optByMarket.Value Then
.Sections("secPageHeader&quot.Controls("lblHeader2&quot.Caption = _
"by Market"
Else
.Sections("secPageHeader&quot.Controls("lblHeader2&quot.Caption = _
"by Agent"
.Sections("secGroupHeader&quot.Visible = False
End If

.Show
End With

End Sub

 

[intrepid101]

HI Stacey

Thank you very much for your quick reply and answer, it was very helpful and exactley what I needed.

I do however have one question concerning the RecordSet 'rstReportRecords' and 'rptAgentActivity'.
Do I create the recordset as a normal ADODB Record Set

example:
******
DIM rstRecordSet AS ADODB.Recordset
SET rstRecordSet AS NEW ADODB.Recordset

open.rstRecordset = "SqlQuery",connection,curser,lock
******

What do I set up rptAgentActivity to?
DIM rptAgentActivity as ?
SET rptAgentActivity = NEW ?
******

I apologize if these questions seem trivial, but I have been having a brain meltdown trying to learn all this stuff, but dang its sooo fun. I thought PHP was a blast!
Thanks again
Scott

 

[StaceyG]

Yes, rstReportRecords is just a normal Recordset, see below

dim rstreportrecords as adodb.recordset
set rstreportrecords=new adodb.recordset
rstReportRecords.Open strSQL, dbAgentPay, adOpenKeyset, _
adLockPessimistic


rptAgentActivity IS a data report created in advance, so you wouldn't define or create it (although maybe you could, but that's a different story), with several unbound fields added into the detail (and report footer) area. Then he named those unbound fields for easy reference. This would account for his binding in the above procedure.

These aren't dumb questions, and I know...it is sickly fun, isn't it?
Stacey