UC知道vb access数据库求平均值的一个问题
来源：百度知道 编辑：UC知道 时间：2024/06/22 08:02:05
哪位大虾帮我看看下面的代码有什么错？？
Private Sub Form_Load()
strSQL = "select 风速,AVG(效率)as平均风速,AVG(阻力)as平均阻力 from 表3 group by 风速"
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\My Documents\过滤器性能.MDB;Persist Security Info=False"
Adodc1.RecordSource = strSQL
End Sub
在数据库中有
风速 效率 阻力
X1 Y1(1) Z1(1)
X1 Y1(2) Z1(2)
X1 Y1(3) Z1(3)
X1 Y1(n) Z1(n)
X2 Y2(1) Z2(1)
X2 Y2(2) Z2(2)
X2 Y2(n) Z2(n)
依次 还有X3 X4 X5 ………………
用上面的代码不能在网格控件中DataGrid中显示 风速 平均效率 平均阻力
为什么呢？？
另外加个Adodc1.Refresh 会提示我错误 为什么？
加了 Adodc1.Refresh 运行会提示 对象'refresh'的方法'IAdodc'失败 怎么回事？？
Private Sub Form_Load()
strSQL = "select 风速,AVG(效率)as平均风速,AVG(阻力)as平均阻力 from 表3 group by 风速"
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\My Documents\过滤器性能.MDB;Persist Security Info=False"
Adodc1.RecordSource = strSQL
End Sub
在数据库中有
风速 效率 阻力
X1 Y1(1) Z1(1)
X1 Y1(2) Z1(2)
X1 Y1(3) Z1(3)
X1 Y1(n) Z1(n)
X2 Y2(1) Z2(1)
X2 Y2(2) Z2(2)
X2 Y2(n) Z2(n)
依次 还有X3 X4 X5 ………………
用上面的代码不能在网格控件中DataGrid中显示 风速 平均效率 平均阻力
为什么呢？？
另外加个Adodc1.Refresh 会提示我错误 为什么？
加了 Adodc1.Refresh 运行会提示 对象'refresh'的方法'IAdodc'失败 怎么回事？？
Adodc1.Refresh 对象'Refresh'的方法'IAdodc'失败 是因为你的网格控件里面已经自动连接了Adodc了。
那就加一句:Adodc1.CommandType =1
在Adodc1.RecordSource = strSQL后加入一句
Adodc1.Refresh
另外加个Adodc1.Refresh 会提示错误是什么?
可能是strSQL出了问题，你注意一下空格。
strSQL = "select 风速,AVG(效率) as 平均风速,AVG(阻力) as 平均阻力 from 表3 group by 风速"