För hantering av databaser i i VB 6.0 ASP sidor används ett system som heter ADO (active Data Objects). De som någon gång använt DAC eller DAO i VB känner igen sig. I Praktiken är ADO betydligt ENKLARE.
ADO:s grundkomponenter. Objekt är blå och kollektioner är gröna
<UL>
<LI><A href="dbc.asp">Connection</A> - Properties - Property
<UL> 
<LI>Errors - Error 
<LI>Command - Properties - Property
<UL> 
<LI>Parameters - Parameter</LI></UL> 
<LI><A href="dbr.asp">Recordset</A> - Properties - Property
<UL> 
<LI>Fields - Field - Properties - Property </LI></UL></LI></UL></LI></UL>Det vill säga:
<UL>
<LI>Det finns ett Connection objekt som har en Properiies Collection som består av olika Propery
<LI>Connection objektet har dessutom en Errors collection bestående av Error objekt
<LI>Den innehåller dessutom ett Command objekt som har Properties och parameters kollektioner
<LI>Den innehåller ett Recordset objekt som har en Fields collection som beståer av Field objekt </LI></UL>
Förstod ni någonting av ovanstående förklaring? Troligtvis inte..
OK, Ny sats
Vi använder databaser genom att hantera några typer av objekt:
<UL>
<LI>Connection håller kontakten med databasen
<LI>RecordSet håller kontakten med en tabell i databasen
<LI>Field håller reda på ett fält i databasen </LI></UL>
<H4>Nedanstående instruktioner gäller närmast för ASP sidor</H4>De övriga objekten behöver vi mer sällan
Oftast sker det i följande form 
<DIV class=code><% ' Skapa Connection objektet Set Conn = Server.CreateObject("ADODB.Connection") ' Öppna Connection objektet - tar kontakt med databasen Conn.Open "En sträng som säger vad vi skall kontakta" ' Skapar RecordSet objektet indirekt genom att låta Connection ' utföra en SQL sats Set RS = Conn.Execute("SELECT * FROM EXEMPELDATA") ' Vi loopar igenom hela tabellen (EOF = EndOfFile) Do While Not RS.EOF ' Vi använder Ett fält från Fields collection i RecordSet %> <% =RS("TEXT") %> <% ' Gå till nästa post RS.MoveNext Loop ' Stäng RecordSet objektet RS.Close ' Stäng Connection objektet Conn.Close ' Töm objekten helt Set Conn = Nothing Set RS = Nothing %></DIV>
Man kan ibland klara sig utan Connection men det är bäst att alltid med samma standardkonstruktion
<OL>
<LI>Skapa en Connection med Set connObject = Server.CreateObject("ADODB.Connection")
<LI>Öppna denna med connObject.Open "<A href="../asp/db1.asp">se enkel listning för exempel</A>" 
<LI>Använd antingen Set recordSetObjekt = Conn.Execute("SQL SATS") för listningar eller Set recordSetObjekt = Server.CreateObject("ADODB.RecordSet") recordSetObjekt.Open "kommando", connObject, <A href="#KK">kursortyp</A>, <A href="#KK">lockTyp</A>, <A href="#KK">alternativ</A> för bläddringar och insättningar </LI></OL>

<UL></UL>