<!-- Presentation generated by Internet Assistant for Microsoft PowerPoint 97 -->
<HTML>
<HEAD>
<meta name="GENERATOR" content="Microsoft Internet Assistant for Microsoft PowerPoint 97">
<TITLE>Our program for today...</TITLE>
</HEAD>
<BODY >
<CENTER>
<TABLE WIDTH=100%>
<TR> <TD WIDTH=100% ALIGN=CENTER>
<A HREF="sld001.htm">First</A>
<A HREF="sld051.htm">Previous</A>
<A HREF="sld053.htm">Next</A>
<A HREF="sld080.htm">Last</A>
<A HREF="index.htm">Index</A>
<A HREF="http://dbi.perl.org">Home</A>
<A HREF="tsld052.htm">Text</A>
</TD> </TR>
<TR> <TD WIDTH=100% ALIGN=CENTER>
<IMG SRC="img052.gif" usemap="#Objmap" WIDTH=800 HEIGHT=600 BORDER=0>
</TD> </TR>
</TABLE>
<P>Slide 52 of 80</P>
</CENTER>
<!-- <UL>
<H2>Our program for today...</H2>
</UL></P>
<P><UL>
<H2> 1: #!/usr/bin/perl -w
</H2>
</UL><UL>
<H2> 2:
</H2>
</UL><UL>
<H2> 3: use DBI;
</H2>
</UL><UL>
<H2> 4:
</H2>
</UL><UL>
<H2> 5: $dbh = DBI->connect('', '', '', { RaiseError => 1 });
</H2>
</UL><UL>
<H2> 6:
</H2>
</UL><UL>
<H2> 7: $upd = $dbh->prepare("UPDATE prices SET price=? WHERE prod_id=?");
</H2>
</UL><UL>
<H2> 8: $ins = $dbh->prepare("INSERT INTO prices (prod_id,price) VALUES(?,?)");
</H2>
</UL><UL>
<H2> 9: $rows = $upd->execute(42, "Widgets");
</H2>
</UL><UL>
<H2>10: $ins->execute("Widgets", 42) if $rows == 0;
</H2>
</UL><UL>
<H2>11:
</H2>
</UL><UL>
<H2>12: $dbh->disconnect;</H2>
</UL></P>
<P> -->
</Body>
</HTML>