如何:VB“ADO对象”的方法,access数值汇总求和?急!急!急!

knownquantity 2003-04-08 04:05:41
我用的是VB!由于MSDN不全,而且看不太懂,所以不得不请教诸位了!
这是我的毕业设计,今天需要做完,还要仰仗诸位大侠了!拜托。
Set aA = New ADODB.Connection '实例化
Set tB1 = New ADODB.Recordset '实例化
Set tB2 = New ADODB.Recordset '实例化
aA.Provider = "microsoft.jet.oledb.4.0"
aA.Open "data source=" & App.Path & "\data\familyaccount.mdb"
tB1.Open "lsxj", aA, adOpenDynamic, adLockOptimistic
Set MSHFlexGrid.DataSource = tB1

tb1=aa.execute "select sum(金额) as ddd from lsxj group by 流水帐"
Text1 = tB1.Fields("ddd").Value

如何把ACCESS中lsxj表中“金额”汇总(求和)并在vb的text1中显示出来呀?
如上语句抱错? 急!!!
...全文
104 点赞 收藏 3
写回复
3 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
LichKingSZ 2003-04-08
...晕...刚才没有注意看,你要使用GROUP BY,那SELECT 后面只能加 '流水帐'
回复
Cooly 2003-04-08
Set aA = New ADODB.Connection '实例化
Set tB1 = New ADODB.Recordset '实例化
Set tB2 = New ADODB.Recordset '实例化
aA.Provider = "microsoft.jet.oledb.4.0"
aA.Open "data source=" & App.Path & "\data\familyaccount.mdb"
tB1.Open "lsxj", aA, adOpenDynamic, adLockOptimistic
Set MSHFlexGrid.DataSource = tB1

tB2.open "select sum(金额) as ddd from lsxj", aA, adOpenDynamic, adLockOptimistic
Text1 = tB2.Fields("ddd").Value
回复
LichKingSZ 2003-04-08
set tb1=aa.execute "select sum(金额) as ddd from lsxj group by 流水帐"
回复
相关推荐
发帖

1187

社区成员

VB 数据库(包含打印,安装,报表)
申请成为版主
帖子事件
创建了帖子
2003-04-08 04:05
社区公告
暂无公告