I searched a lot for simple but complete basic DBI-Access Connectivity example in web.. and I got none..
So I created one for myself!!:)
Program is testes in WIN-XP, ActivePerl,MS-Access environment.
- Create a database called Data in Access.
- Create a table Called Data table in it with ID(AutoNumber),Name,Marks field
- Then fill the table with whatever appropriate values you want.
- Create a System DSN(Here its name is 'DSN', Give any name you want!!)by going to Control Panel->Administrative Tools->Data Sources.
- Execute the program
use DBI;
print "Database Retrieve";
$dbh=DBI->connect('dbi:ODBC:DSN');
print "\n\nSEE ORIGINAL DATABASE";
$see="Select * from DataTable";
$holdnew=$dbh->prepare($see);
$holdnew->execute|| die "Sorry Kanree!!";
while(@row=$holdnew->fetchrow_array)
{print("\n@row\n");}
print "\n\nNow Insert A new name NEW and 100 Marks for same name name";
$insert="INSERT into DataTable (Name,Marks) VALUES ('New','100')";
$insert_handle=$dbh->prepare($insert);
$insert_handle->execute();
print "\n\nSee Inserted DataBase";
$see="Select * from DataTable";
$holdnew=$dbh->prepare($see);
$holdnew->execute|| die "Sorry Kanree!!";
while(@row=$holdnew->fetchrow_array)
{print("\n@row\n");}
print "\n\n Let Us Update Database where ID=1 with 600";
$update="UPDATE DataTable SET Marks = '600' WHERE ID=1 ";
$update_handle=$dbh->prepare($update);
$update_handle->execute();
print "\n\nSee Updated DataBase";
$see="Select * from DataTable";
$holdnew=$dbh->prepare($see);
$holdnew->execute|| die "Sorry Kanree!!";
while(@row=$holdnew->fetchrow_array)
{print("\n@row\n");}
#end of the code:)
Have a easy learning!!:)
