请问:将sqlserver2000中的table表中的字段记录赋给一个2维变量,如何实现?

Question

如果数据库中有一个表有a字段\b字段两个字段.我想把所有记录付给一个在程序里设计的2列n行二维变量array(),第一列存放a字段记录,第二列存放b字段记录.程序该怎么写?

Answer 1

GetRows 方法
      将 Recordset 对象的多个记录恢复到数组中。语法array = recordset.GetRows( Rows, Start, Fields )返回值返回二维数组。参数Rows    可选，长整型表达式，指定要检索记录数。默认值为 adGetRowsRest (-1)。Start    可选，字符串或长整型，计算得到在 GetRows 操作开始处的记录的书签。也可使用下列 BookEnum 值。常量 说明 
AdBookCurrent 从当前记录开始。 
AdBookFirst 从首记录开始。 
AdBookLast 从尾记录开始。 
Fields   可选，变体型，代表单个字段名、顺序位置、字段名数组或顺序位置号。ADO 仅返回这些字段中的数据。说明使用 GetRows 方法可将记录从 Recordset 复制到二维数组中。第一个下标标识字段，第二个则标识记录号。当 GetRows 方法返回数据时数组变量将自动调整到正确大小。如果不指定 Rows 参数的值，GetRows 方法将自动检索 Recordset 对象中的所有记录。如果请求的记录比可用记录多，则 GetRows 仅返回可用记录数。如果 Recordset 对象支持书签，则可以通过传送该记录的 Book 属性值，来指定 GetRows 方法将从哪个记录开始检索数据。如要限制 GetRows 调用返回的字段，则可以在 Fields 参数中传送单个字段名/编号或者字段名/编号数组。在调用 GetRows 后，下一个未读取的记录成为当前记录，或者如果没有更多的记录，则 EOF 属性设置为 True。

Answer 2

Private Con As New ADODB.Connection
Private Rs As New ADODB.Recordset
Dim arrays()Private Sub Form_Load()
    Con.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=用户名;Initial Catalog=数据库名;Data Source=SQL服务器名"
    Con.CursorLocation = adUseClient
    Con.Open
    Rs.Open "SELECT * FROM 表名", Con, adOpenStatic, adLockOptimistic
End SubPrivate Sub Command1_Click()
    Dim C As Integer, F As Integer
    Dim i As Integer, j As Integer
    C = Rs.PageCoun
    F = Rs.Fields.Count
    ReDim arrays(C, F)
    Do
    i = i + 1
        For j = 1 To F
            arrays(i, j) = Rs(j - 1)
        Next j
        Rs.MoveNext
    Loop While Rs.EOF = False
End Sub