注册 登录
编程论坛 VB6论坛

求助数据库中如何求最大值和最小值

ictest 发布于 2017-09-01 08:46, 3989 次点击
一个Access数据库,我的语句如下:
程序代码:
sql = "Select 品种名,文件名,参数名,Site_1_平均值,Site_2_平均值,Site_3_平均值,Site_4_平均值,Site_5_平均值,Site_6_平均值,Site_7_平均值,Site_8_平均值 From pingjunzhi Where 日期>=#" & CDate(Combo1.Text) & "# And 日期<= #" & CDate(Combo7.Text) & "# "

If Len(Trim(Combo2.Text)) > 0 Then
sql = sql & " and 品种名 = '" & Trim(Combo2.Text) & "'"
End If

If Len(Trim(Combo3.Text)) > 0 Then
sql = sql & " and 批号 = '" & Trim(Combo3.Text) & "'"
End If

If Len(Trim(Combo4.Text)) > 0 Then
sql = sql & " and 参数名 = '" & Trim(Combo4.Text) & "'"
End If

Adodc2(0).RecordSource = sql

Adodc2(0).Refresh
Set DataGrid2.DataSource = Adodc2(0)


目前,我想达到如下目标:
只有本站会员才能查看附件,请 登录


求帮助。

3 回复
#2
风吹过b2017-09-01 11:31
使用 SQL 函数 聚合函数 min 和 max ,同时使用条件 限制值 不能为 0 。
没有环境,无法测试。

#3
ictest2017-09-01 14:09
只有本站会员才能查看附件,请 登录

以上是运行环境

运行步骤:
逐项选择combo,点击筛选。

请版主帮助。
#4
ZHRXJR2017-09-02 13:43
DataGrid1控件与ADO控件配合好像只能显示数据,对于计算好像不行,建议使用ADO对象与 MSHFlexGrid 控件配合比较合理。
另外你的数据表中的日期字段的数据类型不是日期数据类型,因此在牵扯到日期查询时,往往查询不到记录,将你的数据表中的日期字段修改为“日期/时间”数据类型。
根据你的要求做了一个,看看可以否,有问题再说。
只有本站会员才能查看附件,请 登录

发给你的数据表已经修改了日期字段的数据类型为“日期/时间”数据类型。
1