数据结构
网络
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 千+ 浏览
广告