查询分析器Go语句
查询分析器是sql客户端,它可以识别go用来分批提交,但go不是sql语句,sql服务器不能识别所以不能用在程序中。
启用SQL自动备份
function get_sql_ver(): Integer; //判断当前SqlServer版本
var
AQ: TADOQuery;
ver: string;
begin
AQ := tadoquery.Create(nil);
AQ.Connection := fdm.ADOCon;
AQ.SQL.Text := 'master..xp_msver ProductVersion';
AQ.Open;
if AQ.RecordCount > 0 then
begin
ver := AQ.FieldValues['Character_Value'];
result := strtoint(leftstr(ver, pos('.', ver) - 1));
end
else
Result := 0;
AQ.close;
AQ.free;
end;
if get_sql_ver() > 8 then //sql2005以上版本需开启cmd开关才能运行
begin
lvtmp := Tstringlist.Create;
try
// EXEC sp_configure 'show advanced options', 1 GO
// RECONFIGURE GO
// EXEC sp_configure 'xp_cmdshell', 1 GO
// RECONFIGURE GO
// master..xp_cmdshell 'sc config SQLSERVERAGENT start= auto'
// EXEC sp_configure 'xp_cmdshell', 0 GO
// RECONFIGURE GO
lvtmp.Clear;
lvtmp.Add('EXEC sp_configure ''show advanced options'', 1 ');
lvtmp.Add('RECONFIGURE ');
lvtmp.Add('EXEC sp_configure ''xp_cmdshell'', 1 ');
lvtmp.Add('RECONFIGURE ');
lvtmp.Add('EXEC master..xp_cmdshell ''' + cmd + ''' ');
lvtmp.Add('EXEC sp_configure ''xp_cmdshell'', 0 ');
lvtmp.Add('RECONFIGURE ');
Result := lvtmp.Text;
finally
lvtmp.Free;
end;
end
else
Result := 'master..xp_cmdshell ''' + cmd + ''' ';