访问数据库时遇到的问题

mqyng 2003-01-14 10:33:28
Dim rs As adodb.Recordset
Dim txtSQL, MsgText As String
Dim FromTime, ToTime As Date

On Error GoTo Errorhandle
dSum = 0
FromTime = CDate(txtFrom.Text)
ToTime = CDate(txtTo.Text)
txtSQL = "select * from tblBill where date > " & FromTime & " and date < " & ToTime & "

Set rs = ExecuteSQL(txtSQL)


我想返回date在 txtFrom.Text和txtTo.Text之间的记录

返回记录条数怎么总是0?

谁能帮我看看,错在哪了。


注:date为表tblBill中的日期字段,字段类型为"日期时间"
ExecuteSQL(txtSQL,Msgtext)为ADO访问数据库函数,txtSQL为SQL语句,返回的Execute为recordset变量,该函数没有问题。
...全文
7 点赞 收藏 2
写回复
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
饮水需思源 2003-01-14
数据库为access:
"select * from tblBill where date > #" & FromTime & "# and date < #" & ToTime & "#"
数据库为sql:
"select * from tblBill where date > "'" & FromTime & "'" and date < "'" & ToTime & "'"
回复
yanzhao 2003-01-14
看是不是Date格式的问题?
回复
发动态
发帖子
VB基础类
创建于2007-09-28

7453

社区成员

VB 基础类
申请成为版主
社区公告
暂无公告