检验SQL语法

SET PARSEONLY
检查每个 Transact-SQL 语句的语法并返回任何错误信息，但不编译和执行语句。

语法
SET PARSEONLY { ON | OFF }

注释
当 SET PARSEONLY 为 ON 时，Microsoft® SQL Server? 仅分析语句。当 SET PARSEONLY 为 OFF 时，SQL Server 编译并执行语句。

SET PARSEONLY 的设置是在分析时设置，而不是在执行或运行时设置。

在存储过程或触发器中不要使用 PARSEONLY。如果 OFFSETS 选项为 ON 而且没有出现错误，则 SET PARSEONLY 返回偏移量。

权限
SET PARSEONLY 权限默认授予所有用户

===================

procedure   TForm1.Button1Click(Sender:   TObject);
var
  i:   Integer;
  strErrorList:   TStrings;
  begin

  try
      with   adoquery1   do
          begin
              sql.Clear;
              sql.Add( 'insert   into   yt   (ytname)   values( ');
              sql.Add( ' ' 'yt ' ' '+ ') ');
              adoquery1.ExecSQL;
          end;
      except
        begin
          listbox1.Items.Add(adoconnection1.Errors.Item[0].Description);
          listbox1.Items.Add(adoconnection1.Errors.Item[1].Source);
          listbox1.Items.Add(adoconnection1.Errors.Item[2].SQLState);
          listbox1.Items.Add(adoconnection1.Errors.Item[3].HelpFile);
        end;
  end;
end;

===========================================================

产生错误后从Errors中取得错误：如:
try
ADOQuery1.close;
ADOQuery1.open;
ADOQuery1.append;
ADOQuery1.FieldByName('ID').asinteger := 1;
ADOQuery1.post;
except
label1.caption := inttostr(ADOConnection1.Errors.Item[0].Get_Number);//取得错误号
label2.caption := ADOConnection1.Errors.Item[0].Get_Description;//取得描述信息
end;Top

===================================================================

try  
  ...  
  except  
  on   Er:exception   do  
  if   Er   is   EDBEngineError   then   //捕获EDB异常
    begin  
        ErCode:=EDBEngineError(Er).Errors[0].ErrorCode;  
        case   ErCode   of  
            ...  
          else  
            ...  
          end;  
        ...  
      end;  
  ...  
  //raise;   可重新引发异常，让全局异常处理子程序来进行处理。  
  ...  
  end;  

 
  try  
  ...  
  except  
  on   ex:exception   do  
  if   ex   is   EOleException   then  //捕获ADO异常
    msg:=EOleException(ex).Message  
  //iCode:=EOleException(ex).ErroCode;  
  ...  
    end;  
  ...  
  end;  

转载于:https://www.cnblogs.com/mingdep/archive/2012/02/03/2337388.html