[code=MSIL]master..xp_cmdshell 'copy "C:\Program Files\data\ERP_Data.MDF" "C:\Program Files\data\ERP_2_Data.mdf"'[/code]
上面sql 语句在DELPHI里运用:
procedure TForm1.Button1Click(Sender: TObject);
var
s: string;
begin
s:= '"C:\Program Files\data\ERP_Data.MDF" "C:\Program Files\data\ERP_2_Data.mdf"';
s:= 'master..xp_cmdshell ''copy '+s+'''';
with ADOQuery1 do
begin
close;
sql.Clear;
sql.Add(s);
execsql;
end;
end;
我写的是上面的语句,有错误,
上面sql 语句在DELPHI里运用:
procedure TForm1.Button1Click(Sender: TObject);
var
s: string;
begin
s:= '"C:\Program Files\data\ERP_Data.MDF" "C:\Program Files\data\ERP_2_Data.mdf"';
s:= 'master..xp_cmdshell ''copy '+s+'''';
with ADOQuery1 do
begin
close;
sql.Clear;
sql.Add(s);
execsql;
end;
end;
我写的是上面的语句,有错误,
解决方案 »
- 怎么用delphi将jpeg图像转换为bmp
- 关于数据库备份的问题
- 如何打开一个目录选择框?
- 求救word文件存入数据库中 用的TBlobField 在uses 用到什么?
- 招聘:项目开发和DELPHI高手(需要真正的高手,菜鸟勿需联系)
- DCOMConnection连接问题,请各问帮帮忙,急
- *****如何在TREEVIEW中创建子节点的时候判断只能创建4层子节点*****
- qtintf.dll
- 请问在 delphi6的报表里能否控制 各行 detail的字体?
- 这个class-references类型有什么用?
- 请问有Delphi7的高手吗?有非常重要的问题想要拜托解决~
- Dll HOOK以後為什麽不能線程同步?
s:='master..xp_cmdshell '+QuotedStr('copy "C:\Program Files\data\ERP_Data.MDF" "C:\Program Files\data\ERP_2_Data.mdf"')
procedure TForm1.Button1Click(Sender: TObject);
var
s: string;
begin
s:= '''''C:\Program Files\data\ERP_Data.MDF'''' ''''C:\Program Files\data\ERP_2_Data.mdf''''';
s:= 'master..xp_cmdshell ''copy '+s+'''';
with ADOQuery1 do
begin
close;
sql.Clear;
sql.Add(s);
execsql;
end;
end;上面的"该成四个单引号('''')时,程序没错,可SQL语句没有效果(COPY 功能没有实现)
var
s: string;
begin
//s:= '''''C:\Program Files\data\ERP_Data.MDF'''' ''''C:\Program Files\data\ERP_2_Data.mdf''''';
//s:= 'master..xp_cmdshell ''copy '+s+'''';
s:='master..xp_cmdshell '+QuotedStr('copy "C:\Program Files\data\ERP_Data.MDF" "C:\Program Files\data\ERP_2_Data.mdf"');
with ADOQuery1 do
begin
close;
sql.Clear;
sql.Add(s);
execsql;
end;
end;
还是不行,样的错误
SQL.text:='master..xp_cmdshell '+QuotedStr('copy C:\Program Files\data\ERP_Data.MDF C:\Program Files\data\ERP_2_Data.mdf');//试试
SQL.text:='master..xp_cmdshell '+QuotedStr('copy "C:\Program Files\data\ERP_Data.MDF" "C:\Program Files\data\ERP_2_Data.mdf"');
路径有空格要加双引号;
这样的SQL(" shift+'的双引号)delphi里运行就出错
这样的SQL(" shift+'的双引号)delphi里运行就出错
s:='master..xp_cmdshell '+QuotedStr('copy "C::\Program Files\data\ERP_Data.MDF" "C::\Program Files\data\ERP_2_Data.mdf"');
已测试通过