DataSource 绑定代码,也可以直接在设计窗体上修改。
Adodc1.RecordSource = "select * from jishijilu" Adodc1.Refresh Set Text2.DataSource = Adodc1 Text2.DataField = "shijian"
下一条按钮代码
程序代码:
if Adodc1.eof then msgbox "已是最后一条记录,无效操作!" else adodc1.recordset.movenext endif
代码随手写的,可能有点错误,自己调试一下