Office中国论坛/Access中国论坛

标题: 【新手入门】之二十一：记录集的“凌迟”——逐条导出记录集 [打印本页]

作者: roych 时间: 2012-2-11 02:22
标题: 【新手入门】之二十一：记录集的“凌迟”——逐条导出记录集
   说到中国古代十大酷刑，想来把肉一块块割下来，直至犯人死去的“凌迟”应该是名列第一的了。据闻刽子手行刑时往往也表示“鸭梨很大”，因为凌迟是需要在三天内割若干次。如果犯人提前挂了或没达到规定的刀数，那对不起，下一个就是你——被执行了。
   “凌迟”比较血腥，所以俺不打算多说，有兴趣的版友们可以自行研究下古代刑法。这里只讲一个跟“凌迟”类似的例子。

   这个例子说是“新手进阶”，是因为必须对记录集稍有了解才方便理解的。——希望没有打击到大多数新手。
   这是在EH（ExcelHome）的一个版友的求助，先是贴一段代码上来，说要把记录集导出到文本。Roy看了半天，没怎么领会，便说用TransferText宏即可。后来ta又说非要逐条记录导出。——这可不是将好好的一个记录集“凌迟处死”了嘛，哪还有王法啊。

   其实之前ta的代码也算是不错的了。Roy只是一时没理解而已。不过，既然夸下口说ta的代码复杂，那么Roy也只能用更简单的代码来实现了。由于需要逐条导出，这时候TransferText是有些麻烦的了（当然，改成动态条件也不是不可以的），后来想了想，似乎GetRows可以实现，便写了这个例子。

   GetRows主要是把记录集转换为一个二维内存数组，通过数组数据的输出，从而达到逐条导出的目的。而作为接收方，我们需要创建文本文件用来写入。至此，思路完全清晰，下面就是写入的方法，据我所知有Open方法、OpenText和OpenTextfile方法，至于有没有第4种方法，没深入研究：
   这里的例子分别采用了第1种（原代码）和第3种方法（Roy），具体看这个“血淋淋”的附件吧（里面有简要的注释）。{:soso_e112:}
   [attach]48296[/attach]
【新手入门】之一：If分支语句
【新手入门】之二：分支语句总结
【新手入门】之三：循环语句For
【新手入门】之四：循环语句Do和死循环
【新手入门】之五：公共变量与传址过程、传值过程
【新手入门】之六：“悲欢离合总无情”——浅谈Split和Join
【新手入门】之七：嵌套与并列——再谈If流程问题
【新手入门】之八：“连就连”——浅谈“&”和“+”连接符的区别
【新手入门】之九：从百钱百鸡谈起——浅谈“规划求解”兼答lingjiang问
【新手入门】之十：书到用时方恨少——自定义菜单（Access 2003）的制作
【新手入门】之十一：浅谈ADO之序言
【新手入门】之十二：浅谈ADO之Connection
【新手入门】之十三：浅谈ADO之Conmmand（上）
【新手入门】之十四：浅谈ADO之Command（下）
【新手入门】之十五：浅谈ADO之Recordset（上）
【新手入门】之十六：浅谈ADO之Recordset（下）
【新手入门】之十七：浅谈列表框的使用
【新手入门】之十八：双击列表框修改数据
【新手入门】之十九：从“书与女友恕不外借”谈起——浅谈“Bookmark”的使用
【新手入门】之二十：“书与书签”——bookmark属性答疑
【新手入门】之二十一：记录集的“凌迟”——逐条导出记录集
【新手入门】之二十二：分组行号
【新手入门】之二十三：“富则妻妾成群”——浅谈一对多录入数据

【新手进阶】之一：基础算法（一）
【新手进阶】之二：基础算法（二）
【新手进阶】之三：基础算法（三）
【新手进阶】之四：基础算法（四）
【新手进阶】之五：排序搜索（一）
【新手进阶】之六：排序搜索（二）
【新手进阶】之七：递归算法
【新手进阶】之八：冒泡排序
【新手进阶】之九：浅谈不绑定数据源操作记录
【新手进阶】之十：工作日的计算
【新手进阶】之十一：“庖丁解牛”和“纪昌学射”——浅谈表格式文本数据的导入
【新手进阶】之十二：从四脚腾空的奔马谈起——原来界面可以这样设计
【新手进阶】之十三：Outlook风格导航界面
【新手进阶】之十四：仓库管理系统

作者: ycxchen 时间: 2012-2-11 09:09
版主的大作肯定要学习！

作者: jinzhanxi 时间: 2012-2-11 10:24
受教了！

作者: tmtony 时间: 2012-2-11 10:46
谢谢分享！

作者: Grant 时间: 2012-2-11 11:56
辛苦了,谢谢分享 {:soso_e100:}

作者: JosephTan 时间: 2012-2-11 18:23
那個帖子的地址?我看看是什麼

作者: ysh5858 时间: 2012-2-11 22:44
谢谢分享！

作者: roych 时间: 2012-2-11 23:41
本帖最后由 roych 于 2012-2-11 23:43 编辑

JosephTan 发表于 2012-2-11 18:23
那個帖子的地址?我看看是什麼

原帖是要版主帮忙的，EH里的Access版块更多的是精于SQL Server，所以我就客串一下了。
http://club.excelhome.net/forum. ... p;page=1#pid5636456

作者: SRONE 时间: 2012-2-12 01:36
谢谢分享！

作者: Bonny_新乐 时间: 2015-8-3 22:01
学习了。

作者: 522650696 时间: 2016-4-26 21:39

谢谢分享！

作者: Superleistung 时间: 2016-5-19 16:15
拜读一下code

作者: wuwu200222 时间: 2023-3-1 10:11
学习

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)

Powered by Discuz! X3.3