db info.inc.php,db_export.php

/* vim: set expandtab sw=4 ts=4 sts=4: */

/**

* dumps a database

*

* @version $Id$

* @uses libraries/db_common.inc.php

* @uses libraries/db_info.inc.php

* @uses libraries/display_export.lib.php

* @uses $tables from libraries/db_info.inc.php

* @package phpMyAdmin

*/

/**

* Gets some core libraries

*/

require_once './libraries/common.inc.php';

// $sub_part is also used in db_info.inc.php to see if we are coming from

// db_export.php, in which case we don't obey $cfg['MaxTableList']

$sub_part = '_export';

require_once './libraries/db_common.inc.php';

$url_query .= '&goto=db_export.php';

require_once './libraries/db_info.inc.php';

/**

* Displays the form

*/

$export_page_title = $strViewDumpDB;

// exit if no tables in db found

if ($num_tables < 1) {

PMA_Message::error('strNoTablesFound')->display();

require './libraries/footer.inc.php';

exit;

} // end if

$checkall_url = 'db_export.php?'

. PMA_generate_common_url($db)

. '&goto=db_export.php';

$multi_values = '

';

$multi_values .= '' . $strSelectAll . '

/

' . $strUnselectAll . '
';

$multi_values .= '';

$multi_values .= "\n";

if (!empty($selected_tbl) && empty($table_select)) {

$table_select = $selected_tbl;

}

foreach ($tables as $each_table) {

if (! empty($unselectall)

|| (! empty($table_select) && !in_array($each_table['Name'], $table_select))) {

$is_selected = '';

} else {

$is_selected = ' selected="selected"';

}

$table_html = htmlspecialchars($each_table['Name']);

$multi_values .= '

. $is_selected . '>'

. str_replace(' ', ' ', $table_html) . '

' . "\n";

} // end for

$multi_values .= "\n";

$multi_values .= '


';

$export_type = 'database';

require_once './libraries/display_export.lib.php';

/**

* Displays the footer

*/

require_once './libraries/footer.inc.php';

?>

一键复制

编辑

Web IDE

原始数据

按行查看

历史

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
帮我优化以下代码Private Sub Command9_Click() Dim db As DAO.Database Dim rs As DAO.Recordset Dim strSQL As String Dim strFileName As String Dim i As Integer '设置导出文件路径和文件名 strFileName = "C:\Users\icd\Desktop\流水分割" Set db = CurrentDb() strSQL = "SELECT 接触清单.呼叫流水号 AS 录音流水号, IIf(IsNull([区域中心]),"",IIf([区域中心] Like '广州' Or [区域中心] Like '汕头' Or [区域中心] Like '梅州','gz','sz')) AS 区域 " _ & " FROM 接触清单 WHERE (((IIf(IsNull([区域中心]),"",IIf([区域中心] Like '广州' Or [区域中心] Like '汕头' Or [区域中心] Like '梅州','gz','sz'))) Is Not Null) AND ((接触清单.呼叫日期)>=Date()-5))" Set rs = db.OpenRecordset(strSQL, dbOpenSnapshot) '每10000条记录导出到一个新的文件 Do While Not rs.EOF If i Mod 10000 = 0 Then If i <> 0 Then DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "ExportData", strFileName & Format(i, "000000") & ".xlsx", True End If CurrentDb.Execute "SELECT TOP 10000 * INTO ExportData FROM (" & strSQL & ") AS T" rs.Close Set rs = db.OpenRecordset("ExportData", dbOpenSnapshot) End If i = i + 1 rs.MoveNext Loop '导出最后一份文件 If i Mod 10000 <> 0 Then DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "ExportData", strFileName & Format(i - (i Mod 10000), "000000") & ".xlsx", True End If '清除临时表 db.Execute "DROP TABLE ExportData" rs.Close Set rs = Nothing Set db = Nothing End Sub
最新发布
06-08
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值