update_param

来自「一个俄国人实现的数据库系统」· 代码 · 共 15 行

#!/usr/local/bin/perl -w
use strict;
use DBI;
my $host='localhost';
my $port=6100;
my $dbh = DBI->connect("dbi:Gigabase:host=$host;port=6100","g", "g")||die;
my $statement='update d set a=1 where a=?;';
#{
 my $select=$dbh->prepare($statement)
  || die $dbh->err_msg;
 $select->execute(3);
 $select->finish;
#}
$dbh->disconnect;