conn.Open "DSN=hj;database=hj" Set cmd.ActiveConnection = conn sql_where = "select * from 个人信息表 "
cmd.CommandText = sql_where res.Open cmd, , adOpenStatic, adLockOptimistic, adCmdText If res.RecordCount = 0 Then MsgBox "没有找到匹配的数据" flex_inquire.Clear conn.Close 'Set res = Nothing Exit Sub End If flex_inquire.Rows = res.RecordCount
这个问题我没注意过,帮你顶!
Set cmd.ActiveConnection = conn
sql_where = "select * from 个人信息表 "
cmd.CommandText = sql_where
res.Open cmd, , adOpenStatic, adLockOptimistic, adCmdText
If res.RecordCount = 0 Then
MsgBox "没有找到匹配的数据"
flex_inquire.Clear
conn.Close
'Set res = Nothing
Exit Sub
End If
flex_inquire.Rows = res.RecordCount
Set flex_inquire.Recordset = res
flex_inquire.Rows = res.RecordCount
这行是肯定有问题,应该改为
flex_inquire.Rows = res.RecordCount+1
但不应该仅限500行,我有个表也是用ACCESS的,4000多行都没问题,打个SP5试一下吧
Set flex_inquire.Recordset = res
前面添加一行,res.movelast试试看。