VB查询更新功能的代码.docVIP

因为要连接数据库，所以先用Access建一个名为Stu的数据库，在其中建立一张表名为Student，如下所示： 下面开始VB界面的设计： （其中出生日期的DTPicker控件，是通过添加如下所示的两个部件，从工具箱中选择得来的） 其中要添加的ADO控件的添加方式我在“登录”那个文档中有说了，和这个过程类似 好了，库建好，界面设计好之后，我们就开始，界面与库的连接操作了，我所说的是代码连接的这种方式，当然也有通过控件直接就可以连接的，那很简单！而且通过连接代码中设计相对路径（app.path） 开始的代码的演说： 先建一个模块（module）： 这里的”flag” 可有大用处呢，在设计“添加”，“修改”，“删除”，“保存”时会用到，大家看到那后，可要仔细体会了。 对数据库的表进行操作，当然得先打开库，打开表了 （fz是我定义的一个函数，要想显示表中的数据当然得把表字段的内容赋到Text中了。所以这句话就是下面大家看到的fz函数的解释。） 再说查询，这个代码简单： 几乎全是调用recordset的方法： 很简单吧，下面来看编辑处的代码： 首先说明一点，想把text的内容送入表中，即，rs.fileds “**” 作左值了。这里我们“添加”，“修改”的最终决定权全给了“保存”。代码如下：定义一个bc 函数，在保存的clicked事件中可直接调用，下面的fz 函数即是我开始提到的那个fz。 要把这两个函数的定义放到最顶上。 然后： 好了大功告成！