No expert, this works for me.
use strict;
use DBI;
my $dbHandle = DBI->connect('dbi:ODBC:(mydatabase - setup in control
panel->odbc datasources)', '', '') || die $DBI::errstr;
my $sql = "SELECT etc1, etc2 FROM tbletc WHERE etc = etc";
my $statementHandle = $dbHandle->prepare($sql);
$statementHandle->execute() || die $statementHandle->errstr;
my($etc1,$etc2);
$statementHandle->bind_columns(\$etc1,\$etc2);
while($statementHandle->fetch()){
print "$etc1\n";
print "$etc2\n";
}
Read :
"Programming the DBI - O'Reilly"
http://www.saturn5.com/~jwb/dbi-examples.html
HTH
CCJ
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
