标题：请教一个vba数据库的写法问题

1楼

dwjgwsm 发表于：2016/4/2 14:56:25

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

2楼

dwjgwsm 发表于：2016/4/2 14:59:26

此主题相关图片如下：48-56.png

3楼

dwjgwsm 发表于：2016/4/2 15:04:01

此主题相关图片如下：03-40.png

4楼

dwjgwsm 发表于：2016/4/2 16:07:43

会查找最后一行了.不过上面的报错还是没搞明白.stockdate数据类型是date

5楼

yukizzc 发表于：2016/4/5 11:23:06

VV=cdate("2016/4/1")
strSqlread="select vclose from RB00 where stockdate like '"&VV&"'"

这样写

共5 条记录, 每页显示 10 条, 页签: [1]