Office中国论坛/Access中国论坛

标题: 请问如何把查询结果赋值给文本框？ [打印本页]

作者: fatmingli 时间: 2013-7-16 21:59
标题: 请问如何把查询结果赋值给文本框？
下面是查询语句，我想把查询结果“发生金额之总计”赋值给窗体1的文本框1，请问要如何做呢？

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

作者: fatmingli 时间: 2013-7-16 22:34
知道了，我思路搞错了，用DSUM就可以了

作者: tmtony 时间: 2013-7-17 00:00
dsum或使用ADO将这个 rs(0) 赋给你的控件.value

作者: zhuyiwen 时间: 2013-7-17 03:12

fatmingli 发表于 2013-7-16 22:34
知道了，我思路搞错了，用DSUM就可以了

dsum或使用ADO将这个 rs(0) 赋给你的控件.value

其实都可以。各有千秋。
用代码实现：

Dim sql As String
sql = "SELECT Sum(威交易记录.发生金额) AS 发生金额之总计 " & _
"FROM 威交易记录 " & _
"WHERE (((威交易记录.业务名称)=""银证转入"" Or (威交易记录.业务名称)=""银证转出""))"
' ADO
' Dim rs As ADODB.Recordset
' Set rs = CurrentProject.Connection.Execute(sql)
' DAO
Dim rs As DAO.Recordset
Set rs = CurrenrDB().OpenRecordset(sql)
Dim retValue
retValue = rs(0)
rs.Close
Set rs = Nothing

复制代码

作者: 竹笛 时间: 2013-7-17 16:57
DSUM 或赋值而给记录集在赋值到文本框

作者: fatmingli 时间: 2013-7-19 16:36
谢谢，受教

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)