使用数据库 当打开数据库,建立Recordset 记录集后,便可浏览、删除、添加、查找数据库中的内容 使text显示数据如下: Text1.caption=rs.fields(0) Text1(I).caption=rs.fields(I) Recordcount 属性 Recordcount 属性用来记录目前数据记录的数量,如判断数据库是否为空: If rs.recordcount > 0 then End if
删除记录(二) for I = 0 to 11 label(I).caption = rs.Fields(I) & "" next Exit Sub handle: MsgBox "该记录无法删除!!!" End Sub On error goto 语法 目的是为了程序运行时,一旦发生错误,即可通过该程序代码,将程序运行流程切换到适当位置,进行适当处理,避免死机 On error goto 的程序代码编写位置,必须在发生错误的程序代码之前,因此,常常将它写在程序或某个程序功能模块的最前面 添加记录 向数据库中添加记录比较麻烦一点,大致分为三步:首先,用AddNew方法向数据库添加一个新的空白记录;其次,将要输入的数据分别赋到数据库的各个字段中;最后,用updata的方法,把记录写到数据库中去