使用 If rs.RecordCount > 0后，无法显示数据

Question

本帖最后由 knife800 于 2014-07-18 15:17:06 编辑

Answer 1

参考
http://bbs.csdn.net/topics/240079685
http://bbs.csdn.net/topics/310133542

Answer 2

Dim con As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim sql As Stringcon.Open "Provider=SQLOLEDB.1;Password=abc;Persist Security Info=True;User ID=sa;Initial Catalog=Sh;Data Source=192.168.0.30\store" 
sql = "select bm_name,jh,item_subno,item_name,sale_price,sum(qty)qty from pdmx  group by bm_name,jh,item_subno,item_name,sale_price having sum(qty)> 0 "
Set rs = New ADODB.Recordset
rs.Open sql, con, adOpenKeyset, adLockOptimistic
If rs.RecordCount > 0 Then
Set MSHFlexGrid1.DataSource = rs
Else
MsgBox "无记录"
End If

Answer 3

rs.Open sql, con, adOpenKeyset, adLockOptimistic
rs.movelast
rs.movefirst
If rs.RecordCount > 0 Then

Answer 4

dim con as new adodb.connection
con..CursorLocation = adUseClient