[dancer-users] Better Solution ?

11 Apr 2013

      Hello
I need to write a Dancer Application where I need to connect to 
Microsoft Access 97/2003 Database... :'(

I use DBI::Proxy

my $dsn      = "DBI:Proxy:hostname=$IP;port=$PORT;dsn=DBI:ODBC:$ODBC";
my $dbh = DBI->connect($dsn, "", "") || die "Erreur de connexion à la base";
$dbh->{AutoCommit} = 1;
$dbh->{RaiseError} = 1;

it's not fast but it's works.

I tried to use  Dancer::Plugin::Database but Microsoft SQL is not 
compatible ( Limit doesn't exist, this is TOP etc.. )

my %ClientParc ;
$sql =q/SELECT Spécifique, Quantité, PrixMaintenance FROM ClientParc 
WHERE NumContrat=? AND CodeClient=?/;
$stha = $dbha->prepare($sql);
$stha->execute($NumContrat, $CodeClient );
  while (my ($Specifique, $Quantite, $PrixMaintenance) = 
$stha->fetchrow_array()) {
$ClientParc{$Specifique} = {  Specifique      => $Specifique, 
Quantite        => $Quantite,     PrixMaintenance => 
$PrixMaintenance        }
}

  I create a hash %ClientParc and I send it to TTK
and I do

return template '/echeancier' => {
     ClientParc => \%ClientParc
}
in my view

[% FOREACH s IN ClientParc.values -%]

         [%- IF loop.first %]
                 <div class="span5">             [% s.Quantite %] [% 
s.Specifique %] </div>
         [% ELSE %]
                 <div class="span5 offset5">     [% s.Quantite %] [% 
s.Specifique %] </div>
         [% END %]
[% END %]

And it's works but

I got 2 questions
1 ) are they a better solution ?
2) for each page , I need to connect to MS Access proxy and this is slow 
( 2 ou 3 sec for connection, but after queries are  enough fast ), are 
they a solution to maintain a DB connection  ?

thanks
Hugues.

[dancer-users] Better Solution ?

Hugues Max