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

---

<!--#include file="../inc/navstuff.asp" -->
<p><b>Tema:</b><br />Öppnande och stängande av databasen samt koppling till textboxarna</p>

<p>Öppna upp koden till formen som konstruerades i föregående kapitel.</p>
<p>Sätt in följande i <b>General Declarations</b></p>
<div class="code">
' Kontakten till databasen<br />
Private WithEvents Conn As ADODB.Connection<br />
' Själva tabellen<br />
Private WithEvents RS As ADODB.Recordset<br />
</div>
<p>Bråkar VB om någon av ovanstående rader skall du kolla om du utfört punkt 11 på föregående sida</p>
<p>Välj sedan <b>Form_Load</b> händelsen i VB och skriv in följande kod i denna händelse</p>
<div class="code">
Dim strSQL As String<br />
<br />
Set Conn = New ADODB.Connection<br />
Set RS = New ADODB.Recordset<br />
     <br />
' modifiera vid behov sökvägen till databasen<br />
' OBS! skall skrivas på en rad<br />
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\adotest.mdb"<br />
<br />
strSQL = "SELECT * FROM ado"<br />
<br />
RS.Open strSQL, Conn, adOpenKeyset, adLockOptimistic<br />
   <br />
' Kopplar textboxarna till rätt fält<br />
Set txtEnText.DataSource = RS<br />
txtEnText.DataField = "EnText"<br />
    <br />
Set txtEttDatum.DataSource = RS<br />
txtEttDatum.DataField = "EttDatum"<br />
   <br />
Set txtEttNummer.DataSource = RS<br />
txtEttNummer.DataField = "EttNummer"<br />
   <br />
Set txtEnMemo.DataSource = RS<br />
txtEnMemo.DataField = "EnMemo"<br />
<br />
</div>

<p>Provkör. Om det inte fungerar så kontrollerar du att du döpt om alla textboxar till rätta namn. Kontrollera även fältens namn i tabellen </p>
<p>Skriv in följande kod i <b>Form_Unload</b> händelsen</p>
<div class="code">
RS.Close<br />
Conn.Close<br />
Set RS = Nothing<br />
Set Conn = Nothing<br /><br />
</div>
<!--#include file="../inc/footer.asp" -->