Bruce:
use warnings;
use strict;
use DBI;
my $dbname = 'Bruce';
my $dbhostname = 'localhost';
my $user = 'root';
my $password = '' ;
my $cs = "CREATE TABLE employee_Info (primary_key INT AUTO_INCREMENT NOT
NULL, name CHAR(20), surname CHAR(20), employee_no CHAR(10), shoe_colour
CHAR (10), PRIMARY KEY (primary_key))";
my $db = DBI->connect
("dbi:mysql:dbname=$dbname;host=$dbhostname;$user;$password") or
print"Connect fails ".DBI::errstr."\n";
my $sth = $db->prepare($cs) or print"Prepare fails ".DBI::errstr."\n";
$sth->execute() or print"Execute fails ".DBI::errstr."\n";
$sth->finish;
$db->do ("INSERT INTO Employee_Info (primary_key, name, surname,
shoe_colour, employee_no) values (1,'Ambraal','Bruce','White', '9536826')")
or print"Insert 1 fails ".DBI::errstr."\n";
$db-> do("INSERT INTO Employee_Info (primary_key, name, surname,
shoe_colour, employee_no) values (2, 'September', 'John',
'Pink','9536456')")or print"Insert 2 fails ".DBI::errstr."\n";
$db->do("DELETE FROM Employee_Info WHERE shoe_colour = 'Pink'") or
print"Delete fails ".DBI::errstr."\n";
$db->do("UPDATE Employee_Info SET name = 'August' WHERE primary_key = 2")or
print"Update fails ".DBI::errstr."\n";
$db->disconnect();
That should get you started...
"Bruce Ambraal" <[EMAIL PROTECTED]> wrote in message
[EMAIL PROTECTED]">news:[EMAIL PROTECTED]...
Hi All
I need some one to comment on the program below
With the code below I am trying to design a table that allows a simple
message board server to:
1) Save a message,
2) delete a message,
3) update a message
The password + username must be saved in the same table entry, and compare
it when receiving an update or delete.
----------------------------------------------------------------------------
---------------------------------------
#!/usr/local/bin/perl
use DBI;
my $dbname = 'Bruce';
my $dbhostname = 'localhost';
my $user = 'root';
my $password = '' ;
CREATE TABLE employee_Info (
primary_key INT AUTO_INCREMENT NOT NULL,
name CHAR(20),
surname CHAR(20),
employee_no CHAR(10),
shoe_colour CHAR (10),
PRIMARY KEY (primary_key)
);
my $db = dbi->connect ("dbi:mysql:dbname ; host =
$dbhostname;$user;$passwd");
$db->do ("SAVE INTO Employee_Info (primarykey, name, surname, shoecolour,
employee_no) value(1,'Ambraal','Bruce','White', '9536826')");
$db-> do(" SAVE INTO Employee_Info (primarykey, name, shoecolour, employee
_no) value(2, 'September', 'John', 'Pink','9536456')");
$db->do("DELETE FROM Employee_Info (
$db->do("UPDATE FROM Employee_Info (
$db->disconnect();
;
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
