请教用GetRows为数组赋值？

jakyky

各位新年好。

本人新手，想请教各位用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比较快，不知道是不是真的呢？

谢谢各位了。

jakyky

可以了，谢谢斑竹。

t小宝

象下面这样用，详细说明请查看帮助

1.     Dim rst As New ADODB.Recordset
   
2.     Dim strSQL As String
   
3.     Dim ArrPrice() As String
   
4. 
   
5.     strSQL = "Select * From tblTest"
   
6.     rst.Open strSQL, CurrentProject.Connection, adOpenDynamic, adLockOptimistic
   
7.     ArrPrice() = rst.GetRows(, , "Price")
   
8.    
   
9.     rst.Close

复制代码