关于使用VBA连接SQL数据库获取数据时创建临时表的问题

跟调用存储过程的时候是相同的解决方案。

在语句前面加上

SET

NOCOUNT

ON

因为

往临时表插入数据的时候会产生

影响行数

这种消息

SET

NOCOUNT

ON

能屏蔽这类信息。

第一步：连接数据库，下面是参考代码

Set conn = CreateObject("ADODB.Connection")

conn.ConnectionString = "Provider=Microsoft.Ace.OleDB.12.0Data Source=" &mypath

conn.ConnectionString = conn.ConnectionString &"Jet OLEDB:Database Password=1"

conn.Open

第二步：插入数据，参考代码如下：

Sql = "insert into skmxb (内部管理号,收款日期,金额"

Sql = Sql &") values ('" &nbglH &"', #" &Format(myD, "yyyy/mm/dd") &"#,"

Sql = Sql &jE

Sql = Sql &")"

conn.Execute Sql

---