select 语句如何实现按年份月份查询

论坛风云2

如何查如：2010年11月至2012年5月的内容。SELECT怎么写？

2楼，已解决！

lzqmsy

起始日期.rar (16.72 KB, 下载次数: 97)

2012-8-28 14:50 上传

点击文件名下载附件

ZJPZJPZJP

顶，很好用，谢谢分享

论坛风云2

强悍，又学到新东西了。太兴奋了。感谢呀！

╄→亮

没有看到SELECT语句啊，

201228

╄→亮 发表于 2012-9-15 08:45
没有看到SELECT语句啊，

难道你看到他的控件吗？  控件里面有宏。 宏里面有代码


Private Sub CommandButton1_Click()

Application.ScreenUpdating = False
Set conn = CreateObject("adodb.connection")
conn.Open "provider=microsoft.jet.oledb.4.0;extended properties='excel 8.0;imex=1';data source=" & ActiveWorkbook.FullName

Range("I6:M1000").ClearContents

Sql = "select 日期,姓名,性别,联系方式,职位 from [SHEET1$] " & _
      "where 日期 >= cdate('" & [QSRQ] & "') AND 日期 <= cdate('" & [JZRQ] & "') "
[I6].CopyFromRecordset conn.Execute(Sql)

conn.Close
Set conn = Nothing
Application.ScreenUpdating = True

End Sub

yxcbl12

谢谢分享！学习学习。