Records toevoegen

Om een record toe te voegen aan de database kunnen meerdere manieren gebruikt worden. In deze tutorial maak ik gebruik van ADO. Het voorbeeld wordt zo simpel mogelijk gemaakt. Daarom laat ik een pagina met een formulier om de gegevens toe te voegen weg. Dit komt elders aan bod.

In het voorbeeld ga ik uit dat de toe te voegen gegevens al opgehaald zijn.

<% naam = "Fred" %>
<% achternaam = "Astaire" %>
<%
Set Con = Server.CreateObject("ADODB.Connection")
Con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=database.mdb"

Set Rs = Server.CreateObject("ADODB.Recordset")
Set Rs.ActiveConnection = Con
Rs.LockType = 3
Rs.CursorType = 1
Rs.Source = "tabelnaam"
Rs.Open
Rs.AddNew
Rs.Fields ("naam").value = naam
Rs.Fields ("achternaam").value = achternaam
Rs.Update

Rs.Close
Set Rs = Nothing
Con.Close
Set Con = Nothing
%>

Tot aan het aanmaken van het object recordset moet alles bekend voorkomen. Dit is in eerdere lessen aan de orde geweest. ActiveConnection is een eigenschap van ADO-recordset en geeft aan welk Connection-object in verband moet worden gebracht met het Recordset-object. Locktype en Cursortype komen later aan de orde. Voldoende voor hier is dat deze waarden aangeven aan de server over hoe de database bijgewerkt moet worden. Source is tevens een eigenschap van ADO-recordset. Geeft aan in welke tabel de gegevens moeten komen te staan. Vervolgens wordt de recordset geopend en geef je aan dat er een nieuw recordset toegevoegd gaat worden.

Door middel van Fields worden aan de velden in de database de juiste waarde gegeven. En tot slot laat je de database weten dat je iets wilt toevoegen. Na dit alles wordt de recordset weer gesloten net als de verbinding met de database. En nu kun je gegevens gaan toevoegen aan de database.