如何用VB对ACCESS中一字段做加法
答案:3 悬赏:70 手机版
解决时间 2021-03-08 12:38
- 提问者网友：动次大次蹦擦擦
- 2021-03-07 11:59
ACCESS数据库中一个名为“金额”的字段，想利用VB对该数据库中该字段进行相加，并把结果显示在TEXT控件中，麻烦高手门能给出个范例代码，谢谢了
最佳答案
- 五星知识达人网友：一叶十三刺
- 2021-03-07 12:26
用adodb连接
Dim rs As New ADODB.Recordset
Dim Conn As ADODB.Connection
Dim ConnectionString As String
Dim sql As String
Dim s,m As Integer
Set Conn = CreateObject("ADODB.Connection")
ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\数据库名.mdb;Persist Security Info=False;"
Conn.Open ConnectionString
sql = "select * from 表名 "
rs.Open sql, Conn, 3, 3
Do While Not rs.EOF
m=Int(rs.Fields(金额所在字段))
s=s+m
Loop
Text1.Text=s
Dim rs As New ADODB.Recordset
Dim Conn As ADODB.Connection
Dim ConnectionString As String
Dim sql As String
Dim s,m As Integer
Set Conn = CreateObject("ADODB.Connection")
ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\数据库名.mdb;Persist Security Info=False;"
Conn.Open ConnectionString
sql = "select * from 表名 "
rs.Open sql, Conn, 3, 3
Do While Not rs.EOF
m=Int(rs.Fields(金额所在字段))
s=s+m
Loop
Text1.Text=s
全部回答
- 1楼网友：怙棘
- 2021-03-07 15:37
dim s as string
s= select sum("列名”) from 表名
text1.text=s
- 2楼网友：詩光轨車
- 2021-03-07 13:58
Set coon = CreateObject("ADODB.Connection")
Connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\数据库.mdb;"
coon.Open Connstr
SQL = "select sum(金额（列明）) as zonghe from sellbook where 条件"
Set rs = coon.Execute(SQL)
text1=zonghe
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯