perl（0002）

「perl（0002）」の編集履歴（バックアップ）一覧はこちら

「perl（0002）」(2008/07/12 (土) 17:10:28) の最新版変更点

追加された行は緑色になります。

削除された行は赤色になります。

<p><br />
DBI Memo<br /><br />
ttp://www.atmarkit.co.jp/flinux/rensai/mysql04/mysql04b.html<br /><br /><font face="Courier New">1  use DBI;<br />
2<br />
3  $user = 'test';<br />
4  $passwd = 'test0001';<br />
5  $db = DBI-&gt;connect('DBI:mysql:ATWEKI:localhost', $user, $passwd);<br />
6  $sth = $db-&gt;prepare(&quot;INSERT INTO list VALUES (1,'1st','memo 1st')&quot;);<br />
7  $sth-&gt;execute;<br />
8  $sth-&gt;finish;<br />
9  $db-&gt;disconnect;<br /><br /></font></p>

<p><br />
DBI Memo<br /><br />
ttp://www.atmarkit.co.jp/flinux/rensai/mysql04/mysql04b.html<br /><br /><br /><font face="Courier New">------------------------------------------------------------------------------------</font><br /><font face="Courier New">use DBI;<br /><br />
$user = 'test';<br />
$passwd = 'test0001';<br />
$db = DBI-&gt;connect('DBI:mysql:ATWEKI:localhost', $user, $passwd);<br />
$sth = $db-&gt;prepare(&quot;INSERT INTO list VALUES (1,'1st','memo 1st')&quot;);<br />
$sth-&gt;execute;<br />
$sth-&gt;finish;<br />
$db-&gt;disconnect;<br /><br />
------------------------------------------------------------------------------------</font></p>
<p><font face="Courier New"><br />
------------------------------------------------------------------------------------<br />
use DBI;<br /><br />
$user = 'test';<br />
$passwd = 'test0001';<br />
$db = DBI-&gt;connect('DBI:mysql:ATWEKI:localhost', $user, $passwd);<br />
$sth = $db-&gt;prepare(&quot;SELECT id, name, memo FROM list&quot;);<br />
$sth-&gt;execute;<br />
$num_rows = $sth-&gt;rows;<br />
print &quot;該当 $num_rows 件\n&quot;;<br />
for ($i=0; $i&lt;$num_rows; $i++) {<br />
 @a = $sth-&gt;fetchrow_array;<br />
 print &quot;id=$a[0], name=$a[1] memo=$a[2] \n&quot;;<br />
}<br />
$sth-&gt;finish;<br />
$db-&gt;disconnect;<br /><br />
------------------------------------------------------------------------------------<br /><br /></font></p>