#!/usr/bin/perl
$first = $field{'first'};
$last = $field{'last'};
$address = $field{'address'};
$email = $field{'email'};
$phone = $field{'phone'};
$user = $field{'user'};
$pass = $field{'pass'};
use DBI;
$dbh = DBI->connect("dbi:ODBC:'driver = Driver do Microsoft Access(*.mdb);
dbq=test.mdb'");
print"this is a test
";
$sql = qq{INSERT INTO Dreamcpu(FirstName, LastName, Address, Email, Phone, Username, Password) VALUES ('$first', '$last', '$adress', '$email','$phone', '$user', '$pass');};
$rc = $dbh->do($sql);
print"$rc record(s) were added.";
$sth = $dbh->prepare("SELECT ID,FirstName,LastName,Address,Email,Phone,Username,Password FROM Dreamcpu");
$sth->executive();
print"
\n";
print" | ID | First | Last | Address | Email | Phone | User | Password | \n";
while (@row = $sth->fetchrow_array)
{
print"
";
foreach(@row)
{
print"| $_ | ";
}
print"
\n";
}
print"
\n";
print"";
$sth->finish;
$dbh->disconnect;