#!perl-w

use strict;
use Win32::OLE;
use Win32::OLE::Const;
use Win32::OLE::Variant qw(:DEFAULT nothing);

my $strConn = "provider=sqloledb; server=Servername; database=Northwind; uid=username; pwd=password";

my $query = "select top 10 * from orders;";

# Create an ADO Connection object and open it
my $objConn = Win32::OLE->new("ADODB.Connection");
my $objRec = Win32::OLE->new("ADODB.Recordset");

print $strConn . "\n";
print $query . "\n";

$objConn->Open($strConn);
$objRec->Open($query, $objConn);

my $numfields = $objRec->Fields->count;
my $i;
print $numfields . "\n";

while (!$objRec->EOF)
{
}

$objRec->Close();
$objConn->Close();

print "Press Enter to Exit.";
<STDIN>;
exit;

Preference ...

#!perl-w

use strict; use Win32::OLE;
use Win32::OLE::Const;
use Win32::OLE::Variant qw(:DEFAULT nothing);

print "Content-type: text/html\n\n";

my $strConn = "provider=sqloledb; server=Servername; database=Northwind; uid=username; pwd=password";
my $query = "select top 10 * from orders;";

# Create an ADO Connection object and open it
my $objConn = Win32::OLE->new("ADODB.Connection");
my $objRec = Win32::OLE->new("ADODB.Recordset");

print $strConn . "\n";
print $query . "\n";

$objConn->Open($strConn);
$objRec->Open($query, $objConn);

my $numfields = $objRec->Fields->count;
my $i;
print $numfields . "\n";

while (!$objRec->EOF)
{
}

$objRec->Close();
$objConn->Close();

print "Press Enter to Exit.";
<STDIN>;
exit;

#!perl-w

use strict;
use Win32::OLE;
use Win32::OLE::Const;
use Win32::OLE::Variant qw(:DEFAULT nothing);

print "Content-type: text/html\n\n";

# http://sunsite.berkeley.edu/ead/eaddb/fundamentals.html my $DBFile = "C:\\Northwind.mdb";
my $strConn = "provider=msdasql; driver={Microsoft Access Driver (*.mdb)}; dbq=$DBFile; uid=;owd=;";

my $query = "select top 10 * from orders;";
print $strConn . "\n";
print $query . "\n";

# Create an ADO Connection object and open it
my $objConn = Win32::OLE->new("ADODB.Connection");
my $objRec = Win32::OLE->new("ADODB.Recordset");

$objConn->Open($strConn);
$objRec->Open($query, $objConn);

my $numfields = $objRec->Fields->count;
my $i;
print $numfields . "\n";

while (!$objRec->EOF)
{
}

$objRec->Close();
$objConn->Close();

print "Press Enter to Exit."; <STDIN>;
exit;