Question

我有以下perl代码来更新sqlite DB上的记录

my $database = 'dbi:SQLite:dbname=my_db.db'; #

my $dbh = DBI->connect($database,"","",{AutoCommit => 1}) || die "Cannot  

connect: $DBI::errstr";



  my $sql = "update  my_table set table_id=51853 where table_id like '%49805%'";

  my $sth = $dbh->prepare( $sql );

 $sth->execute();


  $sth->finish;




   $dbh->disconnect();

似乎代码有效，但更新未保存在数据库中，有人可以帮助解决此问题吗？

Answer 1

检查有多少rows已更新。登录数据库并尝试此查询以查看将受影响的行数：

SELECT COUNT(*) FROM my_table WHERE table_id LIKE '%49805%';

另外，请确保您使用的是正确的数据库。

使用perl更新sqlite表

1 个答案: