就是一个sql的语句
select
sum(金额)
from
table1 你在vb里面调用sql来运行就可以得到这一列的总和.
‘贰’ vb.net 操作SQL Server数据库,如何在添加记录后自动行求和
你单独写一个函数去实现啊,
思路如下
1、先把这个表做行列转换。
2、针对转换后的可以直接用max,min函数统计。
‘叁’ VB连接SQL查询求和问题!
sql="SELECT SUM(M2) AS M2 FROM M WHERE M2 ='" & Text1.text & "'"
rs.Open sql, Conn, adOpenStatic, adLockReadOnly
Text2 .text=rs.Fields("M2")
‘肆’ VB中sql语句数据库日期段求和请求案列
DimcnAsNewADODB.Connection'声明数据库连接对象
DimrsAsNewADODB.Recordset'声明记录集对象
PrivateSubForm_Load()
cn.Open"Provider=Microsoft.Jet.OLEDB.4.0;PersistSecurityInfo=true;DataSource="&App.Path&"sjkwysjk.mdb;JetOLEDB:DatabasePassword=2017"'自动识别数据库路径
DTP3.Value=Date-30
DTP4.Value=Date
EndSub
PrivateSubCommand7_Click()
DimmysqlAsStringmysql="selectsum(合计金额)As结束日期from物业费where结束日期between'"&DTP1.Value&"'and'"&DTP2.Value&"'"
rs.Openmysql,cn,1,3
Label3.Caption=rs.Fields(0)
rs.CloseSetrs=Nothing
cn.CloseSetcn=Nothing
EndSub
‘伍’ VB6.0+SQL分类求和及赋值问题
Select语句一般跟数据库文件,这种用法我也没试过。你可以从结果上试一试。
一般来说,已经得到了查询,并且显示在了DataGrid1控件中时 只对该控件的属性操作即可。
Dim i As Integer
Dim b As Integer
b=0
For i = 0 To DataGrid1.ApproxCount - 1
DataGrid1.Row = i
If DataGrid1.Columns.Item(0).Text = "北部大区" Then
b=b+Val(DataGrid1.Columns.Item(1).Text)
End If
Next i
End Sub
上面是个简单的例子,如果行数较多(出现垂直滚动条时,会出错,要用到控件的Scroll方法。)
‘陆’ vb SQL语句查询结果求和问题,着急
只更新表y中的b,那么
update y set 数量=(select sum(数量) from x where 编码='B') where 型号='B'
根据x全部更新y,则
update y set y.数量=x.s
from y ,(select 编码,sum(数量) as s from x group by 编码) as x
where y.型号=x.编码
‘柒’ VB 使用SQL语句和sum函数求数据库某一字段之和,并将结果显示在text上
text=rs("个人总分")
‘捌’ VB SQL求和汇总的问题
1、你会?运行看看是不是错了:D
2、“备注合并”的问题比较复杂,常规做法要CURSOR。