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

Yaojiaqing

没有人会吗。。

wj2368

Yaojiaqing 发表于 2013-1-28 09:54
没有人会吗。。

传个有数据的附件

sgjackey

这个问题得到解决方法了。

就是SQL 添加 “SET NOCOUNT ON”
最好用在存储过程内

qfxfox

SET NOCOUNT ON

edova

sgjackey 发表于 2013-10-25 15:47
这个问题得到解决方法了。

就是SQL 添加 “SET NOCOUNT ON”

非常感谢你！

dubei

刚看一帖子，也是要加“SET NOCOUNT ON”的问题

nblhj

sgjackey 发表于 2013-10-25 15:47
这个问题得到解决方法了。

就是SQL 添加 “SET NOCOUNT ON”

最好用在存储过程内，也就是可以不用在存储过程内，是吗？

请教最终的写法，多谢

向東

注意SQL语句连接时加空格！

1. Private Sub Yao()
   
2.     Dim i%, strCn$, strSQL$, serIP$, uid$, pwd$, dbName$, mydate, sht As Worksheet
   
3.     Dim cn As Object   
   
4.     Dim rs As Object   
   
5.     Dim stime As Date, etime As Date
   
6.     stime = Timer
   
7.     serIP = "10.1.1.1"
   
8.     uid = "sa"
   
9.     pwd = "123"
   
10.     dbName = "sa"
    
11.    
    
12.     Set cn = CreateObject("ADODB.Connection")  
    
13.     Set rs = CreateObject("ADODB.RecordSet")
    
14.     strCn = "Provider=sqloledb;Server=" & serIP & ";Database=" & dbName & ";Uid=" &
    
15. 
    
16. uid & ";Pwd=" & pwd & "; "   
    
17.     mydate = Date
    
18.     strSQL = "SET NOCOUNT ON "
    
19.     strSQL = strSQL +"if object_id('tempdb..#shops') is not null drop table #shops; select
    
20. 
    
21. b.sno,b.areaid,b.areaname,a.shopid,a.sname into #shops from areashops a,areadept b
    
22. 
    
23. where "
    
24.     strSQL = strSQL + "a.arealevel=b.arealevel select * from #shops"
    
25.     cn.Open strCn
    
26.     cn.CommandTimeout = 720
    
27.     rs.Open strSQL, cn
    
28.    
    
29.     Set sht = ThisWorkbook.Sheets("Sheet1")
    
30.     sht.[a2:i50000].ClearContents
    
31.     sht.[a2:i50000].NumberFormatLocal = "@"
    
32.     sht.[a2].CopyFromRecordset cn.Execute(strSQL)  
    
33. 
    
34. 
    
35.     rs.Close
    
36.     cn.Close
    
37.     Set rs = Nothing
    
38.     Set cn = Nothing
    
39. End Sub

复制代码