Office中国论坛/Access中国论坛

标题: 请教用GetRows为数组赋值？ [打印本页]

作者: jakyky 时间: 2012-1-30 14:37
标题: 请教用GetRows为数组赋值？
各位新年好。

本人新手，想请教各位用getrows为数组赋值的代码怎么写？

如表tblTest

ID    Name    Price
-------------------------
1    马蹄       0.5
2    胡萝卜    0.7
3    青菜       3.0
4    鲜虾       4.5
5    大米       2.1

想定义数组ArrPrice()，并把Price字段里面的数值赋给ArrPrice()，用getrows怎么写代码啊？

听说用getrows比较快，不知道是不是真的呢？

谢谢各位了。

作者: t小宝 时间: 2012-1-30 15:25
象下面这样用，详细说明请查看帮助

Dim rst As New ADODB.Recordset
Dim strSQL As String
Dim ArrPrice() As String
strSQL = "Select * From tblTest"
rst.Open strSQL, CurrentProject.Connection, adOpenDynamic, adLockOptimistic
ArrPrice() = rst.GetRows(, , "Price")
rst.Close

复制代码

作者: jakyky 时间: 2012-1-30 15:55
可以了，谢谢斑竹。

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)