vb怎么把数据保存到程序文件里 (vb数据怎样保存到excel)

说到VB程序开发，少不了数据的存取这个环节，那么如何将数据存到数据库呢？这就是我们今天要讲的内容，首先要通过ADO控件来助我们完成所有的操作，具体思路如下：

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

一、引用ADO方法，新建一个应用工程，“工程”菜单>“引用”，

打到 Microsoft ActiveX Data Objects 2.8 Library 控件，勾选后“确定”把引用到我们的工程里面

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

创建一个模块，并打开代码编辑器，在“通用”区域声明两个变量，一个是数据库连接对象，另一个是记录集对象，Dim Db As New ADODB.Connection '声明新的 ADO 连接类模块Dim Rs As New ADODB.Recordset '声明新的 ADO 记录集类模块

下面还是在“通用”区域编写打开数据库过程的源码

Function OpenConn() As Integer'创建打开数据库过程On Error Resume Next'忽略错误Dim DataPath As String '声明数据库路径DataPath = App.Path & "\Data.mdb" '获取数据库路径If Dir(DataPath) = "" Then '判断数据库是否存在MsgBox "未找到数据库", 48, "错误"Exit FunctionEnd IfDim CnStr As String '声明数据库连接语句'下面是连接语句CnStr = "Provider=Microsoft.Jet.OLEDB.4.0;"CnStr = CnStr & "Data Source=" & DataPath '这里 DataPath 是数据库路径CnStr = CnStr & ";Jet OLEDB:Database Password=" '如果数据库有密码，Password= & 在这里接上。CnStr = CnStr & ";Persist Security Info=False;"Set Db = New ADODB.Connection '设置连接对象Db.Open CnStr '打开数据库连接If Err.Number <> 0 Then '如果发生错误MsgBox Err.Description, 48, "连接错误"' 消息框提示错误原因Exit Function '退出过程End IfOpenConn = 1 '如果没有错误，打开成功则返回 1End Function '结束打开过程

接着继续写下关闭数据库的过程，因为这些都需在整个程序中使用，所以都写在通用模块中，如下：Sub CloseConn() '关闭数据库过程On Error Resume Next '忽略错误Db.Close '关闭数据库Set Db = Nothing '清除连接对象End Sub

这节数据库操作前期工作已部署好了，一下节就可以在窗口保存数据了，请继续关注。