use Win32::OLE;
my $Conn = new Win32::OLE('ADODB.Connection');
my $Conn = $Server->CreateObject("ADODB.Connection");
$Conn->Open( "ADOSamples" );
my $RS = $Conn->Execute( "SELECT * FROM Orders" );
my $count = $RS->Fields->{Count};
for (my $i = 0; $i < $count; $i++ ) {
    print $RS->Fields($i)->{Name},"\n";
}
while ( ! $RS->{EOF} ) {
    for (my $i = 0; $i < $count; $i++ ) {
        print $RS->Fields($i)->{Value},"\n";
    }
    $RS->MoveNext;
}
$RS->Close;

小恐龍工作坊 提供