資料結構
網路
RDBMS
作業系統
Java
MS Excel
iOS
HTML
CSS
Android
Python
C 程式設計
C++
C#
MongoDB
MySQL
Javascript
PHP
物理學
化學
生物學
數學
英語
經濟學
心理學
社會學
時尚學
法律學Perl 中的資料庫 INSERT 操作
當您要建立一些記錄到一張表中時，需要進行 Perl INSERT 操作。這裡我們使用 TEST_TABLE 表來建立我們的記錄。因此，一旦建立了資料庫連線，我們就可以準備向 TEST_TABLE 中建立記錄。以下是將單個記錄建立到 TEST_TABLE 中的過程。您可以使用相同概念建立任意數量的記錄。
記錄建立執行以下步驟 −
- 使用 INSERT 語句準備 SQL 語句。這將使用 prepare() API 完成。
- 執行 SQL 查詢以從資料庫中選擇所有結果。這將使用 execute() API 完成。
- 釋放語句控制代碼。這將使用 finish() API 完成。
- 如果一切順利，則提交此操作，否則您可以回滾整個事務。提交和回滾將在下一節中進行說明。
my $sth = $dbh->prepare("INSERT INTO TEST_TABLE
(FIRST_NAME, LAST_NAME, SEX, AGE, INCOME )
values
('john', 'poul', 'M', 30, 13000)");
$sth->execute() or die $DBI::errstr;
$sth->finish();
$dbh->commit or die $DBI::errstr;使用繫結值
可能存在這樣的情況：要輸入的值沒有提前給出。因此，您可以使用繫結變數，這些變數將在執行時獲取所需的值。Perl DBI 模組在實際值中使用問號，然後在執行時透過 execute() API 傳遞實際值。以下是示例 −
my $first_name = "john";
my $last_name = "poul";
my $sex = "M";
my $income = 13000;
my $age = 30;
my $sth = $dbh->prepare("INSERT INTO TEST_TABLE
(FIRST_NAME, LAST_NAME, SEX, AGE, INCOME )
values
(?,?,?,?)");
$sth->execute($first_name,$last_name,$sex, $age, $income)
or die $DBI::errstr;
$sth->finish();
$dbh->commit or die $DBI::errstr;
更新於： 02-12-2019
2 千+ 瀏覽
廣告