c't freeware shareware 1997/CT_SW_97.ISO/pc/software/entwickl/win95/pw32i306.exe/eg/foreach.pl

Text File | 1997-04-09 | 590b | 30 lines

# Here is a sample that shows how to use ADO
# and foreach on an OLE object
#
# This assumes that the AdventureWorks sample
# that comes with IIS has been installed
#

use OLE;

$Conn = CreateObject OLE "ADODB.Connection";
$Conn->Open("ADOSamples");
$RS = $Conn->Execute("SELECT * FROM Orders");

$Fields = $RS->Fields;
foreach $field (keys %$Fields) {
    print $field->name, "\n";
}
print "\n";

while(!$RS->EOF) {
    $Fields = $RS->Fields;
    foreach $field (keys %$Fields) {
        print $field->value, " ";
    }
    print "\n";
    $RS->MoveNext;
}
$RS->Close;
$Conn->Close;