обновить таблицу sqlite с помощью perl

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

Проверьте, сколько строк было обновлено.Войдите в базу данных и попробуйте этот запрос, чтобы увидеть, сколько строк будет затронуто:

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

Кроме того, убедитесь, что вы используете правильную базу данных.