DTPicker控件查询和数据汇总问题...

Question

问题1:
------------------------------------------
我想计算数据库中某字段的所有值的和(如:将全部收入汇总,请问语句怎么写法呢?)问题2:
------------------------------------------
我建两个表(表1有上面全部收入汇总得出的总值)(表2是我支出的所有汇总值)然后相减得到余额怎么写法呢?问题3:
=-----------------------------------------
我用两个dtpicker查询两个月份之间的支出额又怎么写法?先谢.

Answer 1

1。select sum(a) from 表 

Answer 2

3.access
"select sum(a) from 表 where date between#" dtpicker1.value "# and#" dtpicker2.value#"sqlserver
"select sum(a) from 表 where date between'" dtpicker1.value "' and'" dtpicker2.value'"

Answer 3

给你个笨办法：
select sum(a) from 表1 
select sum(b) from 表 2dim c as double
c=a-b

Answer 4

我现在不明白的问题.sum(a) 
如果我用text1.text来显示sum(a)的结果我怎么样做呢?

Answer 5

rs =cnn.excute("select sum(a)as a from 表")
text1.text=rs.fields("a").value

Answer 6

1、"select sum(a) from table1"
2、"select sum(table1.a)-sum(table2.b) as 余额 from table1,table2"
3、"select sum(a) from table1 where date between '" & dtpicker1.value &"' and '" & dtpicker2.value & "'"

Answer 7

不知是不是这样写法?
-----------------------------
 abc = "select sum(金额) from 支出 where 时间 between  #" & DTPicker3.Value & "# and #" & DTPicker4.Value & "#"
 If abc <> "" Then
 Adodc2.RecordSource = abc
 Text1.Text = Adodc2.RecordSource
  Else
  Adodc2.RecordSource = "select * from 支出 order by id"
End If
Adodc2.Refresh
If Adodc2.Recordset.RecordCount = 0 Then
  i = MsgBox("没有符合条件的记录", vbOKOnly + vbInformation, "提示")
End If
---------------------------------
请指教谢谢

Answer 8

1. Rst.Open "Select SUM(InMoney) From Table1",cnt
   Text1.Text = str(Rst.Fields(0).value)
2. Rst.Open "Select SUM(T1.InMoney) - SUM(T2.OUTMoney) From Table1,Table2",cnt
   Text1.Text = str(Rst.Fields(0).value)
3. Rst.Open "Select SUM(OUTMoney) From Table2 where OUTDate Between " & DTPicker1.Value & " And " & DTPicker2.Value,cnt
   Text1.Text = str(Rst.Fields(0).value)

Answer 9

Rst....这些怎么定义啊?
和asp一齐搞到头到昏了.

Answer 10

我现在不明白的问题.sum(a) 
如果我用text1.text来显示sum(a)的结果我怎么样做呢?

Answer 11

text1.text=rs.recordset.fields("a").value