Take me over?
Win32::ADO - ADO Constants and a couple of helper functions
use Win32::ADO qw/CheckDBErrors/;
use Win32::OLE::Const; my $name = "Microsoft ActiveX Data Objects 2\\.0 Library"; $ado_consts = Win32::OLE::Const->Load($name) || die "Unable to load Win32::OLE::Const ``$name'' ".Win32::OLE->LastError;
And then use $ado_consts as a hash ref with the keys being the constant names.
Also contains CheckDBErrors, for doing ADO error checking. Pass it the connection object and an empty array ref, as follows:
CheckDBErrors($Conn, \@DBErrors) or die @DBErrors;
Matt Sergeant, email@example.com