循序渐进之EXCEL-ADO操作数据库

EXCEL-ADO雄起雄起！！！...







看到大神们把EXCEL玩得贼溜，可糟糕的是我居然看不懂，下面就让我们慢慢的雄起来。做到——哼哼！我也认识它！

Sub ADO操作数据库步骤()

'要想用人家那就得启用人家。

'★★★★★工具-引用-ADO选个最高版

'为什么选最高版，因为高兼低，低不兼高，个人自然选择最高版。

'★★★★★引用时选这个太多很难找，可以直接按M直接到M开头的，一个小窍门，就像在你的电脑中C,D,E,F盘找文件是一样的。



'要想操作，必须先连接

Dim cnn As ADODB.Connection

'取名cnn可以随便取，你可以换其他的

Set cnn = New ADODB.Connection

'创建连接对象 赋值变量所以前面加set

'看到这么长的字母其实我也很害怕，但请记住我们可以用神奇的点.

'★★★★★把它点出来——把它点出来——把它点出来。

记住了，重要的事情说三遍，哈哈。

'接下来我们就要链接我们的数据库了

With cnn

.Provider = "microsoft.ace.oledb.12.0"

'★★★★★数据库的提供

.Open ThisWorkbook.Path & "中国合伙人.accdb"

'★★★★★ThisWorkbook.Path当前工作薄路径

'变量与常量用&连接起来，常量要用""引起来

'打开当前工作薄路径下的中国合伙人ACC

End With

'with语句可以减少书写，更可以加快速度。

'★★★★★这个语句有点长，可以通过以下方法获得，



'要想让它动起来在这里我们就需要用SQL了，第一件事就得定义一下
'★★★★★为什么我们要用SQL，cnn之类的来定义呢，虽然它可以用其它的，在这里解释一下，因为这样用缩写，可以很清楚的明白这是代表什么。方便记忆，也方便查找，更加的易读。



Dim sql As String '声明命令字符串变量

'sql = "在这里写下数据库SQL命令"双引号引起来，★★★★★

sql = "update 中国合伙人花名册 set 职位= '杀猪刀' where 姓名 ='猫ゞ哥'"

'姓名 ='猫ゞ哥'    单引号

'★★★★★最精华的地方就是这里了，千变万化SQL



'有了SQL语句后，那么我们就要运行它，怎么运行呢？如下

cnn.Execute (sql) '执行上面的SQL命令

'这种适用于没有返回值的情况

'养成随时释放变量空间，关闭连接的好习惯，多了电脑慢

cnn.Close '关闭连接，活干完了，就关了吧

Set cnn = Nothing '清空cnn变量

'速度超快 不需要打开ACC

End Sub

'KO 让我们下次再续嘿嘿





图文作者：貓ゞ哥

    关注 Excel创世纪合伙人