perl连接SQL数据库的问题

nelfking

UID: 36401
帖子: 8
积分: 18
在线时间: 10 分钟

1^# nelfking 发表于 2008-11-13 17:40

perl连接SQL数据库的问题

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

hfahe

UID: 36097
帖子: 160
积分: 368
在线时间: 1 天 11 小时

2^# hfahe 发表于 2008-11-13 17:44

SQL Server吧？用DBI模块

nelfking

UID: 36401
帖子: 8
积分: 18
在线时间: 10 分钟

3^# nelfking 发表于 2008-11-13 17:49

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

wxlfh

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

4^# wxlfh 发表于 2008-11-13 18:34

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

nelfking

UID: 36401
帖子: 8
积分: 18
在线时间: 10 分钟

5^# nelfking 发表于 2008-11-14 09:13

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

flw

UID: 21204
帖子: 144
积分: 331
在线时间: 1 天 4 小时

6^# flw 发表于 2008-11-14 09:14

QUOTE:

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

能先看看文档吗？不谢。

nelfking

UID: 36401
帖子: 8
积分: 18
在线时间: 10 分钟

7^# nelfking 发表于 2008-11-14 09:18

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

flw

UID: 21204
帖子: 144
积分: 331
在线时间: 1 天 4 小时

8^# flw 发表于 2008-11-14 09:23

QUOTE:

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

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

nelfking

UID: 36401
帖子: 8
积分: 18
在线时间: 10 分钟

9^# nelfking 发表于 2008-11-14 15:07

#!/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吗？

aboy11

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

10^# aboy11 发表于 2008-11-14 22:09

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

[Copy to clipboard] [ - ]

CODE:

use DBI;

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