perl(0002)


※上記の広告は60日以上更新のないWIKIに表示されています。更新することで広告が下部へ移動します。


DBI Memo

ttp://www.atmarkit.co.jp/flinux/rensai/mysql04/mysql04b.html


------------------------------------------------------------------------------------
use DBI;

$user = 'test';
$passwd = 'test0001';
$db = DBI->connect('DBI:mysql:ATWEKI:localhost', $user, $passwd);
$sth = $db->prepare("INSERT INTO list VALUES (1,'1st','memo 1st')");
$sth->execute;
$sth->finish;
$db->disconnect;

------------------------------------------------------------------------------------


------------------------------------------------------------------------------------
use DBI;

$user = 'test';
$passwd = 'test0001';
$db = DBI->connect('DBI:mysql:ATWEKI:localhost', $user, $passwd);
$sth = $db->prepare("SELECT id, name, memo FROM list");
$sth->execute;
$num_rows = $sth->rows;
print "該当 $num_rows 件\n";
for ($i=0; $i<$num_rows; $i++) {
 @a = $sth->fetchrow_array;
 print "id=$a[0], name=$a[1] memo=$a[2] \n";
}
$sth->finish;
$db->disconnect;

------------------------------------------------------------------------------------

ツールボックス

下から選んでください:

新しいページを作成する
ヘルプ / FAQ もご覧ください。