+db("Driver={Microsoft Access Driver (*.mdb)}; DBQ=sample.mdb");

# set table quote 
,platform('Unix'),prtn('This program cannot run under Unix.'), exit(1);

#insert / select / sql
,prtn('insert / select')
  ,db.insert({ "ID" => 1, "col1" => "AAAA2", "col2" => 200, "col3" => "2010/05/27 17:40:30"}, "sample_table")
  ,db.insert({ "ID" => 2, "col1" => "BBBB3", "col2" => 300, "col3" => "2010/05/27 17:40:30"}, "sample_table")
  ,db.select@({},'sample_table').prtn,next
  ,db.select@({ 'ID' => 3}, 'sample_table').prtn,next;
  ,db.sql@('select col1, col2 from sample_table where col2 >= ?', { 200 }).prtn.next
  ;
#update / save / select
,prtn('update / save')
  ,db.update({ "ID" => 1,  "col1" => "AAAAA2", "col2" => 1200, "col3" => "2011/05/27 17:40:30"}, "sample_table")
  ,db.save({ "ID" => 2,  "col1" => "BBBBB3", "col2" => 1300, "col3" => "2011/06/27 17:40:30"}, "sample_table")
  ,db.save({ "ID" => 4,  "col1" => "DDDDD3", "col2" => 1500, "col3" => "2011/06/27 17:40:30"}, "sample_table")
  ,db.select@({},'sample_table').prtn,next
  ;

#delete / select
,prtn('delete 2')
  ,db.delete({ "ID" => 2 },'sample_table')
  ,db.select@({},'sample_table').prtn,next
  ;

,prtn('delete all')
  ,db.delete({},'sample_table')
  ,db.select@({},'sample_table').prtn,next
  ;

