VB与Access数据库相关操作.doc

VB与数据库： VB访问数据库的方式很多，也很灵活，这是VB的一大优点，也体现了VB本身自由环境的精神，提供了简捷方便的界面，更重要的是提供了很多有用的控件，我们可以直接使用控件就可以完成很多复杂的设计。VB本身是面向对象的的语言，所以操作起来也非常简单，特别是对控件的使用比起VC++来相当的方便。 VB支持的Access格式是97格式的，可以通过VB提供的环境建立数据库这种数据库直接可以用于VB程序设计，不需要转换格式。建库过程为：外接程序-可视化数据管理器-文件-新建-Microsoft Access-Version 7.0 MDB(7)…在接下来弹出的文件框中写好数据库的名称和选择数据库的存储位置，最后点击保存，这样一个数据库就建立好了。视图如下所示： 接下来要建立自己的表，鼠标选中Properties如上，右键-新建表 操作完上面这个表后点击生成表，一个表就建立了.按照同样的方式可以建立其他的表以及查询，在做到有关多表查询的程序设计是离不开建立一个查询这种操作，在sql server里面还可以通过新建视图的来达到相同的目的，但是在Access里面没有视图。接下来是要建立程序与数据库的联系，我把它分为使用控件和不使用控件两类。 第一类：不使用控件 ●直接定义 Database 和 Recordset对象，不过使用之前要添加库：Microsoft DAO 3.51 Object Library 。在打开的VB界面上 按工程-应用- Microsoft DAO 3.51 Object Library就可以添加成功。以下是建立连接的关键代码。 下面这两句属于模块级变量，在工程管理器中的右键-添加-添加模块添加模块 Public db As Database Public rsData As Recordset 接下来在程序的任何地方都可以使用以下代码打开数据库和数据库表 Set db = OpenDatabase(“DatabasePath”) 打开数据库 DatabasePath是数据库所在位置的路劲可以是绝对和相对路劲 Set rsData = db.OpenRecordset(TableName) 打开数据库表 TableName是数据库中存在的一个表名 通过以下代码可以关闭数据库表和数据库，一般是先关闭数据库表再关闭数据库本身： rsData.close db.close 这样就可以在程序的其他地方操作数据库了。 直接通过数据环境设计器（Data Environment）来连接数据库,在属性窗口中随便选中一个东西，右键-添加- Data Environment 就会弹出如下的界面： 选中Connetion1右键-属性将出现如下的界面 这个界面有点熟悉，很像Adodc的连接方式，其实原理是一样的，按照上面的方式操作就可以了。接下来再次选中Connection1,右键-添加命令就会出现Command1,然后选中Comaand1右键-属性就会出现下面的界面： 在上表中数据库对象选择表，然后再对象名称中就会自动出现数据库中的表选择自己需要的表，点击应用-确定就OK了。然后展开Comaand1就可以看到表的各个属性列的信息了。 这样就可以通过一种简捷的方式建立窗体上的控件与数据库的表的联系了，在这里甚至不用自己画控件，新建一个空白窗体，同时打开窗体和上面的页面，选中Command1一直按住鼠标左键拖动到新建窗体上，这样窗体上就会有相应的控件出现，这些控件已经和数据库表连接好了，只要调整一下位置和大小就可以了，不需要手动连接。如下图所示： 上面已经完成与数据库的“通信“了，接下来程序怎么写呢，下面是基于上面操作操作数据库的代码： 使用DataEnvironment1.rsCommand1可以操作表中数据，它作为一个记录集对象 Private Sub CmdNext_Click() 将记录指针向后移动 If DataEnvironment1.rsCommand1.EOF Then DataEnvironment1.rsCommand1.MoveFirst Else DataEnvironment1.rsCommand1.MoveNext End If End Sub 到这里突然想到VB还为我们提供了一个更快的生成完整“窗体”的功能。通过“外接程序”打开一个数据库之后，在“实用程序”程序里面有个“数据窗体设计器”，如下图所示 单击“数据库窗体设计器”出现下面界面 完成界面的内容设计后，单击“生成窗体”，这样一个窗体就诞生了，而且还有添加删除和修改等功能，几乎是“完美的”了。基于上述设置所生成的窗体如下 第二类：使用控件 使用Da