connect('DBI:mysql:radel:localhost','wwwrun','wwwrun', {PrintError => 0}) || die $DBI::errstr; my $optionProvincia = ''; my $optionActividad = ''; my $cadSQL = ''; my $cursor; my $fields; $cadSQL = <<"EOT"; SELECT * FROM tblProvincias ORDER BY Provincia EOT $cursor = $dbh->prepare($cadSQL); $cursor->execute; $optionProvincia .="\n"; while($fields = $cursor->fetchrow_hashref()){ $optionProvincia .="\n"; } $cursor->finish; $cadSQL = <<"EOT"; SELECT * FROM tblActividades ORDER BY Actividad EOT $cursor = $dbh->prepare($cadSQL); $cursor->execute; $optionActividad .="\n"; while($fields = $cursor->fetchrow_hashref()){ $optionActividad .="\n"; } $cursor->finish; !>// Buscar Empresas
 

Buscar Empresas

Selecciones los criterios para buscar empresas participantes en el proyecto INFORADEL:

Empresa

Provincia

Actividad

 

 

disconnect; !>//