Access转出到Mysql,咱自己动手丰衣足食.. -- 纯JS代码

gmdzxx

　　公司的网站做的差不多了,可是没有找到测试数据,真够郁闷的,就想到了 Access罗思文数据库.
　　
　　可是机器上装的是WPS,没有装Access. 而且罗思文里面东西太多,很难搞.
　　
　　郁闷死我了,又往下找,找到了以前某出版社的书序目录数据库,
　　使用mdbview这个小软件一看,呵呵.里面只有一个表: books.还有4000多条记录.
　　太爽了. ... 问题出现了,我怎么把它弄到Mysql里面呢???? 这个倒来倒去的很麻烦啊
　　
　　想到这里,先想到的是使用PHP来做,我一向使用的是FLEAPHP框架,很愁人的是没有这个驱动库提供.
　　又想到了PHP的 ADODB这个开源库.下了一个,很郁闷,感觉是很强,但是远水解不了近渴啊,
　　偶估计等我把他那英文文档看明白了,天也要黑了....
　　所以一票否决使用PHP来搞...
　　
　　接着想到了JAVA,以前好像学过JAVA提供的JDBC驱动,想到啊,不错啊... 结果很快报异常....时间都浪费在
　　调异常上面了.... 花了我一刻钟 ... 真的很郁闷. ..
　　
　　偶然想到ASP不是挺能搞Access的么? 找来找去那玩意都需要运行环境来支持.....
　　
　　郁闷的不行,突然想到了IE上实现Ajax的代码,创建ActiveXObject对象,我当时就在想这个对象不知道能不能在本地跑啊.
　　因为系统里面已经带了脚本运行时环境.... 三分钟后,哈哈可以啊,竟然可以在本地....
　　
　　接着看到还支持文件系统的读写,叫一网友发了一本ASP的老书,仔细看了看ADO的语法,呵呵呵.还真行...
　　一会儿就OK了,但是还是有问题存在,妈妈的,幸亏我看的懂VB的语法,不然还真不能换成JS来实现....原来ASP换能使用JS
　　来写,日 第一次知道....
　　
　　闲话少说,贴代码了. 这里仅仅贴出JS怎么将Access里面的数据存到本地的文件的功能.... 具体导出到MYSQL的做法
　　你们自己想了,反正很简单....
　　

function ShowDriveInfo1(drvPath)
{
var fso, drv, s ="";
fso = new ActiveXObject("Scripting.FileSystemObject");
drv = fso.GetDrive(fso.GetDriveName(drvPath));
s += "Drive " + drvPath.toUpperCase()+ " - ";
s += drv.VolumeName + "<br>";
s += "Total Space: " + drv.TotalSize / 1024;
s += " Kb" + "<br>";
s += "Free Space: " + drv.FreeSpace / 1024;
s += " Kb" + "<br>";
writeFile(s);
}
var fso = new ActiveXObject("Scripting.FileSystemObject");;
var outdb = fso.CreateTextFile("testfile.txt", true);;
//ShowDriveInfo1('d:',true);
function writeFile(s)
{
outdb.WriteLine(s);     
}

var cn = new ActiveXObject("ADODB.Connection") ;
var result = new ActiveXObject("ADODB.Recordset");
cn.Open("FILEDSN=books.dsn");
writeFile(cn);
/*
设置或返回游标服务的位置,防止返回记录数为-1
有疑问的是 为什么要设值为3呢??
3表示使用由本地游标库提供的客户端游标,而缺省是服务端设置
result.MoveLast(); //行集不支持反向取
*/
result.CursorLocation = 3;  
var sql = 'select * from books' ;
result.Open(sql,cn);
writeFile('exec sql : ' + sql);
writeFile('result.RecordCount : ' + result.RecordCount);
var fields = {
objID: result("ID"),
objBookCode: result("BookCode"),
objBookName: result("BookName"),
objPrice: result("Price"),
objAuthor: result("Author"),
objBooksPerPack: result("BooksPerPack"),
objYear: result("Year"),
objISBN: result("ISBN"),
objOther: result("Other")
};

for (var i=0;i< result.RecordCount  ; i ++)
{
var tmpss = '' ; //每次都要置空,刚才没有注意,3秒钟就跑到了580M.
for (field in fields)
tmpss += fields[field] + '\t\t' ;
writeFile(tmpss);
result.MoveNext();
}
result.Close();
cn.Close();
outdb.Close();
fso = null ;
　　
　　这里看看这个运行结果吧:

写道

Provider=MSDASQL.1;Extended Properties="DBQ=D:\book.mdb;DefaultDir=D:\;Driver={Driver do Microsoft Access (*.mdb)};DriverId=281;FIL=MS Access;FILEDSN=books.dsn;MaxBufferSize=2048;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;Threads=3;UID=admin;UserCommitSync=Yes;"
exec sql : select * from books
result.RecordCount : 4351
1 TP68150 Linux 系统管理指南 46 吴东霞等 7 2001 750536815X null
2 TPAA0230 Linux工具集 55 王军 等 5 2004 7120000233 null
3 TN004770 Linux网络入侵检测系统 25 刘文涛 9 2004 7121004771 null
4 TP96260 Linux系统安全——开放源码安全工具管理员指南（第二版） 48 周元兴译 5 2004 7505396269 null
5 TP92970 嵌入式Linux——硬件、软件与接口 35 陈雷译 9 2003 7505392972 null
6 TP96610 Red Hat Linux实用指南 88 孙天泽译 3 2004 7505396617 null
7 TP64770 红旗Linux 网络管理教程 28 中科红旗 9 2001 7505364774 null
8 TP75450 Windows XP 注册表配置详解 25 韩江 8 2002 7505375458 null
9 TP74710 Windows 98 2000 Me XP 注册表大全 31 郝强 8 2002 7505374710 null
10 TP91960 精通注册表修改与编程 Windows 98/Me/2000/XP 29 郝强 7 2003 7505391968 nul
　　
　　通过这次偶真的有感而发,在IE中调试JS很麻烦,但是在本地写JS脚本那个报错就要明确的多啊....很快就挑好了
　　
　　这里出现了个很搞的东西:

var tmpss = '' ; //每次都要置空,刚才没有注意,3秒钟就跑到了580M.
因为我刚开始把它放到for循环的外面了,运行过后,打开一看,提示打开很大文件,我想不对啊?没有多大啊
我还是放到桌面上的,一会我感觉不对劲,想把它删了,结果提示正在运行,赶快结束了那个进程... 一查属性
 
乖乖,578M. 不到三秒的时间 , 好险啊...
 
大家注意啊... 改下用来 恶意下别人机器也是挺好玩的....