MySQL导出 XLS 数据库工具的实际操作

以下的文章主要介绍的是从MySQL导出 XLS 数据库工具的介绍,XLS 数据库工具之所以能在很短的时间内被人们广泛的应用,原因也是因为它独特的功能。以下的文章主要介绍的是MySQL导出 XLS 数据库工具的实际应用。

 
 
 
  1. warn "write to: $ARGV[0]/n";  

生成GB2312编码系统

 
 
 
  1. my $map = Unicode::Map->new("gb2312");  

产生报表

my $report = Spreadsheet::WriteExcel::Big->new("$ARGV[0]") || die "不能生成报表文件:$!";

创建报表的工作表

 
 
 
  1. my $sheet = $report->add_worksheet('data_report');  

创建格式

 
 
 
  1. my $title_style = $report->add_format(); $title_style->set_size(11); $title_style->set_bold(); $title_style->set_align('center');  

初始化数据指针

 
 
 
  1. my $sheet_col = 0;  

从MySQL中导出XLS数据库工具中创建表格

 
 
 
  1. for (my $i=0;$i<=$cols_name ;$i++) {   
  2. $sheet->set_column($cols[$i], length($cols_name[$i])+4);   
  3. $sheet->write_unicode($sheet_col,$i,$map->to_unicode($cols_name[$i]),$title_style);   
  4. }   

$sheet->freeze_panes(1, 0);冻结行

 
 
 
  1. while (my @row = $sth->fetchrow_array) {   
  2. $sheet_col++;   
  3. for (my $i=0;$i<=$cols_name ;$i++) {   
  4. next if ($row[$i] eq '');   
  5. $sheet->write_unicode($sheet_col,$i,$map->to_unicode($row[$i]));   
  6. }   
  7. }   
  8. warn "all done!!!/n";   

结束

 
 
 
  1. END {   
  2. $report->close() if ($report);   
  3. $dbh->disconnect();   
  4. warn "write to: $ARGV[0]/n";   

生成GB2312编码系统

 
 
 
  1. my $map = Unicode::Map->new("gb2312");  

产生报表

my $report = Spreadsheet::WriteExcel::Big->new("$ARGV[0]") || die "不能生成报表文件:$!";

创建报表的工作表

 
 
 
  1. my $sheet = $report->add_worksheet('data_report');  

创建格式

 
 
 
  1. my $title_style = $report->add_format(); $title_style->set_size(11); $title_style->set_bold(); $title_style->set_align('center');  

初始化数据指针

 
 
 
  1. my $sheet_col = 0;  

创建表格

 
 
 
  1. for (my $i=0;$i<=$cols_name ;$i++) {   
  2. $sheet->set_column($cols[$i], length($cols_name[$i])+4);   
  3. $sheet->write_unicode($sheet_col,$i,$map->to_unicode($cols_name[$i]),$title_style);   
  4. }   

$sheet->freeze_panes(1, 0);冻结行

 
 
 
  1. while (my @row = $sth->fetchrow_array) {   
  2. $sheet_col++;   
  3. for (my $i=0;$i<=$cols_name ;$i++) {   
  4. next if ($row[$i] eq '');   
  5. $sheet->write_unicode($sheet_col,$i,$map->to_unicode($row[$i]));   
  6. }   
  7. }   
  8. warn "all done!!!/n";   

结束

 
 
 
  1. END {   
  2. $report->close() if ($report);   
  3. $dbh->disconnect();   
  4. }   

以上的相关内容就是对从MySQL导出XLS数据库工具的介绍,望你能有所收获。

【编辑推荐】

  1. MySQL使用方法的经验大汇总
  2. MySQL mysqldump命令的正确应用
  3. 实现MySQL 用户密码的设置步骤
  4. MySQL数据库安全设置的操作流程
  5. MySQL基本操作,新手入门宝典

分享标题:MySQL导出 XLS 数据库工具的实际操作
路径分享:http://www.csdahua.cn/qtweb/news10/477110.html

网站建设、网络推广公司-快上网,是专注品牌与效果的网站制作,网络营销seo公司;服务项目有等

广告

声明:本网站发布的内容(图片、视频和文字)以用户投稿、用户转载内容为主,如果涉及侵权请尽快告知,我们将会在第一时间删除。文章观点不代表本网站立场,如需处理请联系客服。电话:028-86922220;邮箱:631063699@qq.com。内容未经允许不得转载,或转载时需注明来源: 快上网