在VB编程中通常要与数据库打交道，对于数据量较小的应用，一般选用Access作为数据库，因为Access数据库比较简单，功能也比较齐全，数据的备份、拷贝都很方便，且程序发布时不需要额外单独安装其它的数据库管理软件。因此，在功能能够满足要求的条件下，Access数据库往往成为一些小型数据库软件的首选。
关于用VB操作Access库表的方法有多种，一般初学者往往会使用数据控件，许多资料上也大都以此作为操作Access数据库的起点来介绍，因为这个方法使用起来非常简单，但使用数据控件的方法在程序编码上往往不够灵活。现在介绍一下其它两种操作Access数据库的方法。
第一种：使用数据库对象
首先，要进行有关数据对象的声明，代码如下。
Dim MyWs As Workspace
Dim MyDB As Database
Dim WordTab As Recordset
生成工作区，打开数据库，然后再根据需要打开相应的库表。
Set MyWs = DBEngine.CreateWorkspace″″ ″Admin″ ″″ dbUseJet
Set MyDB = MyWs.OpenDatabase数据库名称 False False
Set WordTab = MyDB.OpenRecordset″表名″ dbOpenDynaset
这种方法的优点是代码比较简单，要求的环境为DAO 2.5/3.51，其中表名可以换成SELECT语句，即根据条件打开所需要的记录集，这种方法可脱离数据控件，可以比较方便灵活地操作数据库表，增加了程序的灵活性。
提示：经过测试发现，这种方法只能打开Access97库表，对于Access2000库表却无能为力，会弹出库表格式不对的出错提示。另外，对数据环境的要求仍比较多。
第二种：使用ADODB
首先，声明一个链接变量，并根据需要声明记录集变量。
Dim LocCnn1 As ADODB.Connection
Dim LocRst1 As ADODB.Recordset
建立与数据库的链接，如果数据库没有口令，最后一行可以不写(写上也不会错)。
Set LocCnn1 = New ADODB.Connection
LocCnn1.Open ″Provider=Microsoft.Jet.OLEDB.4.0User ID=Admin″ & _
″Data Source=″ & App.Path & ″数据库名称.mdb″& _
″Mode=Share Deny NoneExtended Properties=''Persist Security Info=False″ & _
″Jet OLEDBDatabase Password='asp561rbc'″
这种方法虽然代码长一些，但对数据环境要求低，且结构清晰，所编写的发布程序也大为减小。由于与链接SQL Server等数据库的方法一样，因而大量的操作数据库的代码相同，当数据库需要由Access扩充到一些大型数据库，或由一些大型数据库裁剪出一个简单数据库时，程序的移植会比较方便。
另外，这种方法对于Access97及Access2000均能很好地支持，兼容性好。对于大量插入、删除、修改等操作，只在Connection层进行即可，既可提高速度又可减少代码。
如果还要获取具体的记录集内容，则须再根据条件打开具体的库表，代码如下：
Set LocRst1 = New ADODB.Recordset
LocRst1.CursorType = adOpenKeyset
LocRst1.LockType = adLockOptimistic
LocRst1.Open ″SELECT  FROM 表名″ LocCnn1adCmdText
提示：一般情况下，建议使用第二种方法。

        因工作需要，同时为了避免大量繁琐工作，特研究了一下VB操作Access数据库，代码编写好后一劳永逸，极大提高了效率。本人是VB小白，在网上查阅了一些资料后动手操作，记录以备查阅。

工作环境：Windows操作系统，Microsoft Access2010（需安装完整版）

         数据库部分字段和内容如下图：

数据库部分字段图



数据库数据图



         有了米，开始下锅，大致步骤是：新建窗体——放置按钮——为按钮编写事件代码。

         打开上图文件名为users的Access数据库（库中包含一个users表，表内有上千条数据），然后按如下步骤操作。

1、创建窗体



2、在窗体上放置按钮



将窗体模式改为设计视图



3、设置按钮属性并编写事件代码

为按钮设置一个标题



 为按钮注册事件



进入到VB编辑模式：



编写VB代码，在Private Sub Command0_Click()和End Sub之间编写代码，如下图：



          语句str1、str2的完整代码如下：

str1 = "UPDATE users SET carWeight=carWeight-overWeight-int(rnd(billNum)*800),overWeightPercent='0' WHERE overWeight>1000 AND limiteWeight<>0 AND date BETWEEN '" + startDate + "' AND '" + endDate + "'"

str2 = "UPDATE users SET carWeight=int(carWeight/10)*10,overWeight=0 WHERE overWeight>1000 AND limiteWeight<>0 AND date BETWEEN '" + startDate + "' AND '" + endDate + "'"

         特别需要注意的是：Access数据库中SQL语句中日期值要用单引号引起来，在VB语言中，一个单引号开头表示注释。SQL语句是字符串，字符串用双引号引起来，里面的日期值再使用单引号引起来。另外由于在声明变量时startDate和endDate是字符串值，在SQL语句拼接变量时，语句中的单引号不能漏掉，否则报错。

4、保存窗体，并为窗体取名字

 

 

5、运行

进入“窗体视图”，点击窗体上的按钮，就可以执行自己编写的VB代码了，运行结果如下图：

 

         VB语法和函数的使用均查阅网络和MSDN手册，经过不断尝试，出错调试终得成功！

 

因工作需要，同时为了避免大量繁琐工作，特研究了一下VB操作Access数据库，代码编写好后一劳永逸，极大提高了效率。本人是VB小白，在网上查阅了一些资料后动手操作，记录以备查阅。
工作环境：Windows操作系统，Microsoft Access2010(需安装完整版)
数据库部分字段和内容如下图：
数据库部分字段图
数据库数据图
有了米，开始下锅，大致步骤是：新建窗体——放置按钮——为按钮编写事件代码。
打开上图文件名为users的Access数据库(库中包含一个users表，表内有上千条数据)，然后按如下步骤操作。
1、创建窗体
2、在窗体上放置按钮
将窗体模式改为设计视图
3、设置按钮属性并编写事件代码
为按钮设置一个标题
为按钮注册事件
进入到VB编辑模式：
编写VB代码，在Private Sub Command0_Click()和End Sub之间编写代码，如下图：
语句str1、str2的完整代码如下：
str1 = "UPDATE users SET carWeight=carWeight-overWeight-int(rnd(billNum)*800),overWeightPercent='0' WHERE overWeight>1000 AND limiteWeight<>0 AND date BETWEEN '" + startDate + "' AND '" + endDate + "'"
str2 = "UPDATE users SET carWeight=int(carWeight/10)*10,overWeight=0 WHERE overWeight>1000 AND limiteWeight<>0 AND date BETWEEN '" + startDate + "' AND '" + endDate + "'"
特别需要注意的是：Access数据库中SQL语句中日期值要用单引号引起来，在VB语言中，一个单引号开头表示注释。SQL语句是字符串，字符串用双引号引起来，里面的日期值再使用单引号引起来。另外由于在声明变量时startDate和endDate是字符串值，在SQL语句拼接变量时，语句中的单引号不能漏掉，否则报错。
4、保存窗体，并为窗体取名字
5、运行
进入“窗体视图”，点击窗体上的按钮，就可以执行自己编写的VB代码了，运行结果如下图：
VB语法和函数的使用均查阅网络和MSDN手册，经过不断尝试，出错调试终得成功！

第一次用VB来连接Access数据库，由于不了解VB语法，老是出现bug。现在看来，其实很简单，有好几种方法来连接，包括ADO控件、利用ADO对象等方法。由于ADO控件操作局限性太大，本文采用ADO对象来操作。过程如下： 准备工作: 建立数据库 E:\operation.accdb；
第一次用VB来连接Access数据库，由于不了解VB语法，老是出现bug。现在看来，其实很简单，有好几种方法来连接，包括ADO控件、利用ADO对象等方法。由于ADO控件操作局限性太大，本文采用ADO对象来操作。过程如下：
准备工作: 建立数据库 E:\operation.accdb； 建数据表:selection；数据表中,建字段:User,Password,并添加一条记录
点工程->引用 选中Microsoft Activex Data Objects 6.1 Library(注：选择最高版本就行)
1、数据库查询
首先添加控件:添加一个文本框,一个命令按钮
Private Sub Command1_Click()
Dim Conn As New ADODB.Connection '创建ADODB对象，用于连接数据库操作
Dim Rs As New ADODB.Recordset  '创建ADODB对象，用于返回取得的数据库内容
Conn.Open "Provider=microsoft.ace.oledb.12.0;Data Source=E:\operation.accdb"  '连接数据库函数，第一个参数为数据库驱动，第二个参数为数据库路径
sql = "Select Password From select where User='a'"
'selection请换成你的实际数据表名
Rs.Open sql, Conn, 1, 3 '查询数据库，第一个参数为数据库查询语句，第二个参数为数据库连接，第三个和第四个分别为对数据库的操作权限；
If Rs.EOF Then
MsgBox "没有找到此用户"
Else
Text1.Text = Rs("Password")
End If
Conn.close
Rs.close
End Sub
2、数据插入
首先添加控件:添加两个文本框,一个命令按钮
Private Sub Command1_Click()
Dim s1 As String
Dim s2 As String
Dim Conn As New ADODB.Connection
Conn.Open "Provider=microsoft.ace.oledb.12.0;Data Source=E:\operation.accdb"
s1 = Text1.Text
s2 = Text2.Text
sql = "Insert Into selection Values('" & s1 & "','" & s2 & "')"
Conn.Execute sql
Conn.close
End Sub
3、删除数据库中的某个记录
首先添加控件:添加一个文本框,一个命令按钮
Private Sub Command1_Click()
Dim s As String
Dim Conn As New ADODB.Connection
Conn.Open "Provider=microsoft.ace.oledb.12.0;Data Source=E:\operation.accdb"
s = Text1.Text
sql = "Delete From selection Where User = '" & s & "'"
Conn.Execute sql
Conn.close
End Sub
4、更新数据库某个记录
首先添加控件:添加一个文本框,一个命令按钮
Private Sub Command1_Click()
Dim s As String
Dim Conn As New ADODB.Connection
Conn.Open "Provider=microsoft.ace.oledb.12.0;Data Source=E:\operation.accdb"
s = Text1.Text
sql = "Update selection Set [Password] = '" & s & "' Where [User] = 'a'"
Conn.Execute sql
Conn.Close
End Sub
总结
首先是建立数据库连接：
Private Sub Command1_Click()
Dim Conn As New ADODB.Connection '创建ADODB对象，用于连接数据库操作
Dim Rs As New ADODB.Recordset  '创建ADODB对象，用于返回取得的数据库内容
Conn.Open "Provider=microsoft.ace.oledb.12.0;Data Source=E:\operation.accdb"  '连接数据库函数，第一个参数为数据库驱动，第二个参数为数据库路径然后，是对数据库各种操作语句。
本文原创发布php中文网，转载请注明出处，感谢您的尊重！