在accsee数据库中按日期进行查找程序报错，请赐教！

Question

我想在access数据库中按日期查找数据，但却提示：“标准表达式中数据类型不匹配！”以前我一直对SQL server2000进行数据操作，该数据SQL查询使用都没有问题，但对access却不行，请赐教！代码如下：Set rec1 = CreateObject("adodb.recordset")
Set conn1 = CreateObject("adodb.connection")
strcon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\wy.mdb"
conn1.Open strcon
strsql = "select * from wy where 日期>='2003-09-09'"
rec1.Open strsql, conn1（数据库“日期”字段已定义为短日期，数据类型为日期/时间。如果将
strsql = "select * from wy" 程序可通过）

Answer 1

SQL = "SELECT * FROM 商品销售 WHERE 销售日期=cdate('" & DTPicker1.Value & "')
这样吧，一定行。

Answer 2

我都直接写成 日期>='2003-09-09'都不行了，你加个变量然后cdate就行啦？不行的！不信你试试

Answer 3

strsql = "select * from wy where 日期>=# 2003-09-09 # "

Answer 4

sql = "delete from logdocbaseinfo WHERE Name='" & txtName & "' AND Sex='" & cboSex.Text & _
                "' AND Birth=#" & mskBirth.Tag & "#"

Answer 5

谢谢楼上大师 Leftie(左手)的帮助，问题已解决：）还有个问题能否请教，在access中我保存了一条新数据后想在msflexgrid里把保存的数据马上显示出来，在sql server 2000里没问题，但access里就是显示不出来！
Set rec1 = CreateObject("adodb.recordset")
Set conn1 = CreateObject("adodb.connection")
strcon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\wy.mdb"
conn1.Open strcon
strsql = "insert into 商品价格(帐单号,牌号）values (" trim(Text3.Text)",Trim"(Text4.Text)")"
rec1.Open strsql, conn1是不是需要加什么update语句呀？

Answer 6

Set rec1 = CreateObject("adodb.recordset")
Set conn1 = CreateObject("adodb.connection")
strcon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\wy.mdb"
conn1.Open strcon
strsql = "insert into 商品价格(帐单号,牌号）values (" trim(Text3.Text)",Trim"(Text4.Text)")"strsql="select * from 商品价格"  '你忘记加这句了！得重新查询
rec1.Open strsql, conn1

Answer 7

strsql = "insert into 商品价格(帐单号,牌号）values ('" & trim(text3.text) &"','" & trim(text4.text) & "')"
access中沒有trim函數

Answer 8

strsql = "insert into 商品价格(帐单号,牌号）values (" trim(Text3.Text)",Trim"(Text4.Text)")"
conn1.execute strsql
if rec1.state=adstateopen then rec1.close
strsql=" select * from 商品价格"
rec1.open strsql,conn1,adopenkeyset,adlockreadonly
set mshflexgrid.datasource=rec1
set rec1=nothing