Källkoden för /anders.enges/ado/dbvb.asp

---

<!--#include file="../inc/navstuff.asp" -->
<p>Man kan med fördel använda ADO i VB 6.0 istället för DAO. </p>
<h4>Följande förberedelser behövs för exemplet:</h4>
<h4>Databasen</h4>
<ol>
<li>Skapa en databas i Access 97 eller (helst) 2000<br /></li>
<table>
<tr><td>Namn:</td><td><b>C:\adotest.mdb</b></td><td> </td></tr>
<tr><td>Tabell:</td><td><b>ado</b></td><td> </td></tr>
<tr><td>Fälten</td><td><b>ID</b></td><td>AutoNumber (primary key)</td></tr>
<tr><td> </td><td><b>EnText</b></td><td>Text, 50</td></tr>
<tr><td> </td><td><b>EttDatum</b></td><td>Date/Time</td></tr>
<tr><td> </td><td><b>EttNummer</b></td><td>Number, Long Integer</td></tr>
<tr><td> </td><td><b>EnMemo</b></td><td>Memo</td></tr></table>
<br />
<li>Skriv in minst fem rader i denna tabell<br /></li>
</ol>
<h4>Skapa VB programmet</h4>
<ol>
<li>Skapa ett program i VB 6.0 <br /></li>
<table>
<tr><td>Programtyp</td><td><b>Standard Exe</b></td><td></td></tr>
<tr><td></td><td><b>Project Name</b></td><td>prjADO</td></tr>
<tr><td>Form</td><td><b>Name</b></td><td>frmADO</td></tr>
<tr><td> </td><td><b>Caption</b></td><td>Ado Databaser</td></tr>
</table><br />
<li>Sätt in fyra TextBoxar i formen<br /></li>
<table>
<tr><td>Första textboxen</td><td><b>Name</b></td><td>txtEnText</td></tr>
<tr><td>Andra textboxen</td><td><b>Name</b></td><td>txtEttDatum</td></tr>
<tr><td>Tredje textboxen</td><td><b>Name</b></td><td>txtEttNummer</td></tr>
<tr><td>Fjärde textboxen</td><td><b>Name</b></td><td>txtEnMemo</td></tr>
<tr><td> </td><td><b>MultiLine</b></td><td>True</td></tr>
</table><br />
<li>Sätt in en Command Button i formen<br /></li>
<table>
<tr><td> </td><td><b>Name</b></td><td>cmdNavigera</td></tr>
<tr><td> </td><td><b>Caption</b></td><td>Först</td></tr>
</table><br />
<li>Välj cmdNavigera knappen och tag en kopia med t.ex. Ctrl+C<br /><br /></li>
<li>Tryck Ctrl+V<br /><br /></li>
<li>När VB frågar "Do You want to create a control Array" svarar du Ja<br /><br /></li>
<li>Kopiera in tre kopior av knappen. Se till att dessa placeras in på formen från vänster till höger<br /><br /></li>
<li>Sätt Caption på knapparna till "Först", "Föregående", "Nästa" och "Sist" med början från vänster<br /><br /></li>
<li>Sätt in en Label på formen och ge den namnet lblStatus<br/><br /></li>
<!--  <li>Resultatet borde bli någonting i denna stil:<br/><br /></li>
<img src="../images/adovb.gif" alt="VB formen" /><br /><br /> -->
<li>Välj sedan i menyn: <b><u>P</u>roject</b>, <b>Refere<u>n</u>ces</b> och se
till att <b>Microsoft ActiveX Data Objects 2.x Libray</b> är valt. Bäst fungerar
programmen om man installerat VB:s servicepack 4.
Versionsnumret är då 2.5 på ADO. Version 2.1 duger dock. <br /><br />(Finns det bara 2.0 som senaste version borde du fundera på att uppdatera systemet.<br/>
En nyare version av ADO kan fås på adressen <a href="http://www.microsoft.com/data/download.htm">http://www.microsoft.com/data/download.htm</a>)<br /><br /></li>
<li>Spara programmet på lämpligt ställe</li>
</ol>
<!--#include file="../inc/footer.asp" -->