为什么用SQLtest 取不出表头

sxk

SQLtest 通用模块，使用很方便，但我却取不出表头，不知道为什么，代码如下，请高手帮看看。

1. '---------------LQC---AdoQuery通用程序---(开始)--------------------------------------------------------------------------------------------------------------
   
2. Sub LqcAdoQuery(cSourceFile, cDestSheet, cDestRang, nReadOnly, cSelect)
   
3. '从cSourceFile文件(全路径)中取数,Sql语句是cSelect,结果存入cDestSheet表的cDestRang开始的块中,nReadOnly为防止多次ADO多次连接自身内存无法释放 1时生效 其他不生效。
   
4. On Error Resume Next
   
5. If nReadOnly = 1 Then '防死机标识为1时
   
6.     Application.DisplayAlerts = (1 = 2)
   
7.     Application.ScreenUpdating = (1 = 2)
   
8.     ThisWorkbook.ChangeFileAccess xlReadOnly   '转为只读
   
9. End If '防死机标识为1时
   
10. 
    
11.     Set cn = CreateObject("ADODB.Connection")
    
12.     cn.Open "dsn=excel files;dbq=" & cSourceFile '打开链接
    
13.     Sheets(cDestSheet).Range(cDestRang).CopyFromRecordset cn.Execute(cSelect)  '放置查询结果
    
14.     Set cn = Nothing    '对象置空，释放内存
    
15.    
    
16. If nReadOnly = 1 Then '防死机标识为1时
    
17.   ThisWorkbook.ChangeFileAccess xlReadWrite
    
18.   Application.DisplayAlerts = (1 = 1)
    
19.   Application.ScreenUpdating = (1 = 1)
    
20. End If '防死机标识为1时
    
21. On Error GoTo 0
    
22. End Sub
    
23. '---------------LQC---AdoQuery通用程序---(结束)-----------------------------------------------------------------------------------
    
24. 
    
25. Sub test()
    
26. begin = Time
    
27. Sheet2.Cells.ClearContents
    
28. LqcAdoQuery _
    
29. cSourceFile:=ThisWorkbook.FullName, _
    
30. cDestSheet:="Sheet2", _
    
31. cDestRang:="a1", _
    
32. nReadOnly:=1, _
    
33. cSelect:="SELECT [ADD GTRX$].所属文件 AS BSC, [ADD GTRX$].CELLID, [ADD GTRX$].TRXID, [ADD GTRX$].TRXNO, [ADD GTRX$].FREQ, [ADD GTRX$].IDTYPE, [ADD GTRX$].ISMAINBCCH FROM [ADD GTRX$] WHERE ((([ADD GTRX$].ISMAINBCCH)='YES')) ORDER BY [ADD GTRX$].TRXID"
    
34. MsgBox "总共用时" & (Time - begin) & "s"
    
35. End Sub

复制代码

附件
SQLtest.rar (249.85 KB, 下载次数: 8)

2011-4-21 20:01 上传

点击文件名下载附件

[ 本帖最后由 sxk 于 2011-4-21 20:02 编辑 ]

Admin

   

很遗憾通知楼上朋友，您的帖子在24小时之内没有任何回复！

通常情况下，本论坛发布的主题帖会在8小时被回复或处理。您的帖子在24小时之内未被回复，其中的原因可能是：

1、问题表述不清、模棱两可，难以理解，帮助者被搞晕了，夺帖而出；
2、没有上传必要的附件，或附件被遗忘在某个角落；
3、发帖提问时，语气带棱角、带挑衅，不幸被列入不受欢迎的帖子；
4、所提问题不成立，或提不合理的要求，乐于助人者使出“走为上”之计；
5、话题较偏、较冷或者发布到了不合适的版块，暂时无人问津，顾影自怜。


为了提高您的问题解决效率，我们推荐您阅读以下文章：
* 如何发表新话题和上传附件：http://club.excelhome.net/thread-45649-1-1.html
* 发帖的技巧：http://club.excelhome.net/thread-176339-1-1.html
* EH技术论坛的最佳学习方法：http://club.excelhome.net/thread-117862-1-1.html