[求救]怎么样把数据库中的数据调入数组中?

Question

一个数据库,共8个字段,现在想把数据分别调入1个二维数组的第2维中...十万火急啊!

Answer 1

dim hj(8,2)
dim col as As rdoColumn
dim i as integer
SQL="select * from 表"
Set Rst = Cn.OpenResultset(SQL, rdOpenDynamic, rdConcurRowVer)
with Rst
  i=0
  for each  col in .rdoColumns
     i=i+1
     hj(i,1)=col.value
next col
end with

Answer 2

GetRows 方法 (ADO)
         将 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。GetRows 方法范例
该范例使用 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.CloseEnd SubPublic 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 IfEnd Function

Answer 3

用GetRow方法得到的数组,如果我想改变第一维的名字,可不可以呢?如果可以的话,用什么方法实现呢?

Answer 4

这里真的就没有精通ADO的朋友了吗?