请帮忙加一段按时间段查询代码

iwangyi · 发表于 2018-7-28 10:52

Sub cc()
Set cn = CreateObject("adodb.connection") '创建连接
cn.Open "provider=microsoft.jet.oledb.4.0;extended properties =excel 8.0;data source=" & ThisWorkbook.FullName '打开连接
Sql = "select * from [文件录入登记表$a2:l] between '" & "#" & TextBox2 & "#" & "' and '" & "#" & TextBox3 & "#" & "'" '按日期区间查询
' TextBox2 是起始日期 TextBox3 结束日期
arr = cn.Execute(Sql).getrows ' 将查询结果输出给数组
ListView1 = arr ' 将数组值付给窗体列表框
End Sub

iwangyi · 发表于 2018-7-28 11:25

二手活不好做，各人有各人自有的习惯方法，二手活做起来不顺手，你自己参考即可

真的也许是菜鸟 · 发表于 2018-8-6 11:30

谢谢，自己看看

		自动登录	找回密码
密码			免费注册

[求助] 请帮忙加一段按时间段查询代码