数据结构
网络
RDBMS
操作系统
Java
MS Excel
iOS
HTML
CSS
Android
Python
C 编程
C++
C#
MongoDB
MySQL
Javascript
PHP
物理
化学
生物
数学
英语
经济
心理学
社会研究
时尚研究
法律研究Perl 中的数据库 DELETE 操作
当你想从数据库中删除一些记录时，需要 Perl DELETE 操作。以下是删除 TEST_TABLE 中所有 AGE 等于 30 的记录的过程。此操作将执行以下步骤。
- 根据必需的条件准备 SQL 查询。这将通过使用 prepare() API 来实现。
- 执行 SQL 查询以从数据库中删除必需的记录。这将通过使用 execute() API 来实现。
- 释放 Stattement 句柄。这将通过使用 finish() API 来实现。
- 如果一切正常，则提交 此操作，否则你可以 回滚 整个事务。
$age = 30;
my $sth = $dbh->prepare("DELETE FROM TEST_TABLE WHERE AGE = ?");
$sth->execute( $age ) or die $DBI::errstr;
print "Number of rows deleted :" + $sth->rows;
$sth->finish();
$dbh->commit or die $DBI::errstr;使用 do 语句
如果你要执行 UPDATE、INSERT 或 DELETE 操作，则没有数据可以从数据库返回，因此有一个用于执行此操作的简便方法。你可以使用 do 语句像如下所示执行任何命令。
$dbh->do('DELETE FROM TEST_TABLE WHERE age =30');do 在成功时返回真值，失败时返回假值。实际上，成功时会返回受影响的行数。在示例中，它将返回实际已删除的行数。
更新日期： 02-12-2019
674 次浏览
广告