Connection to MS access

[Zaara]

Hi

I am a newb to perl, n m tryin to get myself familiar with the syntax n stuff. I need to connect to a database in microsoft access. I 've optiperl n activestat perl installed on my machine.. can anyone plz guide me on how to connect to access through a perl program. Also do i need to install win32::odbc or dbi drivers to connect to MS access?

Thanks in advance!!

[dhascruz]

HI,

Using DBI you can connect the database.

1. first you create user dsn and connect your access database.
2. Download DBI module and install the module
3. Use the below code and connece the access databse

use DBI;
use strict;
 
 my $dbh = DBI->connect('DBI:ODBC:test','','') or die "Cannot connect: $DBI::errstr\n";
 
 my $sth1 = $dbh->prepare('Select * from test');
 

regards
dhascruz

[ocean999]

Hi

I am a newb to perl, n m tryin to get myself familiar with the syntax n stuff. I need to connect to a database in microsoft access. I 've optiperl n activestat perl installed on my machine.. can anyone plz guide me on how to connect to access through a perl program. Also do i need to install win32::odbc or dbi drivers to connect to MS access?

Thanks in advance!!

Hello,

Here an example to connect to MS Access with Perl:

    use DBI;
    use STRICT;
 
        $sqlstatement= $txt1->get('0.0','end');
 
    #open connection to Access database
    $dbh = DBI->connect('dbi:ODBC:driver=microsoft access driver (*.mdb);dbq=C:\dump9\Noordenwind.mdb');
 
    #prepare and execute SQL statement
 
    $sth = $dbh->prepare($sqlstatement);
    $sth->execute ||
    die "Could not execute SQL statement ... maybe invalid?";
 
 
    #output database results
 
    while (@row=$sth->fetchrow_array()){
    print "@row\n";
       }
 

Have fun.

Another Perl addict
Ocean999

[nickyxu]

Hi

I am a newb to perl, n m tryin to get myself familiar with the syntax n stuff. I need to connect to a database in microsoft access. I 've optiperl n activestat perl installed on my machine.. can anyone plz guide me on how to connect to access through a perl program. Also do i need to install win32::odbc or dbi drivers to connect to MS access?

Thanks in advance!!

Dear,

Have you finished this subject?
I am working on this program now.
I have spent the whole week to do it. But I can not find a good way.
Now I am trying to mount the remote directory.
Or, put the mdb file on the web site, and download it on local direcotry.
Obviously, both of them are not good choices.
Do you have some advice?

Thanks a lot!
I am look forward to hearing you.

Best Regards,
Xu

[nickyxu]

HI,

Using DBI you can connect the database.

1. first you create user dsn and connect your access database.
2. Download DBI module and install the module
3. Use the below code and connece the access databse



use DBI;
use strict;

my $dbh = DBI->connect('DBI:ODBC:test','','') or die "Cannot connect: $DBI::errstr\n";

my $sth1 = $dbh->prepare('Select * from test');

regards
dhascruz

I think this is only for local mdb file.
I have tried to create a data source, but Host, server, serverport doesn't work.
Maybe not, it says: Can't alloc filename
Say: My mdb file is on D:\mdb\B2000.mdb from the remote machine.
And I use: Host = server ip
database = d:\mdb\B2000.mdb
Error:Unable to locate database d:\mdb\B2000.mdb
If I made database = http://serverip/mdb/B200.mdb ( I set the virtual directory named mdb from IIS)
Error:Unable to locate database http://128.128.108.110/mdb/B2000.mdb

[nickyxu]

Hello,

Here an example to connect to MS Access with Perl:

    use DBI;
    use STRICT;
 
        $sqlstatement= $txt1->get('0.0','end');
 
    #open connection to Access database
    $dbh = DBI->connect('dbi:ODBC:driver=microsoft access driver (*.mdb);dbq=C:\dump9\Noordenwind.mdb');
 
    #prepare and execute SQL statement
 
    $sth = $dbh->prepare($sqlstatement);
    $sth->execute ||
    die "Could not execute SQL statement ... maybe invalid?";
 
 
    #output database results
 
    while (@row=$sth->fetchrow_array()){
    print "@row\n";
       }
 

Have fun.

Another Perl addict
Ocean999

This is a good example. But how to set for a remote access database?
Do you have any suggestion?

Thanks very very much!

[numberwhun]

Dear,

Have you finished this subject?
I am working on this program now.
I have spent the whole week to do it. But I can not find a good way.
Now I am trying to mount the remote directory.
Or, put the mdb file on the web site, and download it on local direcotry.
Obviously, both of them are not good choices.
Do you have some advice?

Thanks a lot!
I am look forward to hearing you.

Best Regards,
Xu

I have corrected the formatting of your post. Please do not top post. Always put your reply below the post you are replying to. Otherwise,

?
about
talking
are
you
what
know
anyone
will
how


Regards,

Jeff

[KevinADC]

This is a good example. But how to set for a remote access database?
Do you have any suggestion?

Thanks very very much!

This is a very old thread, the people that posted before you are long gone. The code posted by ocean999 is not valid perl code and will not run. It may have some insight into your question. Even though you are using perl as the interface to the database, your question about accessing a remote access database might be best asked in the access forum. Personally I don't know the answer to your question so I will be of no further help.

[nickyxu]

Thanks a lot, everyone!
I am going crazy about this!
Thanks again...

[casthescript1]

Modification to ocean999's posting to get it work for me:

#!/usr/bin/perl
# from http://www.thescripts.com/forum/thread520248.html
 
use DBI;
use STRICT;
 
$sqlstatement= "select * from tblName;";
 
#open connection to Access database
$dbh = DBI->connect('dbi:ODBC:driver=microsoft access driver (*.mdb);'.
      'dbq=C:\path\to\file.mde');
# Note: this worked for me on a .mde file, I assume .mdb files work, too.
 
#prepare and execute SQL statement
 
$sth = $dbh->prepare($sqlstatement);
$sth->execute ||
      die "Could not execute SQL statement ... maybe invalid?";
 
 
#output database results
 
while (@row=$sth->fetchrow_array())  {
   print "@row\n";
}
 
 
 
 

Hi

I am a newb to perl, n m tryin to get myself familiar with the syntax n stuff. I need to connect to a database in microsoft access. I 've optiperl n activestat perl installed on my machine.. can anyone plz guide me on how to connect to access through a perl program. Also do i need to install win32::odbc or dbi drivers to connect to MS access?

Thanks in advance!!