Office中国论坛/Access中国论坛

标题: 用VBA获取表的数据用哪个语句 [打印本页]

作者: bfwz 时间: 2005-7-6 02:39
标题: 用VBA获取表的数据用哪个语句

表1如下：

a字段  b字段

110    120

210    220

希望VBA的变量A11=110, B22=220,

请问，怎么写语句？

作者: wu8313 时间: 2005-7-7 01:11
看看这个地址上的代码是否可以：http://www.office-cn.net/forum.php?mod=viewthread&tid=29235

作者: LucasLynn 时间: 2005-7-7 05:03

以下是引用bfwz在2005-7-5 18:39:00的发言：

表1如下：

a字段  b字段

110    120

210    220

希望VBA的变量A11=110, B22=220,

请问，怎么写语句？

在你的代码前添加以下代码，然后可以用A(1)，B(2)来读取数据。当然只能读不能写。

Dim A() as Integer

Dim B() as Integer

Set con = Application.CurrentProject.Connection

Set rs = CreateObject("ADODB.Recordset")

stSql = "SELECT * FROM [表1]

rs.Open stSql, con, adOpenKeyset, adLockOptimistic

ReDim A(rs.RecordCount - 1)

ReDim B(rs.RecordCount - 1)

For i = 0 To rs.RecordCount - 1

      A(i) = CInt(rs![A字段])

      B(i) = CInt(rs![B字段])

      rs.MoveNext

Next i

rs.Close

作者: fengyeyouni 时间: 2009-8-4 09:07
看不懂，，，，

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