
Cure
User
Jun 15, 2001, 8:29 PM
Post #2 of 2
(2085 views)
|
use DBI; my $DSN = "DBI:mysql:db"; my $user = "you"; my $pw = "secret"; $dbh = DBI->connect($DSN,$user,$pw) or die "Cannot connect: $DBI::errstr\n"; my $query = " select id,username,password from access where username = ? "; my $sth = $dbh->prepare($query) or die $DBI::errstr; $sth->execute($username) or die $DBI::errstr; while ( my($id,$username,$password) = $sth->fetchrow_array()) { print " $id $username $password "; } Cure
|