Embperl Examples - DBIx::Recordset
NOTE:
You must set the database and table to something which exists on your system.
Also this example presumes that the table contains the fields id and
name. If not you have to change the field-names in the table below
Maybe it's necessary to insert a PerlModule DBIx::Recordset into your srm.conf
to get this working
You may specify search parameters: For example request this document with
recordset.htm?id=5
to get all records where the id = 5
[-
$DSN = 'dbi:mysql:test' ;
$table = 'dbixrs1' ;
use DBIx::Recordset ;
*set = DBIx::Recordset -> Search ({%fdat,
('!DataSource' => $DSN,
'!Table' => $table,
'$max' => 5,)}) ; -]
| ID | NAME |
|---|
| [+ $set[$row]{id} +] |
[+ $set[$row]{name} +] |
[+ $set -> PrevNextForm ('Previous Records', 'Next Records', \%fdat) +]
HTML::Embperl (c) 1997-1998 G.Richter