Wrox Programmer Forums

Need to download code?

View our list of code downloads.

Go Back   Wrox Programmer Forums > Open Source > Perl
Password Reminder
Register
Register | FAQ | Members List | Calendar | Search | Today's Posts | Mark Forums Read
Welcome to the p2p.wrox.com Forums.

You are currently viewing the Perl section of the Wrox Programmer to Programmer discussions. This is a community of tens of thousands of software programmers and website developers including Wrox book authors and readers. As a guest, you can read any forum posting. By joining today you can post your own programming questions, respond to other developers’ questions, and eliminate the ads that are displayed to guests. Registration is fast, simple and absolutely free .
DRM-free e-books 300x50
Reply
 
Thread Tools Search this Thread Display Modes
  #1 (permalink)  
Old October 4th, 2006, 10:16 AM
Friend of Wrox
Points: 8,019, Level: 38
Points: 8,019, Level: 38 Points: 8,019, Level: 38 Points: 8,019, Level: 38
Activity: 0%
Activity: 0% Activity: 0% Activity: 0%
 
Join Date: Jan 2005
Location: Mauchline, East Ayrshire, Scotland
Posts: 1,525
Thanks: 0
Thanked 0 Times in 0 Posts
Send a message via ICQ to crmpicco Send a message via AIM to crmpicco Send a message via MSN to crmpicco Send a message via Yahoo to crmpicco
Default connect to MySQL DB from Perl

Code:
#!/usr/bin/perl -w
   2:use DBI;
   3:
   4:$DSN = "DBI:mysql:database=guestdb";
   5:my $dbh = DBI->connect($DSN) || die "Can't connect";
   6:my $qs = $dbh->prepare("Select * from guestTbl");
   7:
   8:$qs->execute();
   9:
  10:while (my $rs=$qs->fetchrow_hashref()){
  11:    print "Name: ",$rs->{'name'}," EMail: ",$rs->{'email'};
  12:    print " msgFrom: ",$rs->{'msgFrom'},"\n";
  13:}
  14:
  15:$qs->finish();
  16:$dbh->disconnect;
  17:
  18:exit;
I have found this snippet of code, is the ample for connecting to a MySQL Database on a Win32 machine (if I change the /usr/bin/perl)??

Picco

www.crmpicco.co.uk
www.ie7.com
__________________
_______________________
Ayrshire Minis - a Mini E-Community
http://www.ayrshireminis.com
http://www.crmpicco.co.uk
Reply With Quote
  #2 (permalink)  
Old October 4th, 2006, 10:40 AM
Friend of Wrox
Points: 8,019, Level: 38
Points: 8,019, Level: 38 Points: 8,019, Level: 38 Points: 8,019, Level: 38
Activity: 0%
Activity: 0% Activity: 0% Activity: 0%
 
Join Date: Jan 2005
Location: Mauchline, East Ayrshire, Scotland
Posts: 1,525
Thanks: 0
Thanked 0 Times in 0 Posts
Send a message via ICQ to crmpicco Send a message via AIM to crmpicco Send a message via MSN to crmpicco Send a message via Yahoo to crmpicco
Default

Seemingly not, the code below when run win MS IE 6 on a WinXP Pro machine gives me an error (shown below). I have a password on my DB, is this the problem?

Code:
#! C:/Perl/bin/perl.exe
use DBI;

$DSN = "DBI:mysql:database=league";
my $dbh = DBI->connect($DSN) || die "Can't connect";
my $qs = $dbh->prepare("Select * from admin_login");

$qs->execute();

while (my $rs=$qs->fetchrow_hashref())
{
    print "username: ",$rs->{'username'}," password: ",$rs->{'password'};
    print "\n";
}

$qs->finish();
$dbh->disconnect;

exit;
Error:
CGI Error
The specified CGI application misbehaved by not returning a complete set of HTTP headers. The headers it did return are:


DBI connect('database=league','',...) failed: Access denied for user 'ODBC'@'localhost' (using password: NO) at c:\inetpub\wwwroot\picco\db_connexion.pl line 5
Can't connect at c:\inetpub\wwwroot\picco\db_connexion.pl line 5.




www.crmpicco.co.uk
www.ie7.com
Reply With Quote
  #3 (permalink)  
Old October 5th, 2006, 11:23 AM
Friend of Wrox
Points: 1,515, Level: 15
Points: 1,515, Level: 15 Points: 1,515, Level: 15 Points: 1,515, Level: 15
Activity: 0%
Activity: 0% Activity: 0% Activity: 0%
 
Join Date: Dec 2003
Location: Oxford, , United Kingdom.
Posts: 488
Thanks: 0
Thanked 3 Times in 3 Posts
Default

Hallo crmpicco, see if this helps:
Code:
use DBI;
use CGI qw(:standard); # CPAN cgi module - very handy 
                       # docs at: http://search.cpan.org/dist/CGI.pm/



# replace these with the actual username and passowrd you have set 
# up on mysql.
# more at:  http://dev.mysql.com/doc/refman/5.0/...ing-users.html
my $db='DBI:mysql:league';
my $username = 'username';
my $pass = 'secret';
my $dbh = DBI->connect($db, $username, $pass) || die "Can't connect, $!";
my $qs = $dbh->prepare("Select * from admin_login");
$qs->execute();

# send http headers
print header(),
  start_html(-style=>{'src'=>'/stylesheets/your.css'},
             -title=>"TEST PAGE");

while (my $rs=$qs->fetchrow_hashref())
{
    print p( "username: ",$rs->{'username'}," password: ",$rs->{'password'});
    print "\n";
}

$qs->finish();
$dbh->disconnect;

exit;
HTH

--
Don't Stand on your head - you'll get footprints in your hair
                                           http://charlieharvey.org.uk
                                              http://charlieharvey.com
Reply With Quote
Reply


Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is Off
HTML code is Off
Trackbacks are Off
Pingbacks are On
Refbacks are Off


Similar Threads
Thread Thread Starter Forum Replies Last Post
connect to mysql db from php 5 crmpicco PHP Databases 1 September 26th, 2007 05:14 PM
connect to MySQL DB -(0x80004005) crmpicco Classic ASP Databases 0 May 18th, 2006 12:31 PM
Perl DBI/ DBD Mysql Module Problems dodorisio Linux 0 November 15th, 2004 07:51 PM
Trying to connect to Mysql tp194 Classic ASP Databases 4 November 11th, 2004 12:12 AM



All times are GMT -4. The time now is 10:11 AM.


Powered by vBulletin®
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.
© 2013 John Wiley & Sons, Inc.