Access转出到Mysql,咱自己动手丰衣足食.. -- 纯JS代码
来源:互联网 发布:linux如何打包文件夹 编辑:程序博客网 时间:2024/05/07 02:47
公司的网站做的差不多了,可是没有找到测试数据,真够郁闷的,就想到了 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 ;
这里看看这个运行结果吧:
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. 不到三秒的时间 , 好险啊...
大家注意啊... 改下用来 恶意下别人机器也是挺好玩的....