Dave,
What you have is mostly a mis-ordering of the lines. try this instead:
Code:
#SQL CODE
my $dbh = DBI->connect("DBI:mysql:daveDB","dave","pass412");
my $sql = "INSERT INTO user_accounts (username, email, password)
VALUES ($NewUserName, $NewEmail, $CryptPassword)";
my $sth = $dbh->prepare($sql);
my $res = $sth->execute();
$sth->finish();
$dbh->disconnect();
print end_html;
Once $dbh is defined, a "prepare" call is needed to get the SQL statement into the object.
As a side note, for best coding practice, you should have a " -w" after the perl line at the top (like this: "#!/usr/local/bin/perl -w") OR "use warnings;" to be sure you're told about things that could be mistakes. It's also a very good idea to "use strict;", which forces you to declare variables with "my" before you can use them. This also helps to make in obvious what variable scope you're expecting and can really reduce the amount of hair you pull out during a project.
HTH!
Steve
Quote:
Originally Posted by Dave247
Here is my Perl code with the DBI code in there to access the database:
When I run this, I get this error message: "Can't locate object method "disconnect" via package "INSERT INTO user_accounts (username, email, password)"Dave247
HI to everyone, I have been for a very long time in my life a GUI user, and now that i have to use a Solaris 5 terminal, i am not sure how to do some things:
Downloading stuff from the internet:
How do i do that?
in a GUI you just click on the link and start downloading automatic, but i have... (4 Replies)
We ran into an issue trying to install DBI and DB2 modules for perl for AIX from the link
http://www-306.ibm.com/software/data/db2/perl/
We tried to install the DBI module using
bash# perl -MCPAN -e 'install DBI'
command. However we ended up with the following error.
Stop.
... (3 Replies)
Hey,
I connected with Cygwin and this command:
"ssh -Y USER@web.com"
Then trying to open a program, but this error appeared:
"Cannot open X display: DISPLAY variable unset"
what do I have to do?
Thanks.
Alex (3 Replies)
hi i am trying to connect to an oracle database using dbi and i get this ::
Driver has not implemented the disconnect_all method. at /opt/perl/lib/site_perl/5.8.0/sun4-solaris/DBI.pm line 575
END failed--call queue aborted.
for all i know, the script was working earlier, but has... (1 Reply)
Hi, i have some queries on installing the Perl DBI and the DBD Oracle.
I know that i have to install the DBI first. I have the source files in a folder in my home directory.The commands to install arecd /home/DBI
Perl Makefile.PL
make
make installI would like to know, after executing these... (4 Replies)
Hello !
I am working on a small Perl script that should connect to the MySQL server, will select all the databases one by one and do some queryes on each. I started working on it but I just saw that on the DBI manual page there's no method for changing the working database. Am I missing... (2 Replies)
Hi,
I want to connect perl with the mysql to select and so on but the connection don't work
code
#!/usr/bin/perl
BEGIN {
# PERL MODULES WE WILL BE USING
use DBI;
$dbh = DBI->connect('DBI:mysql:C:\Program Files\MySQL\MySQL Server 5.0\data\db1','','pass') or die $DBI::errstr;}
#... (1 Reply)
Hi there, I have a bit of code similar to below (which ive actually got from perldoc, but mine is similar enough)
$sth = $dbh->prepare(q{ SELECT region, sales FROM sales_by_region });
$sth->execute;
my ($region, $sales);
# Bind Perl variables to columns:
$rv =... (4 Replies)
Hi All,
I installed DBI module in a non INC location and using it in my script via "use lib".
But it throw the below error at the "use DBI" step.
Please help
Usage: DBI::_install_method(dbi_class, meth_name, file, attribs=Nullsv) at /xx/xxx/xxxxx/xxxxx/oracle/lib/DBI.pm/oracle/lib/DBI.pm line... (2 Replies)
Discussion started by: prasperl
2 Replies
LEARN ABOUT DEBIAN
catalyst::model::dbi
Catalyst::Model::DBI(3pm) User Contributed Perl Documentation Catalyst::Model::DBI(3pm)NAME
Catalyst::Model::DBI - DBI Model Class
SYNOPSIS
# use the helper
create model DBI DBI dsn username password
# lib/MyApp/Model/DBI.pm
package MyApp::Model::DBI;
use base 'Catalyst::Model::DBI';
__PACKAGE__->config(
dsn => 'dbi:Pg:dbname=myapp',
password => '',
username => 'postgres',
options => { AutoCommit => 1 },
);
1;
my $dbh = $c->model('DBI')->dbh;
#do something with $dbh ...
DESCRIPTION
This is the "DBI" model class.
METHODS
new Initializes DBI connection
$self->dbh
Returns the current database handle.
$self->stay_connected
Returns a connected database handle.
$self->connected
Returns true if the database handle is active and pingable.
$self->connect
Connects to the database and returns the handle.
$self->disconnect
Executes rollback if AutoCommit is active, disconnects and unsets the database handle.
SEE ALSO
Catalyst, DBI
AUTHOR
Alex Pavlovic, "alex.pavlovic@taskforce-1.com"
COPYRIGHT
Copyright (c) 2005 - 2009 the Catalyst::Model::DBI "AUTHOR" as listed above.
LICENSE
This program is free software, you can redistribute it and/or modify it under the same terms as Perl itself.
perl v5.14.2 2010-01-28 Catalyst::Model::DBI(3pm)
12-13-2009
