为什么用lihonggen0的导出SQL Server为Excel的代码出错？

Question

我用的是VB+SQL Server2000，在用以下代码时，系统提示：编译出错：缺少语句结束。
在VB6中应用ADO导出EXCEL文件代码： Dim cn  As New ADODB.Connectioncn.open "Driver={SQL Server};Server=DZT;DataBase=DZT;UID=sa;WD=;"cn.execute "master..xp_cmdshell 'bcp "SELECT * FROM DZT.dbo.user" queryout E:\DT.xls -c -S"DZT" -U"sa" -P""'"这是怎么回事呢？
http://www.csdn.net/develop/read_article.asp?id=18623

Answer 1

你先在SQL SERVER的查询分析器上运行一下，看是否正确

Answer 2

我在查询分析器上运行正确，而且也看到了导出的excel文件，内容也正确。可是我在VB里面运行，又会出现语法错误的提示,代码如下：
Dim cn  As New ADODB.Connection
cn.Open "Driver={SQLServer};Server=JSB03;DataBase=dzt;UID=Administrator;PWD=111;"
    
cn.Execute  "master..xp_cmdshell 'bcp DZT.dbo.user out d:\aaa.xls -c -q S"JSB03" -U"Administrator" -P"111"'"
这是怎么回事啊？

Answer 3

问题解决了！只要把"JSB03" "Administrator" "111"两边的引号都去掉就OK了！