首先建立新的工程Form1,制作一张有数据的Microsoft Office Access ,在Form1里添加DataGrid1,并且和数据库建立好连接
创建Command1,命名为显示,编译为
Private Sub Command1_Click()
Dim ssql As String


ssql = "SELECT * FROM course order by cno"


Set rst = Nothing
rst.open ssql, cn, adOpenKeyset, adLockOptimistic


Set DataGrid1.DataSource = rst
DataGrid1.Refresh

End Sub

为的是运行Form1时,单击显示,在DataGrid1中显示Microsoft Office Access数据表中的数值,这里一切都没问题,运行正常.
当然要在最上面要定义
Option Explicit
Dim cn As New ADODB.Connection
Dim rst As New ADODB.Recordset

还有要建立数据库的连接内容
Private Sub Form_Load()
Dim constr As String
constr = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=E:\下载资源\vb1\新建文件夹 (4)\vb数据库操作1\vb数据库操作1\学生管理.mdb"
cn.open constr
Call Command1_Click
End Sub

以上一切正常.


下面建立Label1,命名为cno,在建立Text1,变为空,接着建立Command2和Command3,分别定义为向上和向下,编译
Private Sub Command2_Click()
If Not rst.BOF Then
rst.MovePrevious
End If
End Sub

Private Sub Command3_Click()
If Not rst.EOF Then
rst.MoveNext
End If

End Sub

到这里,我真正想要做的事是,让Text1随着单击向上和向下,显示Microsoft Office Access数据表中cno这一项数值
也就是说我单击显示后,DataGrid1显示数据,同时Text1显示第一行cno的数据,随着单击向上和向下,为别显示上一行或下一行的数据
这里不明白,请大虾门帮忙~!

[此贴子已经被作者于2007-6-21 13:38:31编辑过]

等待高手.....

Set rst = Nothing
改为SET RST = NEW ADODB.Recordset

试了～～没有显示
你可能没明白我的意思～
按你的做，我把附件上传

而且我现在已经修改了，直接运行就可以显示数据库的内容，不用点显示了～
上传绝对没毒，下载后要修改数据库连接途径

[此贴子已经被作者于2007-6-21 19:23:58编辑过]

按你的意思给你修改了一下。应该是这样吧？

补充说明，数据库连接也给你改到本程序的目录下，这样便于调试。

就是这样
谢谢～！