perl数据库添加、删除、更新、查询操作例子
2014-08-16 10:18
1101 查看
注意:连接时候使用SID指定的database,所以没有在连接中指定database.
#!/usr/bin/perl use strict; use warnings; use DBI; my $db_name="geneva_admin"; my $db_passwd="geneva_admin"; my $dbh=DBI->connect("dbi:Oracle:","$db_name","$db_passwd") or die "Can't connect to oracle database:$DBI::errstr\n"; my $sth=$dbh->prepare("select a,b from a_tmp where a=2") or die "Can't prepare SQl prepare:$DBI::errstr\n"; $sth->execute or die "Can't execute:$DBI::errstr\n"; while (my @row = $sth->fetchrow_array()){ my ($a,$b) = @row; print "1..\$a=$a,\$b=$b\n"; } $sth->finish(); my $row=3; my $sql="select a,b from a_tmp where a = ?"; $sth=$dbh->prepare($sql) or die "Can't prepare SQl prepare:$DBI::errstr\n"; $sth->execute($row) or die "Can't execute:$DBI::errstr\n"; while (my @row = $sth->fetchrow_array()){ my ($a,$b) = @row; print "2..\$a=$a,\$b=$b\n"; } $sth->finish(); my $row_a=3; my $row_c=0; $sql="select a,b from a_tmp where a = ? and c = ?"; $sth=$dbh->prepare($sql) or die "Can't prepare SQl prepare:$DBI::errstr\n"; $sth->execute($row_a,$row_c) or die "Can't execute:$DBI::errstr\n"; while (my @row = $sth->fetchrow_array()){ my ($a,$b) = @row; print "3..\$a=$a,\$b=$b\n"; } $sth->finish(); for $row(1,2,3){ $sql="select a,b from a_tmp where a = ?"; $sth=$dbh->prepare($sql) or die "Can't prepare SQl prepare:$DBI::errstr\n"; $sth->execute($row) or die "Can't execute:$DBI::errstr\n"; while (my @row = $sth->fetchrow_array()){ my ($a,$b) = @row; print "4..\$a=$a,\$b=$b\n"; } } $sth->finish(); #for $row(1,2,3){ #$sql="insert into a_tmp # values (?,?,?)"; #$sth=$dbh->prepare($sql) or die "Can't prepare SQl prepare:$DBI::errstr\n"; #$sth->execute($row,$row+1,$row+2) or die "Can't execute:$DBI::errstr\n"; #} ##$dbh->commit; #$sth->finish(); #$sql="insert into a_tmp # values (100,30,2)"; #$sth=$dbh->prepare($sql) or die "Can't prepare SQl prepare:$DBI::errstr\n"; #$sth->execute or die "Can't execute:$DBI::errstr\n"; ##$dbh->commit; #$sth->finish(); for $row(1,2,3){ $sql="update a_tmp set b = ? , c = ? where a = ?"; $sth=$dbh->prepare($sql) or die "Can't prepare SQl prepare:$DBI::errstr\n"; $sth->execute($row+100,$row+50,$row) or die "Can't execute:$DBI::errstr\n"; } #$dbh->commit; $sth->finish(); for $row(1,2,3){ $sql="delete from a_tmp where c=2"; $sth=$dbh->prepare($sql) or die "Can't prepare SQl prepare:$DBI::errstr\n"; $sth->execute or die "Can't execute:$DBI::errstr\n"; } #$dbh->commit; $sth->finish(); $dbh->do("insert into a_tmp values (1,1,1)") or die "$DBI::errstr\n"; $dbh->do("delete from a_tmp where c=51") or die "$DBI::errstr\n"; #$dbh->commit; $sth->finish(); $dbh->disconnect;
您可能感兴趣的文章:
相关文章推荐
- MongoDB创建表步骤,Mongo常用的数据库操作命令,查询,添加,更新,删除_MongoDB 性能监测
- MongoDB创建表步骤,Mongo常用的数据库操作命令,查询,添加,更新,删除_MongoDB 性能监测
- MongoDB创建表步骤,Mongo常用的数据库操作命令,查询,添加,更新,删除_MongoDB 性能监测
- MongoDB创建表步骤,Mongo常用的数据库操作命令,查询,添加,更新,删除_MongoDB 性能监测
- 稳扎稳打Silverlight(57) - 4.0通信之WCF RIA Services: 概述, 通过 DomainDataSource 实现数据的添加、查询、更新和删除操作
- 数据库的相关操作:如连接、查询、添加、删除、修改、分页显示
- 稳扎稳打Silverlight(57) - 4.0通信之WCF RIA Services: 概述, 通过 DomainDataSource 实现数据的添加、查询、更新和删除操作
- 稳扎稳打Silverlight(57) - 4.0通信之WCF RIA Services: 概述, 通过 DomainDataSource 实现数据的添加、查询、更新和删除操作
- 稳扎稳打Silverlight(57) - 4.0通信之WCF RIA Services: 概述, 通过 DomainDataSource 实现数据的添加、查询、更新和删除操作
- 稳扎稳打Silverlight(57) - 4.0通信之WCF RIA Services: 概述, 通过 DomainDataSource 实现数据的添加、查询、更新和删除操作
- 稳扎稳打Silverlight(57) - 4.0通信之WCF RIA Services: 概述, 通过 DomainDataSource 实现数据的添加、查询、更新和删除操作
- QTP中对数据库的操作(查询,更新和删除等)
- SqlDataReader查询,更新,删除并保持和数据库实时操作
- 稳扎稳打Silverlight(57) - 4.0通信之WCF RIA Services: 概述, 通过 DomainDataSource 实现数据的添加、查询、更新和删除操作
- 稳扎稳打Silverlight(57) - 4.0通信之WCF RIA Services: 概述, 通过 DomainDataSource 实现数据的添加、查询、更新和删除操作
- 稳扎稳打Silverlight(57) - 4.0通信之WCF RIA Services: 概述, 通过 DomainDataSource 实现数据的添加、查询、更新和删除操作
- 稳扎稳打Silverlight(57) - 4.0通信之WCF RIA Services: 概述, 通过 DomainDataSource 实现数据的添加、查询、更新和删除操作
- 稳扎稳打Silverlight(57) - 4.0通信之WCF RIA Services: 概述, 通过 DomainDataSource 实现数据的添加、查询、更新和删除操作
- 稳扎稳打Silverlight(57) - 4.0通信之WCF RIA Services: 概述, 通过 DomainDataSource 实现数据的添加、查询、更新和删除操作
- 稳扎稳打Silverlight(57) - 4.0通信之WCF RIA Services: 概述, 通过 DomainDataSource 实现数据的添加、查询、更新和删除操作