VBA连接access数据库开发小软件

虽然VBA（包括VB）已不再流行，但是在某些场合还是比较方便的，尤其对非编程专业人员。灵活使用VBA，可以很十分方便的处理excel，access数据，提高工作效率，避免出现错误。个人认为VBA的最大的优点就是嵌套在office中，无需创建额外的编程环境，另外语法简单，窗体的构建也很容易上手。

在办公场所，往往因为保密的考虑，办公电脑只通过内部局域网互联，而不与外部互联网通讯。对于小型团队（十几到几十人）而言，通过excel+access的方式管理一些信息，相当方便，快捷又经济。只要有了想法（比如科室问题跟踪系统），一天两天就可以做出来一个小系统，可以极大提高工作效率，还能避免找IT人员开发专业的软件。

下面简单举例，用excel VBA窗体创建前台，用access数据库管理后台数据的方式，创建一个简单的小系统。把access数据库设置为共享，在局域网内，其他员工均可以通过excel VBA窗体前台访问，查询数据库和更新数据。

比如对四线制热电阻校验信息的管理，对于四线制的热电阻的校验，需要检查ABCD四根线两两之间的电阻值，也需要测量对地的绝缘值，依此判断该热电阻的特性是否下降。然后统计同类型的历史数据，就可以判断该类型设备的使用寿命，据此制定或优化更换策略。

前面的文章已经说了如何创建窗体，本文重点讲VBA如何与access连接，动态管理数据。主要的界面如下：

录入检验信息窗体

录入检验数据窗体

listview显示检验数据

双击listview中的数据，显示单个热电阻的检验数据。

VBA与access连接的方法-查询：

‘get_info函数用于连接access数据库并查询，通过参数传递sql查询语句，通过参数rst返回查询结果。

Function get_info(ByVal sql As String, ByVal rst As ADODB.Recordset)

Dim cnn As New ADODB.Connection

'stpath = ThisWorkbook.Path & "\mt.accdb" ‘数据库mt.accdb放在本地电脑

stpath = "\\ 192.168.1.1\mt.accdb" ‘数据库mt.accdb放在共享地址

cnn.Open "provider=microsoft.ace.oledb.12.0;data source=" & stpath & ""

rst.Open sql, cnn, adOpenStatic, adLockOptimistic

If rst.RecordCount < 1 Then

MsgBox "no information for your search"

Exit Function

End If

End Function

‘双击listview数据，根据主键查询access数据库，并查询结果显示到窗体UserForm9。

Private Sub UserForm_Initialize()

Dim rst As New ADODB.Recordset ‘创建新的查询结果集

sql = "select * from mt where id like'%" & UserForm1.mt_number & "%'" ‘根据listview的数据主键UserForm1.mt_number，动态创建sql语句。这里需要注意sql语句的结构，比较容易出错。

Call get_info(sql, rst) ‘调用函数get_info，用sql语句查询，并把结果反馈到rst中。

‘下面把查询结果显示到窗体中。

UserForm9.ecs.Caption = rst.Fields(1).Value

UserForm9.calibrator.Caption = rst.Fields(2).Value

UserForm9.cali_date.Caption = rst.Fields(3).Value

UserForm9.package_number.Caption = rst.Fields(4).Value

UserForm9.ab.Text = rst.Fields(5).Value

UserForm9.ac.Text = rst.Fields(6).Value

UserForm9.ad.Text = rst.Fields(7).Value

UserForm9.bc.Value = rst.Fields(8).Value

UserForm9.bd.Value = rst.Fields(9).Value

UserForm9.cd.Value = rst.Fields(10).Value

UserForm9.isolation.Value = rst.Fields(11).Value

'TextBox1.MultiLine = True

ComboBox1.AddItem "正常>100兆欧"

ComboBox1.AddItem "降级观察>10兆欧"

ComboBox1.AddItem "降级>1兆欧，转大修处理"

ComboBox1.AddItem "失效<1兆欧，立即处理"

End Sub

VBA与access连接的方法-更新：

‘add_info函数用于更新access数据库，更新的语句通过参数sql传递。

Sub add_info(sql As String)

Dim cnn As New ADODB.Connection

'stpath = ThisWorkbook.Path & "\mt.accdb" ‘数据库mt.accdb放在本地电脑

stpath = "\\ 192.168.1.1\mt.accdb" ‘数据库mt.accdb放在共享地址

cnn.Open "provider=microsoft.ace.oledb.12.0;data source=" & stpath & ""

cnn.Execute (sql)

cnn.Close

Set cnn = Nothing

End Sub

Private Sub CommandButton1_Click()

If ComboBox1.Value = "" Then

MsgBox "处理结果不能为空，请重新选择"

Exit Sub

End If

‘更新access的sql语法如下，需要注意动态ComboBox1.Value的处理，这里也容易出错。

sql = "update mt set result='" & ComboBox1.Value & "' where id =" + UserForm1.ng_number

If MsgBox("请确认输入信息正确。", vbYesNo) = 6 Then

add_info (sql)

End If

Unload UserForm9

End Sub

对于非专业人员，花上一两周时间学习一下VBA，并灵活运用到工作中，可以事半功倍，对VBA+ACCESS的组合方式，简单实用。本文也是抛砖引玉，希望大家一起交流和学习，一起进步。

如有需要本软件代码的，可以私信联系。