如何将sql数据库中全部字段的值赋值给一个数组，急，请高手相助！...

希望大侠能够给出实例 --------------------编程问答-------------------- recordset 本身就是一个很好的集合啊，转神马数组呢？
--------------------编程问答-------------------- 实例的，木有…… --------------------编程问答-------------------- 不会用，如果我想取 a 字段的第一个值怎么取。我是真的没有用过。 --------------------编程问答-------------------- 建议你先学习一下如何读取SQL数据库，如何通过指针获取想要得数据

moveFirst 是将指针移到最上 fields("列名") 可获取当前指针位置的列数据
moveNext 是移到下一行

eof 代表指针在最后 --------------------编程问答-------------------- 使用记录集的GetRows方法

GetRows 方法 (ADO)
         

将 Recordset 对象的多个记录恢复到数组中。

语法

array = recordset.GetRows( Rows, Start, Fields )

返回值

返回二维数组。

参数

Rows    可选，长整型表达式，指定检索记录数目。默认值为 adGetRowsRest (-1)。

Start    可选，字符串或长整型，将 GetRows 操作开始处的记录赋值给书签。也可使用下列 BookmarkEnum 值。

常量 说明 
adBookmarkCurrent 从当前记录开始。 
adBookmarkFirst 从第一条记录开始。 
adBookmarkLast 从最后一条记录开始。 


Fields   可选。代表单个字段名、顺序位置、字段名数组或序号位置数的变体型。ADO 仅返回这些字段中的数据。

说明

使用 GetRows 方法可将记录从 Recordset 复制到二维数组中。第一个下标标识字段，第二个则标识记录号。当 GetRows 方法返回数据时数组变量将自动调整到正确大小。

如果不指定 Rows 参数的值，GetRows 方法将自动检索 Recordset 对象中的所有记录。如果请求的记录比可用记录多，则 GetRows 仅返回可用记录数。

如果 Recordset 对象支持书签，则可以通过传送该记录的 Bookmark 属性值来指定 GetRows 方法应开始检索数据的位置。

如要限制 GetRows 调用返回的字段，则可以在 Fields 参数中传送单个字段名/编号或者字段名/编号数组。

在调用 GetRows 后，下一个未读取的记录成为当前记录；如果没有更多的记录，则 EOF 属性设置为 True。
--------------------编程问答-------------------- 该范例使用 GetRows 方法从 Recordset 中检索指定数目的行，并将结果数据填充到数组。在两种情况下 GetRows 方法返回的行将少于所需的数目：一种情况是因为达到了 EOF，另一种情况是因为 GetRows 试图检索已被其他用户删除的数据。仅当第二种情况发生时函数将返回 False。运行该过程需要使用 GetRowsOK 函数。

Public Sub GetRowsX()

   Dim rstEmployees As ADODB.Recordset
   Dim strCnn As String
   Dim strMessage As String
   Dim intRows As Integer
   Dim avarRecords As Variant
   Dim intRecord As Integer

   ' 使用雇员表中的姓名和受雇日期打开记录集。
      strCnn = "Provider=sqloledb;" & _
      "Data Source=srv;Initial Catalog=pubs;User Id=sa;Password=; "
   Set rstEmployees = New ADODB.Recordset
   rstEmployees.Open "SELECT fName, lName, hire_date " & _
      "FROM Employee ORDER BY lName", strCnn, , , adCmdText

   Do While True
      ' 得到用户输入的行数。
      strMessage = "Enter number of rows to retrieve."
      intRows = Val(InputBox(strMessage))

      If intRows <= 0 Then Exit Do

      ' 如 GetRowsOK 成功则打印结果，请注意是否达到文件末端。
      If GetRowsOK(rstEmployees, intRows, _
            avarRecords) Then
         If intRows > UBound(avarRecords, 2) + 1 Then
            Debug.Print "(Not enough records in " & _
               "Recordset to retrieve " & intRows & _
               " rows.)"
         End If
         Debug.Print UBound(avarRecords, 2) + 1 & _
            " records found."

         ' 打印已检索的数据。
         For intRecord = 0 To UBound(avarRecords, 2)
            Debug.Print "  " & _
               avarRecords(0, intRecord) & " " & _
               avarRecords(1, intRecord) & ", " & _
               avarRecords(2, intRecord)
         Next intRecord
      Else
         ' 假定 GetRows 错误源于其他用户对数据的更改，
         ' 使用 Requery 刷新' Recordset 并重新开始。
         If MsgBox("GetRows failed--retry?", _
               vbYesNo) = vbYes Then
            rstEmployees.Requery
         Else
            Debug.Print "GetRows failed!"
            Exit Do
         End If
      End If

      ' 由于使用 GetRows 使当前记录指针指向访问过的最后一个记录，
      ' 所以，在循环回到另一次搜索前将记录指针移回 Recordset 的开始。
      rstEmployees.MoveFirst
   Loop

   rstEmployees.Close

End Sub

Public Function GetRowsOK(rstTemp As ADODB.Recordset, _
   intNumber As Integer, avarData As Variant) As Boolean

   ' 将 GetRows 方法的结果保存在数组中。
   avarData = rstTemp.GetRows(intNumber)
   ' 仅当返回的行数少于所需的行数而非由于到达了 Recordset 末端时才返回 False。
   
   If intNumber > UBound(avarData, 2) + 1 And _
         Not rstTemp.EOF Then
      GetRowsOK = False
   Else
      GetRowsOK = True
   End If

End Function

--------------------编程问答-------------------- 除 --------------------编程问答-------------------- 估计楼主是不会用数据库操作数据，而自己又不想花个几分钟专门去了解，甚至是不愿意去了解，所以就想让别人帮写段代码把数据库的数据放到数组中，这样一来就不用去了解数据库就可以直接用别人的代码得到自己了解的数组数据，然后自己再去处理这些数据。如果是这样，真可谓是“奇葩”啦。 --------------------编程问答-------------------- 用  GetRows 方法将记录集保存到数组。数组的类型必须是 Variant 型。其实这一点好理解，因为字段的类型和长度都不确定。

补充：VB ,  数据库(包含打印，安装，报表)