请教一个很菜的sql问题。

Question

如何将一条sql语句的查询结果赋值给一个变量？如将select sum(yy) from tmpdb 的结果赋值给一个变量？

Answer 1

可以用
变量=rs(0)
取值也可以 select sum(yy) as 值 from tmpdb 
变量=rs!值

Answer 2

'引用ADO(Microsoft ActiveX Data Objects 2.X Library)
Private Sub Command1_Click()
    On Error GoTo err
    Dim cn As New ADODB.Connection, rs As New ADODB.RecordSet
    '混合验证方式的连接：
    'cn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=登陆用户名;Password=登录密码;Initial Catalog=数据库名;Data Source=服务器别名"
    '集成验证的连接：
    cn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=数据库名;Data Source=服务器别名"
    cn.Open
    rs.CursorLocation=adUseClient'设置客户端游标    rs.Open "select sum(yy) from tmpdb", cn, 3, 2
    Dim ret As Long
    ret = rs(0) '查询结果赋值给一个变量
    Exit Sub
err:
    MsgBox err.Description
End Sub

Answer 3

select sum(yy) as 变量 from tmpdb 
re!变量rs(0)也可