请教！如何将筛选结果写入数组

sxgaobo

SELECT 表1.id FROM 表1 WHERE (((表1.单位)="优等"))
如何将筛选结果（ID号）写入数组？

sgrshh29

原帖由 sxgaobo 于 2007-8-3 17:49 发表
SELECT 表1.id FROM 表1 WHERE (((表1.单位)="优等"))
如何将筛选结果（ID号）写入数组？

用记录集打开这个查询,然后定义一个数组,再循环记录集把id赋值到数组.

sxgaobo

麻烦给做个例子好吗！？

sgrshh29

原帖由 sxgaobo 于 2007-8-4 16:37 发表
麻烦给做个例子好吗！？

你先做个简单的上来.

sxgaobo

谢谢了，麻烦帮忙！！！

sgrshh29

好不容易登陆成功.用这段代码好了.
Dim I As Integer
Dim n As Integer
Dim Intsz() As Integer
Dim strsql As String
Dim rst As Object
strsql = "SELECT 表1.id FROM 表1 WHERE 表1.单位='甲等'"
Set rst = CurrentDb.OpenRecordset(strsql)
rst.MoveLast
rst.MoveFirst
n = rst.RecordCount
ReDim Intsz(1 To n)
For I = 1 To n
Intsz(I) = rst("id")
rst.MoveNext
Debug.Print Intsz(I),
Next I
Set rst = Nothing

sxgaobo

谢谢sgrshh29！！！
运行是出错了，提示“下标超界”

sgrshh29

原帖由 sxgaobo 于 2007-8-6 20:07 发表
谢谢sgrshh29！！！
运行是出错了，提示“下标超界”

怎么会“下标超界”呢?奇怪.下面的示例原封不动的用了上面的代码,改为在窗体上显示.

sxgaobo

谢谢sgrshh29！！！

goto2008

学习一下。。。。。。。。。