遇到发qq群的弹幕应该:vb与rs.open

来源:百度文库 编辑:杭州交通信息网 时间:2024/05/02 18:54:00
rs.Open "select * from registrecords where registor='" & Trim(txtemployeeid.Text) & "' and registtime>'" & dtpfrom.Value & "' and registtime<'" & dtpto.Value & "'", conn, adOpenStatic, adLockReadOnly
因registtime是日期时间型,所以查询结果中没有dtpto.value(格式属性为shortdate)这天的,
我把上句改为rs.Open "select * from registrecords where registor='" & Trim(txtemployeeid.Text) & "' and registtime>'" & dtpfrom.Value & "'and registtime<'" & dateadd(day,1,dtpto.Value) & "'", conn, adOpenStatic, adLockReadOnly
查询是显示错误信息框"参数不可选"!
那这语句应怎么改才符合查询要求?

请大家看清要求再回答!
其实本人是想查询结中包括dtpto.value这一天,现在的查询是做不到的,因registtime是日期时间格式,dtpto是日期格式,例如'2006-6-29 00:00:01 000'是比dtpto.value='2006-6-29'大,所以结果中就没有'2006-6-29'这天的记录,直接是如何令dtpto.value增加一天,而又可满足查询需要.

rs.Open "select * from registrecords where registor='" & Trim(txtemployeeid.Text) & "' and registtime>'" & dtpfrom.Value & "' and registtime<'" & dtpto.Value & "'", conn, 1,1

把 , adOpenStatic, adLockReadOnly 去掉看看。

把adOpenStatic改成1,把adLockReadOnly 改成1,试试看。如果要修改数据库的话后面那个用3。