7,763
社区成员
发帖
与我相关
我的任务
分享
Private Sub Form_Load()
Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset
cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\11.mdb;Persist Security Info=False"
cnn.CursorLocation = adUseClient
cnn.Open
rst.Open "select sum(b) from itb1 having a<=3", cnn, adOpenStatic, adLockOptimistic
Set DataGrid1.DataSource = rst
End Sub