Excel

与

Access

的数据交互

——sql

增、删、改基础语句

今天延续上⼀遍的

Excel VBA Sql 

操作数据库的课题，说说

Excel

与

Access

数据库是怎么互

连，且补充⼀下

sql

语句中的增、删、改的语法构造。

⾸先，我们需要在你写代码的⼯作簿的⽂件夹下新建⼀个

Access

数据库⽂件，并给它起⼀

个名字，这个主要是在做连接的时候需要⽤到。

再打开新建的这个

Access

数据库，新建⼀个表

--

取名为

“

⽤户

”

，该表⽤来保存两个字段为⼀

组的记录。

“

⽤户名

”

、

“

密码

”

，两个字段存储的值均为⽂本类型的数据。如下图：

下⾯我们就在

Excel

中分别对

Access

数据库中的⽤户表进⾏添加⽤户、删除⽤户、及修改⽤

户的操作。看代码：

这⼀整段代码已经包含了增删改的所有语句及语法，⼤家在写代码的时候应该⼀个语句⼀

个语句写好之后就执⾏⼀次

cnn.Execute sql

语句，分别观察数据库中的⽤户表的变化，来理解

该语句都起到了什么样的效果。

下⾯我们⼀起来看看今天这段代码涉及到的新知识点吧：

        1

、这⼀次我没有引⽤

ADO

⼯具，⽽是直接⽤后期绑定来达到前期引⽤的效果。⽤后期绑定

写的代码的兼容性更⾼

后期绑定的语句：

        Dim cnn As Object  '

声明对象变量

cnn

        '

创建⼀个

ADO

的连接对象赋值给

cnn

        Set cnn = CreateObject('Adodb.Connection')  

        2

、连接语句对版本做了判断，给了不同版本对应不同的连接字符串

语句：注意：代码截图中为了能⼀屏给⼤家截完整个图，所以⽤了

IF

的单⾏写法，这⾥我把

代码还原成多⾏写法，以便于⼤家理解。

        With cnn

            '

即将获取到的

Excel

版本号转化为数字后，将其与

12

进⾏对⽐

            If Val(Application.Version)