File::Specmy $dbname = File::Spec->catdir(File::Spec->tmpdir, "esqldemo.db");ESQL Example
ESQL Example ($dbname)
SQLitedbname=$dbname
if ($cgi->param('reset')) {
eval {
drop table example
};
}
eval {
create table example ( id integer primary key, firstname, lastname, email )
Table (re)created successfully.
};
if ($cgi->param('type') eq 'insert') {
AxKit::Debug(1, "**** Inserting *****");
insert into example (firstname, lastname, email) values (
$cgi->param('firstname'),
$cgi->param('lastname'),
$cgi->param('email')
)
Row inserted successfully.
}
elsif ($cgi->param('type') eq 'query') {
select * from example
where firstname = $cgi->param('firstname')
and lastname = $cgi->param('lastname')
and email = $cgi->param('email')
Results:
First Name
Last Name
Email
No results found for your query.
}
elsif ($cgi->param('type') eq 'show all') {
select * from example