- 金字塔客服中心 - 专业程序化交易软件提供商 (http://weistock.com/bbs/index.asp)
-- 高级功能研发区 (http://weistock.com/bbs/list.asp?boardid=5)
---- 请教一个vba数据库的写法问题 (http://weistock.com/bbs/dispbbs.asp?boardid=5&id=95769)
-- 发布时间：2016/4/2 14:56:25
-- 请教一个vba数据库的写法问题
Sub cs()
set adoConn=createobject("Adodb.connection")
adoConn.open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\\Weisoft Stock\\test.accdb"
strSqlread="select stockdate from RB00 where vclose =2193 "
Set rstTmp=CreateObject("ADODB.RecordSet")
rstTmp.open strSqlread,adoConn
aa=rstTmp("stockdate ")
application.msgout " aa:" & aa
End Sub
为什么上面通过vclose字段找stockdate字段是对的,下面通过stockdate字段找vclose字段却报错?该怎么写?另外,请问如何找最后一行的stockdate值?
Sub cs()
set adoConn=createobject("Adodb.connection")
adoConn.open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\\Weisoft Stock\\test.accdb"
VV=cdate("2016/4/1")
strSqlread="select vclose from RB00 where stockdate=" & vv
Set rstTmp=CreateObject("ADODB.RecordSet")
rstTmp.open strSqlread,adoConn
aa=rstTmp("vclose")
application.msgout " aa:" & aa
End Sub
-- 发布时间：2016/4/2 14:59:26
--
此主题相关图片如下：48-56.png
-- 发布时间：2016/4/2 15:04:01
--
此主题相关图片如下：03-40.png
-- 发布时间：2016/4/2 16:07:43
--
会查找最后一行了.不过上面的报错还是没搞明白.stockdate数据类型是date
-- 发布时间：2016/4/5 11:23:06
--
VV=cdate("2016/4/1")
strSqlread="select vclose from RB00 where stockdate like \'"&VV&"\'"
这样写