VB6.0查询语句

1、显示所有清单，其中：Uvoltage,Ucapacity可任意修改。

select Uvoltage,Ucapacity from Supply where Ucapacity =(你原来的语句)

2、仅显示一行，相当于Excel的分类统计计数

select Uvoltage,Min(Ucapacity) From Supply where NOT Utype = '家用' AND Uscapacity>'" &strName &"' group by Uvoltage"

第一句代码，你的原来的代码后面少了个双引号 "

如果还不对，那就是：

数据库里的字段 日期 是日期型的吧？需要将查询转换成日期型的，才会匹配。

Adodc1.RecordSource ="Select * from Data Where 日期=cdate('" &str(DTPicker2.Value) &"')"

第二个问题，用一个order by ，两个类别顺序写，先排前面的，如下：

Adodc1.RecordSource = "select * from Data order by 日期 desc, 物料标识 desc"

---