Re: DBD::ADO and ODBC Information Code

[Steffen Goeldner]

Peter Hircock wrote:

> I would like to try that,   would I apply the code below to the "error"
> subroutine to limit the number of loops in the for loop.  If I understand
> this,  I could have it leave the for loop once @Err reaches the
> MAX_ERRORS.

Better use my test script

  <http://www.xray.mpe.mpg.de/mailing-lists/dbi/2004-01/msg00322.html>

first and replace

  print $_->Description, "\n" for Win32::OLE::in( $err );

with my code snippet. This will not loop at all (for > $MAX_ERRORS).
To leave the loop after $MAX_ERRORS steps would be better. But in
this case I cannot use Win32::OLE::in, something like

  while ( my $err = $Errors->Next ) {
    last if ...

instead. I have to test this ...


Steffen