如何用vb读取access表中数据，并赋值给另一变量？

来源：百度知道 编辑：UC知道 时间：2024/06/20 02:53:06
例如，access中有一表：
书名 价格 数量
aaa 10 2
bbb 15 5...
欲把价格字段各值赋给数组s[5], 用vb语言如何实现

Dim S() As Integer
set rs=cn.Execute("Select * From TableName",30,adCmdText)
For i=0 To rs.recordcount
s(i)=rs(i)
Next i

比较麻烦 ....
先读取ACCESS表打开
再通过循环，将数组赋值。比较简单