perl DBI excel 大数据问题

luckyelement

UID: 34753
帖子: 36
积分: 82
在线时间: 1 小时

1^# luckyelement 发表于 2008-05-19 15:08

perl DBI excel 大数据问题

1. 代码如下:

use strict;
use Spreadsheet::WriteExcel;
use DBI;

my $sql = 'select * from users';
my $DSN = "driver={SQL Server};Server=$datahost; database=$database;uid=$username;pwd=$password;";
my $dbh = DBI->connect("dbi:ODBCDSN") or die "$DBI::errstr\n";

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

my $wb = Spreadsheet::WriteExcel->new('t.xls');
my $worksheet = $wb->add_worksheet();

my $count = 0;
while(my @row = $sth->fetchrow_array) {
    $count++;
    for(my $i=1;$i<=$sth->{NUM_OF_FIELDS};$i++) {
        my $line = $i-1;
        $worksheet->write(0,$line,$sth->{NAME}->[$line]);
        if(@row[$line]) {
            $worksheet->write($count,$line,@row[$line]);
        }
        else {
            print "data is null\n";
        }
    }
}

2. users表里面有 30100条数据.  共计: 42个字段.

3. 执行脚本, 写入200多条数据,提示错误.  错误如下:

Couldn't parse formula: =NT=Win=Philip

4. 如果写到文本文件里面, 就没有任何问题.  谁能解释一下为什么这样?? 怎么解决???? 谢谢,

luckyelement

UID: 34753
帖子: 36
积分: 82
在线时间: 1 小时

2^# luckyelement 发表于 2008-05-20 11:08

谢谢.

cobrawgl

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

3^# cobrawgl 发表于 2008-05-20 11:34

http://www.google.com/search?hl= ... ;btnG=Google+Search

要学会用 google 啊