一．VB 5中的结果集
---- VB 5提供的数据访问方法有数据询问对象(DAO)、Data控件、远程数据对象(RDO)、RemoteData控件 (RDC)、ODBC API、VB SQL等，其中ODBC API比较复杂，开发、调试和支持非常困难；VB SQL是针对Microsoft SQL Server的，这两种方法使用的比较少，这里不做讨论。比较常用的方法是DAO、Data控件、RDO、RDC，其中DAO和Data控件使用的结果集 (又叫纪录集) 包含在Recordset对象中，RDO和RDC使用的结果集包含在rdoResultset对象中。通用表格输出的实现方法就是根据任意的Recordset对象或rdoResultset对象自动生成表格并输出。
二．表格的自动生成
---- 1. Recordset对象
---- 下面以Data控件为例，介绍 Recordset对象的表格自动生成方法。
---- 假设有Data控件名称为MyData，首先说明相关的内容及用法：
---- (1) Data控件的结果集包含在它的 Recordset对象中，引用方法为: MyData.Recordset。
---- (2) Recordset 对象的 RecordCount属性为结果集的行数，它决定了表格的长度，该属性引用方法为: MyData.Recordset.RecordCount。
---- (3) Recordset 对象包含一个Fields集合，通过Fields集合的 Count属性可以得到结果集中字段的个数，用做表格的列数，该属性引用方法为: MyData.Recordset.Fields.Count。
---- (4) Fields集合包括结果集合全部 Field对象，这些 Field对象引用方法为： MyData.Recordset.Fields(i)，其中 i是该 Field对象在中的位置序号，从 0开始计数。
---- (5) Field 对象的Name属性是该字段的名称，用做表格对应列的名称，引用方法为：MyData.Recordset.Fields(i).Name。
---- (6) Field 对象的Size属性是该字段数据的最大尺寸，引用方法为：MyData.Recordset.Fields(i).Size。
---- (7) Field 对象的Type属性是该字段数据的类型，引用方法为：MyData.Recordset.Fields(i).Type。
---- 用Field 对象的Size和Type属性可以计算出表格对应列的宽度。
---- (8) Field 对象的 Value属性是该字段的值，这是表格对应列的内容，引用方法为：MyData.Recordset.Fields(i).Value。
---- 以上引用在VB中都可有多种引用方法，这里使用的是比较明了的一种，便于说明问题。
---- 表格的自动生成可分为两个步骤：
---- 第一步，根据结果集中各字段的Size和Type属性，生成表格各对应列的宽度，用Format函数使用的格式字符串表示。
---- 下面的 Function getFmt()用来生成表格各列的格式字符串，调用时把Field 对象的Type和Size属性值分别赋给形式参数intType和logSize。
Private Function getFmt(intType As Integer,
logSize As Long) As String
Dim i As Integer
getFmt = ""
'返回的结果串初始置空
Select Case intType
Case dbBoolean
getFmt = getFmt & "\ \ \ \0;\ \ \ \1"
'Boolean 型值转换为0、1，
Case dbByte
getFmt = "@@@@"
Case dbInteger
getFmt = "@@@@@@"
Case dbLong
getFmt = "@@@@@@@@@@"
Case dbCurrency
getFmt = "@@@@@@@@@@"
Case dbSingle
getFmt = "@@@@@@@@@@"
Case dbDouble
getFmt = "@@@@@@@@@@"
Case dbDate
getFmt = "@@@@@@@@@@"
Case dbBinary
getFmt = "@@@@"
Case dbText
If logSize >= 40 Then
'限制一列最多打印40个半角字符
getFmt = "@@@@@@@@@@@@@@@@@@
@@@@@@@@@@@@@@@@@@@@@@"
Else
For i = 0 To CInt(logSize / 2) * 2 - 1
getFmt = getFmt & "@"
Next '调整数值长度为偶数，
以适应汉字制表符
End If
Case dbLongBinary
getFmt = "@@@@"
Case dbMemo
getFmt = "@@@@@@@@@@@@@@@@"
Case dbGUID
getFmt = "@@@@"
Case dbBigInt
getFmt = "@@@@@@@@@@"
Case dbVarBinary
getFmt = "@@@@"
Case dbChar
For i = 0 To CInt(logSize / 2) * 2 - 1
getFmt = getFmt & "@"
Next
Case dbNumeric
For i = 0 To CInt(logSize / 2) * 2 - 1
getFmt = getFmt & "@"
Next
Case dbDecimal
For i = 0 To CInt(logSize / 2) * 2 - 1
getFmt = getFmt & "@"
Next
Case dbFloat
getFmt = "@@@@@@@@@@"
Case dbTime
getFmt = "@@@@@@@@"
Case dbTimeStamp
getFmt = "@@@@@@@@@@"
End Select
End Function
---- 第二步，取结果集的内容并根据各列的格式字符串生成表格，生成的表格存放在字符串数组 strDy()中，下面用Sub Dy()例示这一步骤。
Dim strDy() As String
'存放格式化后的表格内容
Dim Fmt() As String
'存放表格各列的格式字符串
'以上二个数组变量的元素个数根
文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!
