I'm a newbie to sqlite and programmig. I have creae a sqlite databse. I would
like to ceate reports from the database. I would like to create a Report
from the database that is create by more than one table from the database.
Code:
dim dr as new DatabaseRecord
// Build the SQL statement that will be used to select the records the
four tables
dim sql as string
sql = "Select * from tblinfo"
sql = " Select * from tblFund"
sql = "Select * from tbldate"
sql = "Select * from tblmember"
dim rpt as new FundReport
// Now we select the records from the database and add them to the list.
dim rs as RecordSet
rs = Funddb.SQLSelect(sql)
if rs = nil then
beep
MsgBox "No records found to print."
else
dim ps as new PrinterSetup
// set the resolution to 300 DPI for printing
ps.MaxHorizontalResolution = 300
ps.MaxVerticalResolution = 300
if ps.PageSetupDialog then
dim g as Graphics
g = OpenPrinterDialog(ps,nil)
if g <> nil then
// if the report runs successfully
If rpt.Run( rs, ps ) Then
rpt.Document.Print(g)
End If
end if
end if
end if
I get a error message when I try to run " No records found to print."
--
View this message in context:
http://old.nabble.com/creating-a-report-from-four-tables-tp29895974p29895974.html
Sent from the SQLite mailing list archive at Nabble.com.
_______________________________________________
sqlite-users mailing list
sqlite-users@sqlite.org
http://sqlite.org:8080/cgi-bin/mailman/listinfo/sqlite-users
