请问如何把查询结果赋值给文本框？

fatmingli

下面是查询语句，我想把查询结果“发生金额之总计”赋值给窗体1的文本框1，请问 要如何做呢？

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

fatmingli

谢谢，受教

竹笛

DSUM 或赋值而给记录集在赋值到文本框

zhuyiwen

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. 
   
6. ' ADO
   
7. ' Dim rs As ADODB.Recordset
   
8. ' Set rs = CurrentProject.Connection.Execute(sql)
   
9. 
   
10. ' DAO
    
11. Dim rs As DAO.Recordset
    
12. Set rs = CurrenrDB().OpenRecordset(sql)
    
13. 
    
14. Dim retValue
    
15. retValue = rs(0)
    
16. 
    
17. rs.Close
    
18. Set rs = Nothing
    

复制代码

tmtony

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

fatmingli

知道了，我思路搞错了，用DSUM就可以了