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 在成功時返回真值,失敗時返回假值。實際上,成功時會返回受影響的行數。在示例中,它將返回實際已刪除的行數。
廣告