Roth Consulting Perl Script: AdoUsageSamples.pl

#################################################################
# Description: Running SQL queries & store procedures using ADO #
#################################################################

use Win32::OLE;

$ConnStr = "DSN=DsnName;UID=UserName;PWD=pass;APP=PerlTest;WSID=MyComp;DATABASE=MyDB";

$Conn = Win32::OLE->new('ADODB.Connection');
$Conn->Open($ConnStr);

#-----------------------------------------------------
#Run SQL query	
my $Statement = "select XXX ,YYY from ZZZ where a=b ";
if(! ($RS = $Conn->Execute($Statement)))
{
	print Win32::OLE->LastError() ;
	exit;;
}
while (! $RS->EOF) 
{
	$XXX = $RS->Fields(0)->value;
	$YYY = $RS->Fields(1)->value;
	$RS->MoveNext;
}

#-----------------------------------------------------

#Get record set results from store procedure
$oSP = Win32::OLE->new("ADODB.Command");
$RS = Win32::OLE->new("ADODB.Recordset");
$oSP->{'CommandText'} = "sp_GetData";
$oSP->{'CommandType'} = 4;
$oSP->{'ActiveConnection'} = $Conn;
$oSP->{'CommandTimeout'} = 1200000;
$oSP->{'@Param1'} = $Param1;     
$oSP->{'@Param2'} = $Param2; 

$RS = $oSP->Execute();
while (! $RS->EOF) 
{
	$XXX = $RS->Fields(0)->value;
	$YYY = $RS->Fields(1)->value;
	$RS->MoveNext;
}

#-----------------------------------------------------
#Get return value from store procedure
$oSP = Win32::OLE->new("ADODB.Command");
$oSP->{'CommandText'} = "sp_GetUserID";
$oSP->{'CommandType'} = 4;
$oSP->{'ActiveConnection'} = $Conn;
$oSP->{'@Param1'} = $Param1;     
$oSP->{'@Param2'} = $Param2;                   
$oSP->Execute() ;

$Userid = $oSP->{'RETURN_VALUE'}->value;

#-----------------------------------------------------
#Get returned parameters from store procedure
$oSP = Win32::OLE->new("ADODB.Command");
$oSP->{'CommandText'} = "sp_GetUserID";
$oSP->{'CommandType'} = 4;
$oSP->{'ActiveConnection'} = $Conn;
$oSP->{'@Param1'} = $Param1;     
$oSP->{'@Param2'} = $Param2;                   
$oSP->Execute() ;

$Userid = $oSP->{'@UserId'}->value;
$UserName = $oSP->{'@UserName'}->value;

#-----------------------------------------------------

	Are you searching for a children's bike trailer?
	Would you like to try growing an avocado plant?
	Easily lose weight by increasing your metabolism.
	What, exactly, is a Calorie?
	Want to know about schooling your child using the Montessori method.

`Name:`	`AdoUsageSamples.pl`
`Version:`	`1.0`
`Last Updated:`	`2000.09.06`
`Author:`	`Arnon Ayal`
`Description:`	`Sample code: Running SQL queries & store procedures using Active Data Objects (ADO).`
`Explanation:`	`No explanation has been provided`

Perl Script: AdoUsageSamples.pl

The AdoUsageSamples.pl Script: