Office中国论坛/Access中国论坛
标题: 如何把一个表中的每条记录的特定字段值,依次赋给一个变量。 [打印本页]
作者: 执成 时间: 2007-2-26 00:01
标题: 如何把一个表中的每条记录的特定字段值,依次赋给一个变量。
见附件。[attach]23212[/attach]
作者: 红尘如烟 时间: 2007-2-26 01:01
是不是这样?
[attach]23215[/attach]
[此贴子已经被作者于2007-2-25 17:02:43编辑过]
作者: andymark 时间: 2007-2-26 01:40
也可以把变量存在数组或集合
作者: 红尘如烟 时间: 2007-2-26 01:56
请教版主,如果记录数不是固定的要如何声明数组?
作者: andymark 时间: 2007-2-26 03:06
以下是引用红尘如烟在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
作者: 红尘如烟 时间: 2007-2-26 04:36
多谢指教!
[em07][em07][em07]
[attach]23223[/attach]
[此贴子已经被作者于2007-2-25 21:48:58编辑过]
欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/) |
Powered by Discuz! X3.3 |