如何将日期的成年月分开查询 - VB6论坛

luyaqi2011

等　级：新手上路
帖　子：24
专家分：0
注　册：2012-10-16
结帖率：60%

楼主

已结贴√ 问题点数：20 回复次数：4

如何将日期的成年月分开查询

有个表格，表格中有一列为“日期”，用，现在有两个组合框 Cbo年，Cbo月，组合框1中为年份，组合框2中为月份，现在想要通过这两个组合框查询那一列日期。不知道代码要如何写？
Adodc.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\个人文件夹\表.mdb;Persist Security Info=False"
Adodc.RecordSource = "SELECT year([日期]) AS 年份, Month([日期]) AS 月份 FROM 表"
If Cbo年.Text <> "" Then
  If Len(strWhere) = 0 Then
  strWhere = "" 年份" like '%" & Cbo年.Text & "%'"
  Else
  strWhere = strWhere & "and " 年份 " like '%" & Cbo年.Text & "%'"
  End If
  End If
  If Cbo月.Text <> "" Then
    If Len(strWhere) = 0 Then
  strWhere = "" 月份 " like '%" & Cbo月.Text & "%'"
  Else
  strWhere = strWhere & "and " 月份 " like '%" & Cbo月.Text & "%'"
  End If
  End If
  Adodc包.RecordSource = "select * from 表 where " & strWhere
  Adodc包.Refresh
通过组合框想要查询年和月，但是始终显示“至少一个参数没有被指定”。
应该怎么编写这个代码才对？