New topic: 

parsing two recordset to report

<http://forums.realsoftware.com/viewtopic.php?t=30692>

       Page 1 of 1
   [ 1 post ]                 Previous topic | Next topic         Author  
Message       jun           Post subject: parsing two recordset to 
reportPosted: Tue Oct 27, 2009 8:11 am                        
Joined: Thu Jul 02, 2009 9:55 pm
Posts: 28              Dear everyone,
how to parsing two recordset to report? I have code this before:
------------------------------------------------------------------------  
  Dim ps As New PrinterSetup
  Dim rpt As Report
  dim rs,rs1 as RecordSet
  
  rpt=new lap_mhs
  rs=app.mydb.SQLSelect("select * from mhs")
  
  // Now we select the records from the database and add them to the list.
  if rs = nil then
  beep
  MsgBox "No records found to print."
  else
  dim rsq as new Reports.RecordSetQuery(rs)
  if rpt.run(rsq,ps)  then
  if rpt.Document<>nil then ReportViewer1.SetDocument(rpt.Document)
  end if
  
  end if
------------------------------------------------------------------------  

I want to add:
----------------------------------------------------------
rs1=app.mydb.SQLSelect("select count(*) jumlah from mhs")
----------------------------------------------------------
and parsing it into lap_mhs (report).
Please give me some help.
Thank you everyones.
   
                            Top            Display posts from previous: All 
posts1 day7 days2 weeks1 month3 months6 months1 year Sort by AuthorPost 
timeSubject AscendingDescending          Page 1 of 1
   [ 1 post ]     
-- 
Over 1500 classes with 29000 functions in one REALbasic plug-in collection. 
The Monkeybread Software Realbasic Plugin v9.3. 
http://www.monkeybreadsoftware.de/realbasic/plugins.shtml

[email protected]

Reply via email to