获得SQL语句执行的错误代号。(50)

procedure TLNSQL.ExecSql(Astr: string);var ACount: Integer;begin try FStatus := true; FRecordCount := 0; FObjConnection.Execute(Astr, ACount, [eoExecuteNoRecords]); FRecordCount := ACount; except on E:EOleException do begin WriteLog(ltExcept,'错误代码：' + IntToStr(e.ErrorCode) +' 错误信息：'+ E.Message +#13#10+ 'SQL语句：' + Astr); FStatus := false; FIsCanCommit := False; end; end;end;怎么ADO打印出错误的代码？？？。。。获得ADOQUERY执行的错误代码

要访问Ado.errors集合如果FObjConnection是tadoconnection的话 访问它的Errors属性