请教 如何得到聚合函数返回值，在textbox上显示

Question

select count(bb.数量)  from bb where  日期>='2010-9-1' and 日期<= '2010-9-8'这条语句在sql查询分析器里运行后能得到9.1-9.8这期间的总数量在vb 里，如何得到这个数量？并在textbox上显示呢？

Answer 1

Option Explicit
Dim LoadSql As String
Dim ConnSql As String
Dim LoadRs As New ADODB.Recordset
Dim SqlConn As New ADODB.ConnectionPrivate Sub cmdLoadData_Click()
On Error GoTo eNext:
    If SqlConn.State = 1 Then SqlConn.Close
    ConnSql = "Provider=OraOLEDB.Oracle.1;Persist Security Info=True;User ID=iqms;Password=iqms;Data Source=iqora"    SqlConn.ConnectionString = ConnSql
    SqlConn.Open
    
    LoadSql = "select count(bb.ÊýÁ¿) as TotalQty from bb where ÈÕÆÚ>='2010-9-1' and ÈÕÆÚ<= '2010-9-8'"
    
    If LoadRs.State = 1 Then LoadRs.Close
    LoadRs.Open LoadSql, SqlConn, adOpenKeyset, adLockOptimistic
    
    If Not LoadRs.EOF Then
        TextBox.Text = IIf(IsNull(LoadRs!TotalQty, 0, LoadRs!TotalQty))
    Else
        'Your function code
    End If
    Exit Sub
eNext:
    MsgBox Err.Description, vbCritical, Err.Number
End Sub