Källkoden för /anders.enges/xml/xml35.asp

---

<!--#include file="../inc/navstuff.asp" -->
<p>Man kan använda XML i ADO för att kunna hantera databaser "off-line"</p>
<p>Nedan kommer ett exempel på detta (jag använder här Access
   - det går lika bra med t.ex. SQL server bara man anpassar koden lite)</p>
<p>Är du lat kan du ladda ner en färdig variant <a href="adoxml.zip">här</a></p>
<ol>
   <li>Skapa en katalog med namnet <b>adoxml</b> <br>
     <br>
   </li>
   <li>Skapa en Access databas med namnet <b>xml.mdb</b> och sätt den i <b>adoxml</b>
     katalogen<br>
     <br>
   </li>
   <li>Skapa en tabell med namnet data och se till att ni har följande fält:<br>
     <table width="400" border="0" cellpadding="2" cellspacing="0">
       <tr bgcolor="#FFFFCC">
         <td><b>Fält</b></td>
         <td><b>Typ</b></td>
         <td><b>Övrigt</b></td>
       </tr>
       <tr>
         <td>IDRad</td>
         <td>AutoNumber</td>
         <td>Primary Key</td>
       </tr>
       <tr>
         <td>Texten</td>
         <td>Text</td>
         <td> </td>
       </tr>
       <tr>
         <td>Siffran</td>
         <td>Number</td>
         <td>Long Integer</td>
       </tr>
     </table>
     <br>
   </li>
   <li>Skriv in några rader i tabbellen och stäng sedan Access<br>
     <br>
   </li>
   <li>Skapa ett VB Standard EXE projekt (se till att spara koden i adoxml katalogen)<br>
     <br>
   </li>
   <li>Välj Menyn <b>Project</b>, <b>References</b> och se till att <br>
     <b>Microsoft ActiveX Data Objects 2.5 Library</b> är valt<br>
     Har du 2.7 går detta ochså - hittar du bara 2.1 borde du se till
     att uppdatera din dator med nyare MDAC från <a href="http://www.microsoft.com/data">http://www.microsoft.com/data</a><br>
     <br>
   </li>
   <li>Sätt in följande i formen:<br>
     <table border="0" cellspacing="0" cellpadding="2">
       <tr valign="top" bgcolor="#CCCCCC">
         <td width="295"><b>Kontroll</b></td>
         <td width="234"><b>Namn</b></td>
         <td width="96"><b>Text</b></td>
       </tr>
       <tr valign="top">
         <td width="295">CommandButton</td>
         <td width="234">cmd_OpenMDB</td>
         <td width="96">importera xml</td>
       </tr>
       <tr valign="top" bgcolor="#FFFFCC">
         <td width="295">CommandButton</td>
         <td width="234">cmd_UseXML</td>
         <td width="96">öppna xml</td>
       </tr>
       <tr valign="top">
         <td width="295">CommandButton</td>
         <td width="234">cmd_SaveXML</td>
         <td width="96">spara xml</td>
       </tr>
       <tr valign="top" bgcolor="#FFFFCC">
         <td width="295">CommandButton</td>
         <td width="234">cmd_UpdateMDB</td>
         <td width="96">importera xml</td>
       </tr>
       <tr valign="top">
         <td width="295">TextBox</td>
         <td width="234">txt_Texten</td>
         <td width="96"> </td>
       </tr>
       <tr valign="top" bgcolor="#FFFFCC">
         <td width="295">TextBox</td>
         <td width="234">txt_Siffran</td>
         <td width="96"> </td>
       </tr>
       <tr valign="top">
         <td width="295">Label</td>
         <td width="234">Label1</td>
         <td width="96"> </td>
       </tr>
       <tr valign="top" bgcolor="#FFFFCC">
         <td width="295">CommandButton</td>
         <td width="234">cmd_Navigera(0)</td>
         <td width="96"><<</td>
       </tr>
       <tr valign="top">
         <td rowspan="7" width="295">(Skapa en knapp med namnet cmd_Navigera och
           tag sedan sju kopieor så att du får en "controll array")</td>
         <td width="234">cmd_Navigera(1)</td>
         <td width="96"><</td>
       </tr>
       <tr>
         <td width="234" bgcolor="#FFFFCC">cmd_Navigera(2)</td>
         <td width="96" bgcolor="#FFFFCC">></td>
       </tr>
       <tr>
         <td width="234">cmd_Navigera(3)</td>
         <td width="96">>></td>
       </tr>
       <tr>
         <td width="234" bgcolor="#FFFFCC">cmd_Navigera(4)</td>
         <td width="96" bgcolor="#FFFFCC">Ändra</td>
       </tr>
       <tr>
         <td width="234">cmd_Navigera(5)</td>
         <td width="96">Spara</td>
       </tr>
       <tr>
         <td width="234" bgcolor="#FFFFCC">cmd_Navigera(6)</td>
         <td width="96" bgcolor="#FFFFCC">Radera</td>
       </tr>
       <tr>
         <td width="234">cmd_Navigera(7)</td>
         <td width="96">Ny</td>
       </tr>
     </table>
     <br>
   </li>
   <li>Resultatet borde bli någonting i stil med nedanstående bild:<br>
     <br>
     <img src="images/adoxml.gif" width="393" height="201"><br>
     <br>
   </li>
</ol>
<!--#include file="../inc/footer.asp" -->