如何将sql server中查询到的数据导入成一个excel文件，用vb实现

Question

T-SQL代码：EXEC master..xp_cmdshell 'bcp test.dbo.P_Aspect out c:\temp1.xls -c -q -S"servername" -U"sa" -P""'
//导出

Answer 1

dim cn as new adodb.connectring
cn.open "Driver={SQL Server};Server=WEBSVR;DataBase=WebMis;UID=sa;PWD=123;"
cn.execute "master..xp_cmdshell 'bcp "SELECT col1, col2 FROM 表 " queryout E:\DT.xls -c -Sservername -Usa -Ppassword'"

Answer 2

dim cn  As New ADODB.Connectioncn.open "Driver={SQL Server};Server=WEBSVR;DataBase=WebMis;UID=sa;PWD=123;"cn.execute "master..xp_cmdshell 'bcp "SELECT col1, col2 FROM 表 " queryout E:\DT.xls -c -Sservername -Usa -Ppassword'"

Answer 3

dim cn  As New ADODB.Connection
cn.open "Driver={SQL Server};Server=WEBSVR;DataBase=WebMis;UID=sa;WD=123;"
cn.execute "master..xp_cmdshell 'bcp "+"""SELECT col1, col2 FROM 表 """+ queryout E:\DT.xls -c -Sservername -Usa -Ppassword'"
这样才可以，但是只能是对于master数据库下的表，其他库的表不行

Answer 4

其他库你只要在表名前加前缀
dim cn  As New ADODB.Connection
cn.open "Driver={SQL Server};Server=WEBSVR;DataBase=WebMis;UID=sa;WD=123;"
cn.execute "master..xp_cmdshell 'bcp "+"""SELECT col1, col2 FROM 库名.dbo.+ queryout E:\DT.xls -c -Sservername -Usa -Ppassword'"

Answer 5

dim cn  As New ADODB.Connection
cn.open "Driver={SQL Server};Server=WEBSVR;DataBase=WebMis;UID=sa;WD=123;"
cn.execute "master..xp_cmdshell 'bcp "+"""SELECT col1, col2 FROM 库名.dbo.表 """+ queryout E:\DT.xls -c -Sservername -Usa -Ppassword'"
这样才可以，但是只能是对于master数据库下的表，其他库的表不行

Answer 6

或者
dim cn  As New ADODB.Connection
cn.open "Driver={SQL Server};Server=WEBSVR;DataBase=WebMis;UID=sa;WD=123;"
cn.execute "use 你的数据库"
cn.execute "master..xp_cmdshell 'bcp "+"""SELECT col1, col2 FROM 库名.dbo.+ queryout E:\DT.xls -c -Sservername -Usa -Ppassword'"

Answer 7

或者
dim cn  As New ADODB.Connection
cn.open "Driver={SQL Server};Server=WEBSVR;DataBase=WebMis;UID=sa;WD=123;"
cn.execute "use 你的数据库"
cn.execute "master..xp_cmdshell 'bcp "+"""SELECT col1, col2 FROM 表 """+ queryout E:\DT.xls -c -Sservername -Usa -Ppassword'"

Answer 8

我知道了
dim cn  As New ADODB.Connection
cn.open "Driver={SQL Server};Server=WEBSVR;DataBase=WebMis;UID=sa;WD=123;"
cn.execute "master..xp_cmdshell 'bcp "+"""SELECT col1, col2 FROM 库名.dbo.表名+ queryout E:\DT.xls -c -Sservername -Usa -Ppassword'"
不用use数据库
谢谢了