论坛 › Delphi交流 › 求包含转义字符的SQL串的写法

Delphi_v7 发表于 2012-5-3 22:22:20

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

本帖最后由 乐yi忘忧 于 2012-6-27 19:37 编辑

if exists (select * from dbo.sysobjects where id = object_id(N'.') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure .
GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO
CREATEPROCEDURE 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 发表于 2012-5-3 22:28:53

服务器: 消息 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 发表于 2012-5-4 10:52:26

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

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;

类十三 发表于 2017-4-2 16:54:15

新手，受教了

查看完整版本: 求包含转义字符的SQL串的写法