vb数据库中（access）中ado连接， movefirst的用法！！
为什么我用了该语句，它不指向第一条记录，有时候跑到别的地方了如：DimRs1AsRecordsetDimDddAsDatabaseSetDdd=OpenDatabase(...
为什么我用了该语句，它不指向第一条记录，有时候跑到别的地方了
如：
Dim Rs1 As Recordset
Dim Ddd As Database
Set Ddd = OpenDatabase(App.Path + "\zywj\sjk001\sjk", False, False, "MS Access;PWD=00072323")
Set Rs1 = Ddd.OpenRecordset("kt")
Rs1.MoveFirst
Me.Label3.Caption = "第 " + Str(Rs1.Fields(0)) + " 题"
Me.Label4.Caption = "共 " + Str(Rs1.RecordCount) + " 题"
Me.Label5.Caption = "题号：" + Str(Rs1.Fields(0))
Me.Label6.Caption = "题型：" + Rs1.Fields(2)
Me.Text2 = Rs1.Fields(1)
Me.Label7 = "正确答案：" + Rs1.Fields(3)
有时候跑到20几位了
请高人指点！！ 展开
如：
Dim Rs1 As Recordset
Dim Ddd As Database
Set Ddd = OpenDatabase(App.Path + "\zywj\sjk001\sjk", False, False, "MS Access;PWD=00072323")
Set Rs1 = Ddd.OpenRecordset("kt")
Rs1.MoveFirst
Me.Label3.Caption = "第 " + Str(Rs1.Fields(0)) + " 题"
Me.Label4.Caption = "共 " + Str(Rs1.RecordCount) + " 题"
Me.Label5.Caption = "题号：" + Str(Rs1.Fields(0))
Me.Label6.Caption = "题型：" + Rs1.Fields(2)
Me.Text2 = Rs1.Fields(1)
Me.Label7 = "正确答案：" + Rs1.Fields(3)
有时候跑到20几位了
请高人指点！！ 展开
2个回答
展开全部
应该是第一条,只是你的记录是不是没有排序导致乱序,一般数据库有这种情况,录入的数据不是从后添加的.把kt建一个查询来调用试试呢.
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
威孚半导体技术
2024-08-19 广告
威孚（苏州）半导体技术有限公司是一家专注生产、研发、销售晶圆传输设备整机模块（EFEM/SORTER）及核心零部件的高科技半导体公司。公司核心团队均拥有多年半导体行业从业经验，其中技术团队成员博士、硕士学历占比80%以上，依托丰富的软件底层...
点击进入详情页
本回答由威孚半导体技术提供
展开全部
VB......10多年前学的。.帮不了你~~~路过~~希望你早日找到答案了。
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
