#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();