vb.net 存储 vb如何存储数据_数据库


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

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

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


vb.net 存储 vb如何存储数据_数据库连接_02


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


vb.net 存储 vb如何存储数据_数据库连接_03


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

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


vb.net 存储 vb如何存储数据_控件_04


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

Function OpenConn() As Integer'创建打开数据库过程
On Error Resume Next'忽略错误
Dim DataPath As String '声明数据库路径
DataPath = App.Path & "Data.mdb" '获取数据库路径
If Dir(DataPath) = "" Then '判断数据库是否存在
MsgBox "未找到数据库", 48, "错误"
Exit Function
End If
Dim 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 If
OpenConn = 1 '如果没有错误,打开成功则返回 1
End Function '结束打开过程


vb.net 存储 vb如何存储数据_vb.net 存储_05


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


vb.net 存储 vb如何存储数据_vb.net 存储_06


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