Perl中的数据库INSERT操作
要在表中创建一些记录时，需要PerlINSERT操作。在这里，我们使用表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;使用绑定值
在某些情况下，可能不会事先给出要输入的值。因此，您可以使用绑定变量，该变量将在运行时获取所需的值。PerlDBI模块使用问号代替实际值，然后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;热门推荐
10 香港老妈结婚祝福语简短
11 毕业立体贺卡祝福语简短
12 简短新年年会祝福语
13 评论小品祝福语大全简短
14 恭喜师兄结婚祝福语简短
15 员工集体辞职祝福语简短
16 高中新生祝福语 简短
17 装修祝福语男生搞笑简短
18 生日开业蛋糕祝福语简短