vb数据库ado问题

来源：百度知道 编辑：UC知道 时间：2024/05/18 01:35:06
我现在有一个表，表中有5条记录
在设计数据库的时候我添加了一个“下一条”的按钮
我怎么才可以实现我单击了后他就自动显示下一条记录呢?
详细点哦

在建立好正确的连接（与数据库）后
我假设有这样一个表studentmark,所在的ODBC为mydatename
方法一，在[工程]菜单中选[部件]，找到microsoft ado date control 6.0(oledb)，选择。点击确定。就会在工具箱中出现ado控件，添加到窗体上。
在窗体中，右键单击adodc1,选择adodc属性,在其中的通用选项卡中单选【使用ODBC数据资源名称】，在下拉列表框中选择mydatename
form1_load()中
me.adobc1.recordsource="select*from studentmark"
如果你用text文本框
set me.text1.datesource=me.adodc1
……
set me.text5.datesource=me.adodc1
me.text1.datefield=字段名
……
me.text5.datefield=字段名
这样可以省略下一步按钮了
方法二（直接贴代代码）
首先，在[工程]菜单中选[引用]
选Microsoft ActiveX Date Object 2.5 Library(不同版本可能不同）
Private sub form_load()
dim rs as new recordset
dim con as new connection
con.open "DSN=mydatename" 建立连接
rs.open "select*from studentmark",con 建立连接
rs.movefirst 移动到第一条
print rs.fields(0).value 第一个字段名的值
end sub
private sub command1_click()
me.cls