vba 数据库(VBA与ACCESS数据库学习)

今天给大家带来EXCEL VBA操作ACCESS数据库的简单实例，大家可以参考发挥设计出更加优秀的作品。有想学习的朋友记得关注哦，后续给大家带来更多相关视频。

（附源码）

代码复制到VBA模块后记得前期设置前期引用哦

工具——引用——勾选图片中的

学习视频

*******************************

Sub 查询()

Dim cnn As New ADODB.Connection

Dim myPath As String

Dim sql As String

myPath = ThisWorkbook.Path & "\学校管理.accdb" '设置路径

'打开数据库链接(加入密码等 )

cnn.Open "Provider=Microsoft.Ace.OLEDB.12.0;Jet OLEDB:Database Password=123;Data Source=" & myPath

sql = "SELECT MAX(出生日期) FROM CH_TABLE" '写SQL查询语句

'arr = cnn.Execute(sql).GetRows '存入数组 适用灵活多个数据

'Range("a1") = arr '数组赋给单元格

'第二种方法

Range("a2").CopyFromRecordset cnn.Execute(sql) '或直接将值复制到单元格

cnn.Close

Set cnn = Nothing

End Sub

***************************************