vb+access 查询结果用text控件显示 该怎么做？

Question

vb+access 以前用的都是查询结果显示到datagrid中。代码是：OpenTable frmMDI.adoGuest, "SELECT * FROM Guest order by bookno desc"
dtgRoomQueryRefresh现在我遇到问题了，我要把数据库中的某个字段求和也就是SUM（），这个我也会用，
但是我不知道怎么样才能把查询求合后的结果通过一个text控件来显示，请大家帮帮我。

Answer 1

直接赋值 text1.text="" 或text1.datasource试试

Answer 2

SQL = "select * from codesize " 
r.Open SQL, cN 
 
Do While Not r.EOF 
  TEXT1= Trim(r!tt & " ") 
  ......
r.MoveNext 
Loop 
r.Close

Answer 3

Dim r As New ADODB.Recordset
DIM cN As New ADODB.Connection
CN.OPEN "连接字符"
TEXT1==""
SQL = "select sum(字段) as tt  from codesize " 
r.Open SQL, cN 
if not (r.eof  and r.bof ) then 
  TEXT1= Trim(r!tt & " ") 
end if r.Close