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.1mt.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.1mt.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的组合方式，简单实用。本文也是抛砖引玉，希望大家一起交流和学习，一起进步。
如有需要本软件代码的，可以私信联系。
版权声明：本文内容由互联网用户自发贡献，该文观点仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容， 请发送邮件至 举报，一经查实，本站将立刻删除。