Question

我用VB编程，用DataGrid和Adodc连接了Access数据库，想将每个字段（列）中的数据加和，请求帮助！！！

Answer 1

在读数据时，在SQL 用count试试看效果~

追问

我要求和，不是求个数，您能不能具体给举个例子，是用sum吗？？？

追答

sorry ,太激动了，应该是用SUM函数，函数用法如下：
SELECT SUM(column_name) FROM table_name

追问

为什么我用这个语句时，系统总是提醒我缺少case语句啊？
要一起用吗？怎么用啊！！！谢谢你啊~

Answer 2

dim rs as ADODB.recordset
dim sum as double
If rs.BOF <> True Then rs.MoveFirst
Do While Not rs.EOF
sum=sum+rs.Fields(0)
rs.MoveNext
Loop

追问

第三句就出错了，麻烦您再给看看，我追加悬赏！！！

追答

你不会没连接吧
sql=“select * from 你的表名'
Set rs = TransactSQL(sql)

Public Function TransactSQL(ByVal sql As String) As ADODB.Recordset
Dim cont As ADODB.Connection
Dim rs As ADODB.Recordset
Dim strConnection As String
Dim strArray() As String
Set cont = New ADODB.Connection
Set rs = New ADODB.Recordset
On Error GoTo transactsql_error
strConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;data source=" & App.Path & "\datainuse.mdb;"
strArray = Split(sql)
cont.Open strConnection
If StrComp(UCase$(strArray(0)), "select", vbTextCompare) = 0 Then
rs.CursorLocation = adUseClient
rs.Open Trim$(sql), cont, adOpenKeyset, adLockPessimistic
Set TransactSQL = rs
iflag = 1
Else
cont.Execute sql
iflag = 1
End If
transactsql_exit:
Set rs = Nothing
Set cont = Nothing
Exit Function
transactsql_error:
MsgBox "数据库连接错误!:" & Err.Description
iflag = 2
Resume transactsql_exit
End Function