vba增删改查数据库2
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语句实现增删改查
posted on 2018-08-10 00:14 上山打老虎下山采蘑菇 阅读(401) 评论(0) 编辑 收藏 举报