Hello Monks,
I got a "db commit failed" error message ,it sounds "DBD::SQLite::db commit failed: cannot commit transaction - SQL statements in progress(1) at dbdimp.c line 218 at ./test.pl line xxx.";

My Code is following:

$dbh = DBI->connect("dbi:sqlite:server=xxx;database=test","","") or di
+e "$DBI::errstr\n";
$sth = $dbh->prepare(qq{select id,town from town});
my($id,$name,$n);
$sth->execute() or die "error $DBI::errstr\n";
$sth->bind_columns(undef, \$id, \$name);
while ($sth->fetch) {
  $dbh->do("insert into record(id,name) values ($id,'$name')") or die 
+"can't insert into record\n";
  $sth->commit if $n++ % 1000;  ## the xxx error point to here,but i r
+eally don't know if it is a error
}

$sth->commit if $n
$sth->finish;
$dbh->disconnect;
[download]

where is it wrong? Thanks