Can you show us the schema for the table you are selecting from and the contens of $h->{ParamValues} after the execute (where $h is your statement handle). You might want to "use Data::Dumper" and "print Dumper($h->{ParamValues})". If you have RaiseError set you'll have to wrap the fetchrow_array in an eval or disable RaiseError to capture the ParamValues.

Can you write me an example, I am not sure how to do that. Thanks again for taking the time to help me. -Pao

Try this, untested:

use Data::Dumper;
my $sth = $dbh->prepare($sql2);
$dbh->{RaiseError} = 1;
foreach my $i (0 .. @date1 - 1) {
    eval {
         $sth->execute($date1[$i], $date2[$i]);
         my @row;
         while (@row = $sth->fetchrow_array) {  # retrieve one row at 
+a time
             print join(", ", @row), "\n";
         }
    };
    if ($@) {
        print "$@\n";
        print Dumper($sth->{ParamValues});
    }
 }
[download]

Try running this script

#!perl
use strict;
use DBI;

my $dbh = dbh();
my $sql ="select * 
          from information_schema.columns 
          where table_name = ?";
 
my @tables = ('TopsData.dbo.AUDT_AuditChrt','TopsData.dbo.AUDT_AuditMe
+dication');
for my $table (@tables){
  my $ar = $dbh->selectall_arrayref($sql,undef,$table);
  for (@$ar){
    print join ":",@$_,"\n";
  }
}
  
# connect
sub dbh {
  my $dsn = "dbi:ODBC:DSN=TEST-DB1";
  my $dbh = DBI->connect($dsn, 'SA', 'pass',
    {RaiseError => 1, PrintError => 1}) 
    or die (Error connecting " $DBI::errstr");
}
[download]

poj