perl如何执行DDL语句

aboy11

UID: 23219
帖子: 1
积分: 2
在线时间: 10 分钟

1^# aboy11 发表于 2008-12-23 14:45

perl如何执行DDL语句

[Copy to clipboard] [ - ]

CODE:

use DBI;

my $dbname="mydb";
my $dbuser="user";
my $dbpwd="pwd";
my $dbh="";
$dbh = DBI->connect("dbi:Oracle:$dbname",$dbuser,$dbpwd) || die "与数据库建立连接失败!\n错误信息:" . DBI-errstr;
my $sql="select * from teststr;";

my $sth = $dbh->prepare($sql);
$sth->execute();

我用上面的代码连接oracle,
如果我想做DDL操作时候,请教高手,应该如何实现,比如,我想执行 "DESC TESTSTR;"

a_789_123

UID: 31260
帖子: 91
积分: 209
在线时间: 11 小时

2^# a_789_123 发表于 2008-12-23 15:25

use DBI;

my $dbname="mydb";
my $dbuser="user";
my $dbpwd="pwd";
my $dbh="";
$dbh = DBI->connect("dbi:Oracledbname",$dbuser,$dbpwd) || die "与数据库建立连接失败!\n错误信息:" . DBI-errstr;
my $sql="insert into ....values()";

my $sth = $dbh->prepare($sql);
$sth->execute();