Question

VB链接ACCESS数据库，为什么不能使用movefirst移动到第一条记录啊

我用VB6链接一个ACCESS数据库，代码如下：

Set db = OpenDatabase("1.mdb")
Set rs = db.OpenRecordset("aaa")
book = rs.Bookmark

库里有30多条记录，使用
rs.MoveFirst
不能移动到第一条记录上，而且也不报错。我也没有做出错跳过啊。

求解，通俗点讲，小弟很菜。!

Answer 1

建议用ado对象吧
1.引用 microsoft activex data object 2.x
2.vb代码
Dim adocn As New ADODB.Connection
Private Sub Command1_Click()
If Text1.Text = "" Then

Else
Dim rs As New ADODB.Recordset
Dim strSql As String
strSql = "select * from ss where 学号=" & Trim(Text1.Text)
adocn.Open
rs.Open strSql, adocn, 3, 3
If rs.EOF And rs.BOF Then '查询没有此学号
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Set rs = Nothing
adocn.Close
MsgBox "没有查询到符合您要求的信息!", vbCritical + vbOKOnly, "信息"
Exit Sub
Else
Text2.Text = rs.Fields("姓名")
Text3.Text = rs.Fields("性别")
Text4.Text = rs.Fields("年龄")
Set rs = Nothing
adocn.Close
End If

End If
End Sub

Private Sub Form_Load()
adocn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\aa.mdb;Persist Security Info=False"
End Sub

可以+q 呵呵

Answer 2

for i=1 to rs.recordcount
debug.print rs.fields("字段名")
rs.movenext
next