perl数据库添加、删除、更新、查询操作例子

注意:连接时候使用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;
(0)

相关推荐

  • Python Mysql数据库操作 Perl操作Mysql数据库

    首先下载 MySQLdb #encoding=GBK import MySQLdb #import sys # #reload(sys) #sys.setdefaultencoding('utf-8') print 'Connection ...' host='192.168.1.77' user='root' passwd='123456' db='test' conn = MySQLdb.connect(host,user,passwd,db,charset='gbk') print 'Co

  • Perl Mysql数据库操作实现代码

    一. 安装DBI模块 步骤1: 从TOOLS栏目中下载DBI.zip,下载完后用winzip解开到一个temp目录,共有三个文件: Readme DBI.ppd DBI.tar.gz 步骤2: 在DOS窗口下,temp目录中运行下面的DOS命令: ppm install DBI.ppd 如果提示无效命令,可在perl/bin目录下运行 二. 安装DBD-Mysql模块 从软件下载中下载DBD-Mysql.zip,安装方法同一. 三. 准备数据库 启动mysql,首先创建一个数据库mydata,然

  • linux下perl操作mysql数据库(需要安装DBI)

    DBI安装:DBI详细信息参考:http://dbi.perl.org/ 1.下载DBI包: wget http://search.cpan.org/CPAN/authors/id/T/TI/TIMB/DBI-1.620.tar.gz 2 解压 tar xzf DBI-1.620.tar.gz 3 进入解压包内, perl Makefile.PL 4 make test 5 make 6 make install (如果不是root用户,要sudo一下) DBD安装: 1.下载DBD wget

  • angularJs 表格添加删除修改查询方法

    如下所示: <!DOCTYPE html> <html lang="en"> <head> <meta charset="UTF-8"> <title>Title</title> <script src="agl/angular.min.js"></script> <script> var app=angular.module("

  • Python数据分析之 Pandas Dataframe修改和删除及查询操作

    目录 一.查询操作 元素的查询 二.修改操作 行列索引的修改 元素值的修改 三.行和列的删除操作 一.查询操作 可以使用Dataframe的index属性和columns属性获取行.列索引. import pandas as pd data = {"name": ["Alice", "Bob", "Cindy", "David"], "age": [25, 23, 28, 24], &q

  • perl数据库添加、删除、更新、查询操作例子

    注意:连接时候使用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_pas

  • Android编程添加快捷方式(Short)到手机桌面的方法(含添加,删除及查询)

    本文实例讲述了Android编程添加快捷方式(Short)到手机桌面的方法.分享给大家供大家参考,具体如下: 权限 要在手机桌面上添加快捷方式,首先需要在manifest中添加权限. <!-- 添加快捷方式 --> <uses-permission android:name="com.android.launcher.permission.INSTALL_SHORTCUT" /> <!-- 移除快捷方式 --> <uses-permission

  • postgresql数据库连接数和状态查询操作

    查看数据库的当前连接数和状态的几种方式: 只是能看出数据库服务是否正在运行和启动路径 pg_ctl status 统计当前postgresql相关进程数,在大体上可以估算数据库的连接数,非精准,但是目前最常用的 ps -ef |grep postgres |wc -l 包含本窗口的所有数据库连接数 SELECT count(*) FROM pg_stat_activity: 不包含本窗口的所有数据库连接数,其中pg_backend_pid()函数的意思是当前进程相关的后台进程ID SELECT

  • django模型查询操作的实现

    目录 1.创建对象 2.保存ForeignKey和ManyToManyField字段 3.检索对象 跨越多值的关系查询 使用F表达式引用模型的字段: 4.缓存和查询集 5.使用Q对象进行复杂查询 6.比较对象 7.删除对象 8.复制模型实例 9.批量更新对象 10.关系的对象 反向查询: 11.使用原生SQL语句 一旦创建好了数据模型,Django就会自动为我们提供一个数据库抽象API,允许创建.检索.更新和删除对象操作 下面的示例都是通过下面参考模型来对模型字段进行操作说明: from dja

  • python针对mysql数据库的连接、查询、更新、删除操作示例

    本文实例讲述了python针对mysql数据库的连接.查询.更新.删除操作.分享给大家供大家参考,具体如下: 连接 一 代码 import pymysql # 打开数据库连接 db = pymysql.connect("localhost","root","root","db_test01" ) # 使用 cursor() 方法创建一个游标对象 cursor cursor = db.cursor() # 使用 execute(

  • Django对数据库进行添加与更新的例子

    先把models.py摆这儿 #models.py class UserProfile(AbstractUser): ''' 继承Django的AbstractUser 并向里面添加两条数据内容怀疑 ''' gender = models.CharField(max_length=6,choices=(('male','男'),('female','女')),default='female',verbose_name='性别') memo = models.TextField(null=True

  • Mysql数据库值的添加、修改、删除及清空操作实例

    3.MySQL数据管理 第一种方式:不太建议,看起来复杂些 -- 学生表的 gradeid 字段,要去引用 年级表的 gradeid -- 定义外键key -- 给这个外键添加约束,(执行引用),REFERENCES 引用 key `FK_gradeid`(`gradeid`) CONSTRAINT `FK_gradeid` FOREIGN KEY (`gradeid`) REFERENCES `grade`(`gradeid`) 第二种方式:建议 -- 创建表成功后,添加外键约束 -- 创建表

  • Thinkphp5.0 框架使用模型Model添加、更新、删除数据操作详解

    本文实例讲述了Thinkphp5.0 框架使用模型Model添加.更新.删除数据操作.分享给大家供大家参考,具体如下: Thinkphp5.0 的使用模型Model添加数据 使用create()方法添加数据 $res = TestUser::create([ 'name' => 'zhao liu', 'password' => md5(123456), 'email' => 'zhaoliu@qq.com' ]); dump($res); 使用save()方法添加数据 $userMod

随机推荐