当前位置:编程学习 > VB >>

一个小问题,高手帮帮我,我的积分全给你了!!!

  我的access表是这样的    月份   电表度数                                    

                                    1      20

                                    2      50

                                    3      100

                                    4      130

比如我想知道1月到3月用的电量怎么写程序啊,谢谢!!!!
--------------------编程问答-------------------- 工程--引用 Microsoft ActiveX Data Objects 2.5 Library
以下程序中a为你月份的字段名,b为你电量的字段名。

Private Sub Form_Load()
   Dim cnn As New ADODB.Connection
   Dim rst As New ADODB.Recordset
   cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\11.mdb;Persist Security Info=False"
   cnn.CursorLocation = adUseClient
   cnn.Open
   rst.Open "select sum(b) from itb1 having a<=3", cnn, adOpenStatic, adLockOptimistic
   Set DataGrid1.DataSource = rst
     
End Sub

--------------------编程问答-------------------- select sum(电量) from 你的表名 having 月份<=3 --------------------编程问答-------------------- select sum(电量) as 总电量 from 表名 where 月份 between 1 and 3
--------------------编程问答-------------------- select sum(电量) as 总电量 from 表名 where 月份 <4
补充:VB ,  基础类
CopyRight © 2022 站长资源库 编程知识问答 zzzyk.com All Rights Reserved
部分文章来自网络,