求包含转义字符的SQL串的写法

Delphi_v7

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[p_ToExcel]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[p_ToExcel]
GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO
CREATE  PROCEDURE p_ToExcel
AS
DECLARE @sqlstring varchar(255)
DECLARE @dirstring varchar(255)
DECLARE @selectstring varchar(255)
DECLARE @str4 varchar(255)
SET @dirstring = 'C:\Report_D.xls'
SET @selectstring = '"SELECT * FROM test..Report_S"'
SET @str4 = ' -c -S"SYL-HP" -U"sa" -P"password"'''
SET @sqlstring = 'master..xp_cmdshell ''bcp ' +@selectstring+ ' queryout '+@dirstring+@str4
EXEC @sqlstring

GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

这个存储过程执行总是出错，是字符串的拼接问题，请教该如何修改？
其实就是这么一句,想把保存路径通过savedialog写成动态的：
EXEC master..xp_cmdshell 'bcp "SELECT * FROM test..Report_S" queryout C:\Report_D.xls -c -S"SYL-HP" -U"sa" -P"password"'

Delphi_v7

服务器: 消息 203，级别 16，状态 2，过程 p_ToExcel，行 16
名称 'master..xp_cmdshell 'bcp "SELECT * FROM test..Report_S" queryout C:\Report_D.xls -c -S"SYL-HP" -U"sa" -P"password"'' 不是有效的标识符。

Delphi_v7

自己动手，丰衣足食，搞定了。

procedure TForm1.btn2Click(Sender: TObject);
begin
  if dlgSave1.Execute then
  begin
    savedir := dlgSave1.FileName;
    sqlstring := 'EXEC master..xp_cmdshell ''bcp "SELECT * FROM test..report_s" queryout '+savedir+' -c  -q -S"10.1.8.8" -U"sa" -P"password"''';
    qry2.Close;
    qry2.SQL.Clear;
    qry2.SQL.Add(sqlstring);
    qry2.ExecSQL;
  end;
  ShowMessage('数据成功导出至:'+savedir);
end;

类十三

新手，受教了