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 = Nothingend sub
请参考
连接数据库后,通过写SQL语句实现增删改查
如果觉得《用VBA语言调用sql数据库数据到excel中 – 服务器 – 前端》对你有帮助,请点赞、收藏,并留下你的观点哦!