//MSSQL 、ACCESS数据库都适用,两种数据库连接方式,OLEDB与ODBC
function sql_find()
{
var path1=ThisWorkbook.Path; //数据库存放路径
var file1=path1+"\\sngdata.mdb"; //数据库名
//var sql_str="SELECT TABLE_CATALOG, TABLE_SCHEMA, TABLE_NAME FROM INFORMATION_SCHEMA.TABLES WHERE TABLE_TYPE = 'BASE TABLE'";//查询库中所有用户表
//var sql_str="SELECT *from AppKeyPath";
//var sql_str="update `产品表` set 库存量=25 where ID=67"; //SQL查询语句
var sql_str="SELECT a.name, b.rows FROM sysobjects AS a INNER JOIN sysindexes AS b ON a.id = b.id WHERE (a.type = 'u') AND (b.indid IN (0, 1)) ORDER BY a.name,b.rows DESC";//统计当前数据库中所有表记录数
var ob1=ob1=Worksheets.Item("Sheet4");//存放查询数据的表
var select_Range1=ob1.Range("A1");//存放查询数据起始位置
//var sql_Table=ob1.QueryTables.Add("ODBC;DSN=MS Access Database;DBQ="+file1+";DefaultDir="