At 05:24 AM 8/29/00 -0400, you wrote:
>#!/usr/bin/perl
>
>use DBI;
>
>$MYSQL_HOST=localhost;
>$MYSQL_USER=widya;
>$MYSQL_PASS=mypass;
>$DATABASE=test;
>
>my $dbh= DBI->connect("DBI:mysql:database=$DATABASE;host=$MYSQL_HOST",
>$MYSQL_USER,$MYSQL_PASS);
>
>my $sth = $dbh->prepare("SELECT * FROM contoh");
>$sth->execute;
>$sth->finish;
>$dbh->disconnect;
>exit;
#!/usr/bin/perl
use DBI;
$MYSQL_HOST=localhost;
$MYSQL_PORT=3306;
$MYSQL_USER=widya;
$MYSQL_PASS=mypass;
$DATABASE=test;
my @rsth;
my $dbh=
DBI->connect("DBI:mysql:$DATABASE:$MYSQL_HOST:$MYSQL_PORT","$MYSQL_USER","$MYSQL_PASS");
# tapi kalo pake di local host sih cukup :
# my $dbh= DBI->connect("DBI:mysql:$DATABASE","$MYSQL_USER","$MYSQL_PASS");
my $sth = $dbh->prepare("SELECT * FROM contoh");
$sth->execute;
while(@rsth=$sth->fetchrow_array)
{ print "$rsth[0], $rsth[1], $rsth[2]\n";
# jumlah $rsth[0] s/d $rsth[n] tergantung jumlah fields di table contoh
# tapi kalo mau nampilin satu fields aja juga bisa
}
$sth->finish;
$dbh->disconnect;
Persib-Maung-Bandung
^^^^^^^^^^^^^^^^^^^
--------------------------------------------------------------------------------
Utk berhenti langganan, kirim email ke [EMAIL PROTECTED]
Informasi arsip di http://www.linux.or.id/milis.php3
Pengelola dapat dihubungi lewat [EMAIL PROTECTED]
