vba增删改查数据库2

VBA连接SQL数据库示例

最新推荐文章于 2023-12-02 15:01:11 发布

转载最新推荐文章于 2023-12-02 15:01:11 发布 · 442 阅读

0 ·

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/shida-liu/p/9452614.html

文章标签：

#数据库 #人工智能

sub test()
Set cnn = CreateObject("ADODB.Connection")

Set rs = CreateObject("Adodb.Recordset")strCn= "Provider=sqloledb;Server=R9HDET7;Database=dbname;Uid=username;Pwd=password"
cnn.Open strCn
SQL = ""
cnn.Open strCn '与数据库建立连接，如果成功，返回连接对象cn
rs.Open SQL , cn '执行strSQL所含的SQL命令，结果保存在rs记录集对象中
cnn.Close
Set cnn = Nothing

end sub
请参考

连接数据库后，通过写SQL语句实现增删改查

转载于:https://www.cnblogs.com/shida-liu/p/9452614.html