Basic Perl Programming Access to Database Windows Environment

Basic Perl Programming Access to Database

Windows Environment (Win 32: : ODBC) l l l Access to databases using windows Perl module (Win 32: : ODBC) Database files must be registered in ODBC through Data Source Name (DSN) Type of database: any database application which has the capabilities to communicate with ODBC driver

Windows Environment (Win 32: : ODBC) l Example part 1:

Windows Environment (Win 32: : ODBC) l Example part 2:

Windows Environment (Win 32: : ODBC) Example part 3: Information about the database: l File name db 1. mdb Table pelajar Fields nama, no_kp, kursus DSN db 1

Windows Environment (Win 32: : ODBC) l Example part 4: #! /usr/bin/perl use Win 32: : ODBC; $DSN = "db 1"; $db = new Win 32: : ODBC($DSN);

Windows Environment (Win 32: : ODBC) l Example part 4: $db->Sql("insert into pelajar values('AL FIRDAUS MOHAMAD', '7806', '4 SCK')"); $db->Sql("select * from pelajar"); $count = 0; while($db->Fetch. Row()){ $count++; %data = $db->Data. Hash(); print "$count. $data{nama}n $data{kursus}nn"; } $db->Close(); $data{no_kp}n

Windows Environment (DBI) l Example part 1: #! /usr/bin/perl use DBI; $dbh = DBI->connect("DBI: ODBC: db 1", ""); $sth = $dbh->prepare("insert into pelajar values('AZHAR EFFENDY', '7701', '4 SCK')"); $sth->execute; $sth->finish;

Windows Environment (DBI) l Example part 2: $sth = $dbh->prepare("select * from pelajar"); $sth->execute; while ($data = $sth->fetchrow_hashref) { print "$data->{nama} - $data->{no_kp} – ", "$data->{kursus}n"; } $sth->finish;

DBI Module/Class l l l Most flexible technique to access all kind of databases using Perl We can just port the script in the example above directly to Linux/Unix environment For example (my. SQL), just change the driver as followed: $dbh = DBI->connect("DBI: mysql: db", “u", “p");