程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 數據庫知識 >> MYSQL數據庫 >> MySQL綜合教程 >> MySQL導出 XLS 數據庫工具的實際操作

MySQL導出 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數據庫工具的介紹,望你能有所收獲。

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved