如何把一个表中的每条记录的特定字段值，依次赋给一个变量。

执成

见附件。

红尘如烟

是不是这样？

[此贴子已经被作者于2007-2-25 17:02:43编辑过]

andymark

也可以把变量存在数组或集合

红尘如烟

请教版主，如果记录数不是固定的要如何声明数组？

andymark

以下是引用红尘如烟在2007-2-25 17:56:00的发言：


请教版主，如果记录数不是固定的要如何声明数组？

Dim I As Long
Dim StrMsg() As String

Private Sub Form_Load()
Dim LngCount As Long
Dim Rs As New ADODB.Recordset
Rs.Open "SELECT * FROM 日程", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
Rs.MoveFirst

LngCount = Rs.RecordCount

ReDim StrMsg(LngCount) As String

Do While Not Rs.EOF

   StrMsg(I) = Rs.Fields("内容")
   I = I + 1
   Rs.MoveNext
   
   Loop

For I = 0 To LngCount - 1
Debug.Print StrMsg(I)
Next I

Set Rs = Nothing

End Sub

红尘如烟

多谢指教！

[em07][em07][em07]

[此贴子已经被作者于2007-2-25 21:48:58编辑过]