用ADO连接SQLS,程序怎么样才能获得SQLS报的错误

解决方案 »

  1.   

    ADO异常用Try……Except是捕捉不到的。应该是取得ADOConnection的Errors错误集合对象,用了循环取得
    每个Error对象,就可以取得每个Error对象的错误代码.如:
     var 
       ADOErrors:Errors;
       ADOError:Error;
       i:Integer;
     Begin
       ADOErrors := ADOConnection.Errors;
       For i:=0 to ADOErrors.Count-1 Do
       Begin
          ADOError := ADOErrors.item[i];
          ShowMessage(ADOError.Description );//错误描述
          ShowMessage(IntToStr(ADOError.NativeError));//错误代码
       End;
    End;
    其他的属性还有//Number数量 //Source错误来源 等