设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 771|回复: 3
打印 上一主题 下一主题

[其它] 用VBA获取表的数据用哪个语句

[复制链接]
跳转到指定楼层
1#
发表于 2005-7-6 02:39:00 | 只看该作者 回帖奖励 |正序浏览 |阅读模式



























表1如下:


a字段  b字段


110     120


210     220








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


请问,怎么写语句?


分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
4#
发表于 2009-8-4 09:07:38 | 只看该作者
看不懂,,,,
3#
发表于 2005-7-7 05:03:00 | 只看该作者
以下是引用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
2#
发表于 2005-7-7 01:11:00 | 只看该作者
看看这个地址上的代码是否可以:http://www.office-cn.net/forum.php?mod=viewthread&tid=29235
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-11-11 11:26 , Processed in 0.085937 second(s), 28 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表