[an error occurred while processing this directive] [an error occurred while processing this directive] [an error occurred while processing this directive] [an error occurred while processing this directive] [an error occurred while processing this directive] [an error occurred while processing this directive]
[an error occurred while processing this directive]# Use the DBI module use DBI qw(:sql_types); # Declare local variables my ($databaseName, $databaseUser, $databasePw, $dbh); my ($stmt, sth, @newRow); my ($telephone); # Set the parameter values for the connection $databaseName = "DBI:mysql:yourWebSite_com"; $databaseUser = "yourLoginId"; $databasePw = "yourLoginPassword"; # Connect to the database # Note this connection can be used to # execute more than one statement # on any number of tables in the database $dbh = DBI->connect($databaseName, $databaseUser, $databasePw) || die "Connect failed: $DBI::errstr\n"; # Create the statement. $stmt = "DELETE FROM Phonebook WHERE (Id = 'BBBBB')"; # Prepare and execute the SQL query $sth = $$dbh->prepare($$stmt) || die "prepare: $$stmt: $DBI::errstr"; $sth->execute || die "execute: $$stmt: $DBI::errstr"; # DELETE does not return records # Clean up the record set and the database connection $sth->finish(); $dbh->disconnect();