2. DB-Beispiel: Einfügen

Vorbedingungen für das Einfügen, Updaten oder Löschen von Datensätzen:

Recordset mit adOpenKeyset (1) oder adOpenDynamic geöffnet
Für das Locking adLockOptimistic (3)

Dim objcon, objrs, strsql 
Set objcon = Server.CreateObject("ADODB.Connection") 
  
objcon.Open _
  "DRIVER={Microsoft Access Driver (*.mdb)}; " & _ 
  "DBQ=" & Server.MapPath("/fpdb/dbpers.mdb") 
  
Set objrs = Server.CreateObject("ADODB.Recordset") 
strsql = "SELECT * FROM tblpersonen " & _
  "WHERE personennr = 0" 
  
'Recordset fürs Einfügen oder Updaten öffnen 
objrs.Open strsql, objcon, 1, 3 
  objrs.AddNew 
  objrs("nachname")= "Niemer" 
  objrs("vorname")= "Hugo" 
  objrs("jahrgang") = 1968 
objrs.Update