龙盟编程博客 | 无障碍搜索 | 云盘搜索神器
快速搜索
主页 > 数据库类 > MySQL 技术 >

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

时间:2011-04-12 23:18来源:未知 作者:admin 点击:
分享到:
以下的文章主要介绍的是从 MySQL 导出 XLS 数据库工具的介绍,XLS 数据库工具之所以能在很短的时间内被人们广泛的应用,原因也是因为它独特的功能。以下的文章主要介绍的是MySQL导出

以下的文章主要介绍的是从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数据库工具的介绍,望你能有所收获。


精彩图集

赞助商链接