vb 数据库

说到VB程序开发，数据访问是必不可少的，那么如何在数据库中存储数据呢？这就是我们今天要讲的内容。首先要通过ADO控件帮助我们完成所有的操作。具体思路如下:

先引用ADO控件。必须打开数据库。存取数据操作。完成后再关闭数据库

首先，引入ADO方法创建一个新的应用项目，并选择”项目”菜单>；“报价”，

调用Microsoft ActiveX DataObjects 2.8库控件，检查它并单击“确定”将其引用到我们的项目中。

二、打开数据库，这里我们以Access的MDB数据库为例。在所有数据操作中，必须首先打开数据库。为了方便后期工作，我们写一个打开数据库的过程，需要后期调用。

创建一个模块，打开代码编辑器，在“通用”区域声明两个变量，一个是数据库连接对象，一个是记录集对象，
dimdb as new adodb。连接& # 39；将新的ADO连接类模块
dim RS声明为新的ADODB。记录集& # 39；声明一个新的ADO记录集类模块

下面是在“常规”区域打开数据库的过程的源代码。

函数OpenConn()为整数& # 39；在错误恢复时创建一个打开的数据库过程
[ Next & # 39；忽略错误
Dim数据路径为字符串& # 39；声明数据库路径
DataPath = App。路径& & # 34；\ Data.mdb & # 34'如果Dir(data path)= & # 34；"然后& # 39；判断数据库中是否有
msgbox & # 34；找不到数据库& # 34；, 48, "错误& # 34；
Exit函数
End If
Dim CnStr As String & # 39；声明数据库连接语句& # 39；下面是连接语句
CnStr = & # 34；提供商=微软。Jet . OLEDB.4.0"
CnStr = CnStr & & # 34；数据源= & # 34；&数据路径& # 39；这里的数据路径是数据库路径
CnStr = CnStr & # 34；；Jet OLEDB:数据库密码= & # 34；'如果数据库有密码，Password= &在这里连接。CnStr = CnStr & & # 34；Persist安全信息= False"
Set Db = New ADODB。连接& # 39；设置连接对象
Db。打开CnStr & # 39如果出现错误，则打开数据库连接

然后继续写下关闭数据库的过程，因为这些都需要在整个程序中用到，所以写在通用模块中，如下:
Sub close conn()& # 39；出错时关闭数据库进程
，继续下一步& # 39；忽略错误
Db。关闭& # 39；关闭数据库
Set Db = Nothing & # 39；清除连接对象
End Sub

本次数据库操作的前期工作已经部署完毕，下一节可以在窗口保存数据，请继续关注。