vb +SQL2000汇总查询结果,急急

来源：百度知道 编辑：UC知道 时间：2024/05/20 19:45:11
我做的可以汇总全部的就是汇总不了查询出来的结果显示在DATAGRID 不知道怎么做.急求!!!
只有这么点分了.谢谢!!!!

:给你一个例子，
Private Sub Command4_Click() '打开表显示数据
Set Rs4 = New ADODB.Recordset
Dim sSQL As String
sSQL = " Select * from " & Ssql1
Rs4.Open sSQL, Mydb, adOpenKeyset, adLockOptimistic
Set DataGrid1.DataSource = Rs4
DataGrid1.Refresh
Rec1 = 0
Rec1 = Rs4.RecordCount
If Rec1 > 0 Then Command1.Enabled = True
MsgBox "表内有效记录数:" + CStr(Rec1) + "条.", vbOKOnly, "信息提示"
End Sub
-------------------
Ssql1是【表的名称】变量，string. 将你的结果集语句写上，试一下即可。
这个命令按钮能看明白嘛？套用一下，你的程序就通了。

别闲烦！试一下就行！祝：OKOKOK！