+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') ,$rec1 == {"ID"=>1, "col1" => "AAA", "col2" => 10, "col3" => "2010/05/27 17:40:30"} ,$rec2 == {"ID"=>2, "col1" => "BBB", "col2" => 20, "col3" => "2010/05/27 17:40:30"} ,db.insert( $rec1, "sample_table") ,db.insert( $rec2, "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 >= ?', { 20 }).prtn.next ; #update / save / select ,prtn('update / save') ,$ur1 == {"ID"=>1, "col1" => "aaa", "col2" => 12, "col3" => "2011/05/27 17:40:30"} ,$ur2 == {"ID"=>2, "col1" => "bbb", "col2" => 22, "col3" => "2011/06/27 17:40:30"} ,$ur3 == {"ID"=>4, "col1" => "ddd", "col2" => 42, "col3" => "2011/07/27 17:40:30"} ,db.update( $ur1, "sample_table") ,db.save( $ur2, "sample_table") ,db.save( $ur3, "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 ;
D:\sample\lib>adp dbsample.p insert / select {ID => 1, col1 => AAA, col2 => 10, col3 => 2010-05-27 17:40:30, col4 => } {ID => 2, col1 => BBB, col2 => 20, col3 => 2010-05-27 17:40:30, col4 => } {col1 => BBB, col2 => 20} update / save {ID => 1, col1 => aaa, col2 => 12, col3 => 2011-05-27 17:40:30, col4 => } {ID => 2, col1 => bbb, col2 => 22, col3 => 2011-06-27 17:40:30, col4 => } {ID => 4, col1 => ddd, col2 => 42, col3 => 2011-07-27 17:40:30, col4 => } delete 2 {ID => 1, col1 => aaa, col2 => 12, col3 => 2011-05-27 17:40:30, col4 => } {ID => 4, col1 => ddd, col2 => 42, col3 => 2011-07-27 17:40:30, col4 => } delete all