VBA连接数据库的问题 - 高级功能研发区 - 金字塔客服中心 - 专业程序化交易软件提供商

金字塔客服中心 - 专业程序化交易软件提供商 → 金字塔软件 → 高级功能研发区 → VBA连接数据库的问题

欢迎使用金字塔普通技术服务论坛，您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴，普通区问题处理速度慢，请耐心等待。谢谢您对我们的支持与理解。

共有2805人关注过本帖树形打印复制链接主题：VBA连接数据库的问题

jianshi2020

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：论坛游民帖子：391 积分：0 威望：0 精华：0 注册：2013/7/26 15:58:25

VBA连接数据库的问题 发帖心情

Post By：2013/8/28 16:37:35 [只看该作者]

http://www.weistock.com/bbs/dispbbs.asp?boardid=5&Id=30622&star=1

看着里面的教程后，我自己写了一段查询的代码

sub sjk_button_click()
call DataInsert()
Set adoConn=CreateObject("Adodb.Connection")
'连接数据库（数据指向是金字塔安装目录下的test.mdb，也可以自己更改想要的路径）
   adoConn.Open "Provider=MicroSoft.Jet.OLEDB.4.0;Data Source=test.mdb"
strSqlread="select max(id) as stockdate,price as 价格,sum(buyvol) as 主买,sum(vol) as 主卖,round(sum(buyvol)/sum(vol),3) as 竞买率 from ada group by price; "
Set rstTmp=CreateObject("ADODB.RecordSet")
   rstTmp.open strSqlread,adoConn
   aa=rstTmp("价格")
   sjk_text1=aa
   msgbox aa
end sub

这里当我点击按钮结束后，为什么只出来第一个数据，而之后的97条记录都没有查到？