首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

VB中dao组件返回rs.recordcount前后两个数据为什么不一样,请

2012-03-20 
VB中dao组件返回rs.recordcount前后两个数据为什么不一样,请高手指点?Private Sub Command1_Click()Dim db

VB中dao组件返回rs.recordcount前后两个数据为什么不一样,请高手指点?
Private Sub Command1_Click()

Dim db As Database
Dim rs As Recordset

Set db = DBEngine.OpenDatabase(App.Path & "\test.xls", False, False, "Excel 8.0;")
SQL = "select * from [sheet1$]"
Set rs = db.OpenRecordset(SQL)
Print App.Path

Print "rs.RecordCount=", rs.RecordCount
Print rs.Fields.Count

For i = 0 To 5
  Print rs.Fields("姓名")
  rs.MoveNext
Next

rs.MoveFirst

Print "rs.RecordCount=", rs.RecordCount

Do
  Print rs.Fields("分数")
  rs.MoveNext
Loop Until rs.EOF

Print rs.EOF


End Sub

[解决办法]
真是个悲催的方法:)

The RecordCount property doesn't indicate how many records are contained in a dynaset-, snapshot-, or forward-only–type CdbRecordset object until all records have been accessed.
Once the last record has been accessed, the RecordCount property indicates the total number of undeleted records in the CdbRecordset or CdbTableDef object.

热点排行