Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations wOOdy-Soft on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
loading a pulldown list from a database
- Thread starter cosports
- Start date
use the DBI module
i guess you want something like -
use DBI;
my ($database, $host, $user, $password) =
( "db_name", "localhost", "user_name", "password" );
# connect to database
my $dbh = DBI->connect("DBI:mysql:$database:$host",$user,$password) || die "Unable to connect to database.";
my $statement = "select field from table;";
# prepare statement
my $sth = $dbh->prepare($statement) || die "Can't prepare $statement";
# execute statement
my $rv = $sth->execute || die "can't execute the query";
print "Content-type: text/html\n\n";
print "<html><head></head><body>\n";
print "<form>\n";
print "<select>\n";
while(my @result = $sth->fetchrow_array) {
print "<option>@result[0]\n";
}
my $rc = $sth->finish;
$dbh->disconnect;
print "</select>\n";
print "</form>\n";
print "</body></html>\n";
i guess you want something like -
use DBI;
my ($database, $host, $user, $password) =
( "db_name", "localhost", "user_name", "password" );
# connect to database
my $dbh = DBI->connect("DBI:mysql:$database:$host",$user,$password) || die "Unable to connect to database.";
my $statement = "select field from table;";
# prepare statement
my $sth = $dbh->prepare($statement) || die "Can't prepare $statement";
# execute statement
my $rv = $sth->execute || die "can't execute the query";
print "Content-type: text/html\n\n";
print "<html><head></head><body>\n";
print "<form>\n";
print "<select>\n";
while(my @result = $sth->fetchrow_array) {
print "<option>@result[0]\n";
}
my $rc = $sth->finish;
$dbh->disconnect;
print "</select>\n";
print "</form>\n";
print "</body></html>\n";
- Thread starter
- #3
- Status
Similar threads
