设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 7008|回复: 6
打印 上一主题 下一主题

[查询] 请问如何把查询结果赋值给文本框?

[复制链接]
跳转到指定楼层
1#
发表于 2013-7-16 21:59:51 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
下面是查询语句,我想把查询结果“发生金额之总计”赋值给窗体1的文本框1,请问 要如何做呢?

SELECT Sum(威交易记录.发生金额) AS 发生金额之总计
FROM 威交易记录
WHERE (((威交易记录.业务名称)="银证转入" Or (威交易记录.业务名称)="银证转出"));

分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
2#
 楼主| 发表于 2013-7-16 22:34:52 | 只看该作者
知道了,我思路搞错了,用DSUM就可以了

点评

对的  发表于 2013-7-16 23:30

点击这里给我发消息

3#
发表于 2013-7-17 00:00:49 | 只看该作者
dsum或 使用ADO将这个 rs(0) 赋给你的控件.value

点击这里给我发消息

4#
发表于 2013-7-17 03:12:37 | 只看该作者
fatmingli 发表于 2013-7-16 22:34
知道了,我思路搞错了,用DSUM就可以了
dsum或 使用ADO将这个 rs(0) 赋给你的控件.value

其实都可以。各有千秋。
用代码实现:
  1. Dim sql As String
  2. sql = "SELECT Sum(威交易记录.发生金额) AS 发生金额之总计 " & _
  3.     "FROM 威交易记录 " & _
  4.     "WHERE (((威交易记录.业务名称)=""银证转入"" Or (威交易记录.业务名称)=""银证转出""))"

  5. ' ADO
  6. ' Dim rs As ADODB.Recordset
  7. ' Set rs = CurrentProject.Connection.Execute(sql)

  8. ' DAO
  9. Dim rs As DAO.Recordset
  10. Set rs = CurrenrDB().OpenRecordset(sql)

  11. Dim retValue
  12. retValue = rs(0)

  13. rs.Close
  14. Set rs = Nothing
复制代码
5#
发表于 2013-7-17 16:57:44 | 只看该作者
DSUM 或赋值而给记录集在赋值到文本框
6#
 楼主| 发表于 2013-7-19 16:36:17 | 只看该作者
谢谢,受教
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-11-11 05:46 , Processed in 0.088914 second(s), 34 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表