" id="b1img" alt="米课”N+1“思维建站-非官方免费技术支持,Wordpress/Zencart/Opencart建站、SEO" title="米课”N+1“思维建站-非官方免费技术支持,Wordpress/Zencart/Opencart建站、SEO">
  • " alt="米课”N+1“思维建站-非官方免费技术支持,Wordpress/Zencart/Opencart建站、SEO" title="米课”N+1“思维建站-非官方免费技术支持,Wordpress/Zencart/Opencart建站、SEO" />
  • " alt="Windows/Linux服务器运维技术支持 环境搭建、应用发布、服务器管理、虚拟化、云计算" title="Windows/Linux服务器运维技术支持 环境搭建、应用发布、服务器管理、虚拟化、云计算" />
  • " alt="高校/小型企业网络运维与建设免费技术支持,网络规划、网络优化、故障排除、网络管理" title="高校/小型企业网络运维与建设免费技术支持,网络规划、网络优化、故障排除、网络管理" />

VB Recordset的GetRows属性用法详解

程序设计2005-05-05 itlogger阅读(2,884) 评论(0)

Recordset 有个 GetRows 属性,就是把数据集输出到一个数组中。但是实用性可不小,在这里举一个例子说明一下GetRows的使用方法。

比如一个分类的表 T_Cate,结构和数据如下:

ID | Title | Intro
—————————————–
1 | 新闻 | 这里是新闻
2 | 教程 | 这里是教程
3 | 下载 | 这里是下载

表建立好了,数据也有了,下面我们就要用到GetRows咯!

程序代码:
Dim Rs_Cate
Dim Arr_Cate
Set Rs_Cate=Conn.ExeCute(“select ID,Title,Intro FROM T_Cate ORDER BY ID ASC”)
Arr_Cate=Rs_Cate.GetRows
Set Rs_Cate=Nothing

好了表数据已经导出到数组了!下面我们将遍历这个数组

程序代码:
Dim Arr_CateNumS,Arr_CateNumI
Arr_CateNumS=Ubound(Arr_Cate,2) ‘得到数组中数据的下标
For Arr_CateNumI=0 To Arr_CateNumS
Response.Write(“ID:”&Arr_Cate(0,Arr_CateNumI)&” | 标题:”&Arr_Cate(1,Arr_CateNumI)&” | 介绍:”&Arr_Cate(2,Arr_CateNumI)&”<br>”)
Next

呵呵,好了,输出的数据为:
ID:1 | 标题:新闻 | 介绍:这里是新闻
ID:2 | 标题:教程 | 介绍:这里是教程
ID:3 | 标题:下载 | 介绍:这里是下载
================================== …

转载请注明 :IT樵客
文章地址:http://www.itlogger.com/program/68.html
标签:
相关文章

发表评论

电子邮件地址不会被公开。 必填项已用*标注