VB 将数据库里的某列数的总和

不知道你现在显示在界面上的数据是"查询"的结果还是整个数据库的记录?

要显示"单价"的合计,用 SQL语句就可以了.如:

假定数据表名:商品信息,字段名:单价

Dim rs As ADO.Recordset

Dim mySQL As String

'如果没有查询条件

mySQL="Select Sum(单价) From 商品信息"

'如果有查询条件

mySQL="Select Sum(单价) From 商品信息 WHERE ("+查询条件+")"

'adoConn 是数据库的连接

rs.Open mySQL,adoConn,adOpenDynamic, adLockOptimistic

'要显示的文本框为 Text1

Text1=rs(0)

要保存数据到数据库，VB自带的功能是无法完成的，除非你用普通的文件保存数据。

用ADO相对简单，对于你的问题只要一个Connection对象。用它连接数据库，用它的Execute方法来执行更新数据的SQL语句。

如果你的输入跟数据库字段直接对应，也可以使用数据绑定的办法，用ADODC控件获取数据，并将文本框跟ADODC绑定。

列数是自动的，就是记录集的字段数

'Ctrl+t找Microsoft DataGrid Control....

'菜单"工程"->"引用" 找 Microsoft ActiveX Data Object....

Dim cn As New ADODB.Connection

Dim rst As New ADODB.Recordset

Dim SqlStr As String

cn.Open "Provider=Microsoft.Jet.OLEDB.4.0Data Source=" &App.Path &"\db1.mdbMode=ReadWritePersist Security Info=FalseJet OLEDB:Database Password=111"

SqlStr = "Select * From 某个表"

rst.CursorLocation = adUseClient

rst.Open SqlStr, cn, adOpenDynamic, adLockOptimistic, adCmdText '打开记录集

Set DataGrid1.DataSource = rst '给DataGrid修改数据源

---