perl连接SQL数据库的问题

nelfking

我要做个自动打包的perl程序，最开始需要访问数据库取出一些图片和文件到指定文件夹进行打包操作，上网查了半天没有相关资料，请各位高手指点迷津。（perl访问sql2000数据库的）
给点提示也可以，资料太少，我又不是很熟悉...

hfahe

SQL Server吧？用DBI模块

nelfking

大的方向我知道啊，dbi我下了，可是找不到使用说明，这位可以说详细点吗？谢谢
照顾新手

wxlfh

我想可以用DBI模块和DBD::ODBC模块结合起来使用。

nelfking

能帮忙写一小段连接数据库的代码吗？谢谢

flw

原帖由 nelfking 于 2008-11-14 09:13 发表
能帮忙写一小段连接数据库的代码吗？谢谢

能先看看文档吗？不谢。

nelfking

请问应该看什么文档，我是新手，对资源的查找不是很擅长，最好有中文的，谢谢

flw

原帖由 nelfking 于 2008-11-14 09:18 发表
请问应该看什么文档，我是新手，对资源的查找不是很擅长，最好有中文的，谢谢

perldoc DBI
perldoc DBD::ODBC
google 有网页整篇翻译，凑合着看吧，质量还不错。

nelfking

#!/usr/bin/perl
use DBI;
use strict;
my $dbh = DBI->connect('dbi:ODBC:example','sa','sa');#example为数据库名，这三个是用单引号还是双引号？
my $sth = $dbh->prepare(...);
my $rc = $sth->execute;
$sth->disconnect;#函数需要加括号吗？
这样写对吗？
'dbi:ODBC是对应的sql2000吗？

[ 本帖最后由 nelfking 于 2008-11-14 15:19 编辑 ]

aboy11

perl 连接sqlserver数据库,刚用过的,呵呵

1. use DBI;
   
2. 
   
3. 
   
4. my $DNS = 'driver={SQL Server};Server=192.168.0.2;database=data;uid=sa;pwd=sa;';
   
5. my $dbh = DBI->connect("dbi:ODBC:$DNS") || die "$DBI::errstr\n";
   
6. my $sth = $dbh -> prepare("create table test\(col1 varchar\(20\),col2 integer\)");
   
7. print "OK\n" if($sth->execute());

复制代码