install_driver(ODBC) failed: Can't locate DBD/ODBC.pm in @INC (you may need to install the DBD::ODBC module) (@INC contains: /etc/perl /usr/local/lib/perl/5.18.2 /usr/local/share/perl/5.18.2 /usr/lib/perl5 /usr/share/perl5 /usr/lib/perl/5.18 /usr/share/perl/5.18 /usr/local/lib/site_perl .) at (eval 4) line 3.
Perhaps the DBD::ODBC perl module hasn't been fully installed,
or perhaps the capitalisation of 'ODBC' isn't right.
Available drivers: DBM, ExampleP, File, Gofer, Proxy, Sponge, mysql.
 at createdb.pl line 18.
##</code><code>##


#u!/usr/bin/perl
#use strict;
use warnings;
use v5.10; # Para el uso de la funcion sy()
use DBI;


say "Script para crear base de datos Acces";
 
# Configuracion de la base de datos

my $datasource ="driver=Microsoft Access Driver (*.mdb);dbq=new.mdb";
my $username = "root";
my $password = 'mysql';
 
# Conectarse a la base de datos

my $dbh = DBI->connect("dbi:ODBC:$datasource", $username, $password)
        || die "Error connecting: $!";
 
# Creando la tabla

my $table1= "CREATE TABLE table1 (pike varchar2(200),
 CodigoEmp varchar2(200),
 NomEmp varchar2(200),
 Apellido varchar2(200),
 NombrePc varchar2(200),
 DireccionIp varchar2(15),
 email varchar2(200),
 posicion varchar2(200),
 recinto varchar2(200),
 logu varchar2(200),
Logs varchar2(100)
)";


my @table2 =    (
  "CREATE TABLE table2 (
  EstoEmp varchar2 (200),
  EstaEmpleado varchar(200),
  GrupoUs varchar(200),
  Aplicacines varchar(200)
  );"
 );

# Ejecutando los statements          

my $sth = $dbh->prepare($table1);

$sth->execute;
 





say "Todas las tablas se han creado correctamente!";
 
# Desconectarse de la base de datos
$dbh->disconnect();