VB 求字段总和

来源：百度知道 编辑：UC知道 时间：2024/05/20 06:08:22
单击COMMAND后,采用TEXT显示求和结果
给出完整代码!!
使用SUM()

Dim rs As New ADODB.Recordset
Dim conn As New ADODB.Connection
strconn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb;Persist Security Info=False"
conn.Open strconn
Set rs = CreateObject("adodb.recordset")
SQL = "selcet * from shuju"
rs.Open SQL, conn, 1, 3
x = rs.Fields("shuju1").Value
y = rs.Fields("shuju2").Value
z = CInt(x) + CInt(y)
Text1.Text = z
x和y可以直接写成rs.fields("shuju1").value也可以的。