emorfa has asked for the wisdom of the Perl Monks concerning the following question:

Hello you guys, I trying to run this script to create two tables, but I got an error with the odbc any of you that have odbc on linux can run it and tell if run correctly. I Have to do this homework and the professor is asking for making it in Acces.

This is the error I got 

 install_driver(ODBC) failed: Can't locate DBD/ODBC.pm in @INC (you ma
+y need to install the DBD::ODBC module) (@INC contains: /etc/perl /us
+r/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/li
+b/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.

[download]

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

[download]
Thanks

Replies are listed 'Best First'.
Re: Testing Script ODBC
by 1nickt (Canon) on Nov 06, 2015 at 07:00 UTC

    It's really impossible to help without seeing the error, please post it here. You can edit your post and add it. Here are a few ideas:

    It seems unlikely that you are really running Microsoft Access on linux. You're using 'mysql' as a password: is your database actually MySQL?

    You're using the VARCHAR2 data type but that's an Oracle data type. I don't know for sure but I don't think you can use it in Access. It causes an error if you try to use it in MySQL.

    You have one SQL string in a scalar and one in an array, that's probably not what you want.

    For creating tables, once you have a working database handle, I suggest using DBI's do(): 

    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)
)";

$dbh->do( $table1 ) or die $dbh->errstr;

    [download]

    Hope this helps!

    The way forward always starts with a minimal test.
[reply]
[d/l]
[select]

      You're using the VARCHAR2 data type but that's an Oracle data type.

      Good catch! FWIW, i tested them, the statements run fine in Oracle. :)

[reply]

      Inick

      Thank for your prompt response this is a homework the professor order me to use Acces with ODBC, but for me it like impossible install ODBC on ubuntu I got many issues with that, I Just want any you guys test this script and if work let me know otherwise tell which is the error present.

      Thanks Error I got 
       install_driver(ODBC) failed: Can't locate DBD/ODBC.pm in @INC (you ma
+y need to install the DBD::ODBC module) (@INC contains: /etc/perl /us
+r/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/li
+b/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.

      [download]
[reply]
[d/l]

        Which version of Ubuntu ?

        poj
[reply]

Back to Seekers of Perl Wisdom