Accessing Pervasive.SQL With Perl

Page Last Modified:

_{Home Links ODBC (DBI) Contact}

DBI + ODBC - Fetching Examples 1 - simple example

A simple fetching example:

use strict;
use warnings;
use DBI;
my $dbHandle = DBI->connect('dbi:ODBC:DEMODATA', '', '');
my $stHandle = $dbHandle->prepare('SELECT Name,Description FROM Course ORDER By Name');
my $ret = $stHandle->execute();
while(my @returnRow = $stHandle->fetchrow_array())
{
   print "Name: $returnRow[0], description: $retnRow[1]\n";
}
$stHandle->finish();
$dbHandle->disconnect();

None of the method calls are being properly checked for errors (the database handle's PrintError attribute should be set to 1, so warnings will get printed), which is rarely a good thing, so the next code sample includes some error handling.

_{Home Links ODBC (DBI) Contact}

All content on this site is copyright
Neil Hughes 2010 - 2020