vb.net数据汇总,vb操作数据库

vb.net中怎么对listview字段中的数据进行求和

循环相加即可

成都创新互联提供高防物理服务器租用、云服务器、香港服务器、四川服务器托管等

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim sum As Double = 0

For i = 0 To ListView1.Items.Count - 1 '

sum += Val(ListView1.Items(i).SubItems(2).Text)

Next

MsgBox("消费金额："  sum)

End Sub

需要统计多个excel文件中的数据，想使用Vb.net(vs2010)来变成实现，如何实现

不知道你是怎么百度的，你的百度关键词应当选择“VB 统计多个excel文件中的数据”。

1、数据透视表是用于在excel中不通过编程就实现汇总数据的目的，既然你都想编程了，数据透视表也就失去意义。

2、ACCESS更是无稽之谈，多此一举。

3、Excel文件不管多少，最重要的是每个文件要有统一的格式，这样就有了编程的前提。

实现方法是：

1、让程序能找到所有excel文件

2、用子过程读取每一个文件，获得所需要的数据，进行汇总

3、所有数据进行汇总，得到结果。

VB.NET数据统计

Dim cn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source="  Application.StartupPath  "\DB\SJ.mdb; Persist Security Info=False;Jet OLEDB:database password=25991908")

Dim adp As New OleDb.OleDbDataAdapter("select sum(支出金额) as 支出金额 from zcb where 支出时间 like '"  TextBox1.Text  "%' ", cn)

Dim db As New DataTable

adp.Fill(db)

TextBox2.Text = db.Rows(0).Item("支出金额")

在vb.net系统中怎么做数据的统计

需要为你提供一份适用于初学者的[vb.net数据统计系统]代码么,

进一步要求可以联系我们,,联系我们需要提供你的问题和电子邮件,有机会可以帮你，绝对救急,请用BaiduHi为我留言,

此回复针对所有来访者和需求者有效,

ES:F6E0FEAC558E90FB7D14E2AD022C0DD7

vb.net中 listbox内所有数据的和

Dim a(14) As Integer

For i = 1 To 14

a(i) = Int(Rnd() * 90) + 10

ListBox1.Items.Add(a(i))

Next

Dim b(14) As Integer

Dim sum As Integer = 0

For i = 1 To 14

b(i) = ListBox1.Items.Item(i - 1)

sum = sum + b(i)

Next

Dim avg As Double

avg = sum / 14

MsgBox(avg)

我写的可以，你可以把代码贴出来看看

vb.net 统计时间段内数据库字段金额和

加一个按钮，代码如下：

Imports System.Data.OleDb

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim myConn As OleDbConnection = New OleDbConnection '声明并实例化数据库连接对象

Dim myadpt As New OleDbDataAdapter '声明并实例化数据适配器对象

Dim myds As New DataSet '声明并实例化记录集对象

Dim myConnection As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" Application.StartupPath "\DB\SJ.mdb" '数据库连接字符串

myConn.ConnectionString = myConnection '设置数据库连接对象的数据库连接字符串属性

myConn.Open() '启动数据库连接

myadpt.SelectCommand = New OleDbCommand '声明数据适配器的查询命令对象

myadpt.SelectCommand.CommandText = "select sum(支出金额) as 支出金额 from zcb where 支出时间 like '" Text1.Text "%' " '给数据适配器的查询命令属性赋值

myadpt.SelectCommand.Connection = myConn '设置据适配器与数据库连接对象的连接

myadpt.Fill(myds)

Text13.Text = myds.Tables(0).Rows(0)("支出金额")

End Sub

End Class