当执行下列程序时,提示:未发现数据源名称并且未指定默认驱动程序 哪错了??
Private Sub Command1_Click()
Dim cn As New ADODB.Connection
cn.open "Driver={SQL Server};Server=EXXEPT01;Database=xian;UID=sa;PWD=sa;"
cn.execute "master..xp_cmdshell 'bcp ""select * from xian1"" queryout c:\temp2.xls -c -S""EXXEPT01"" -U""sa"" -P""sa""'"
End Sub
