Inserting Data into a Table
Although SQL provides us the INSERT INTO statement for inserting records
into a database, I would suggest using the ADODB.Recordset object for doing
this to make things simpler.
So here's how you insert a new record:
<HTML>
<HEAD>
<TITLE>Student Records</TITLE>
</HEAD>
<body> <p><a href="http://www.vishwatech.com" title="Low cost ecommerce web development India
flash website design">Low cost ecommerce web development India
flash website design</a>
<%
Dim DB
38
Set DB = Server.CreateObject (“ADODB.Connection”)
DB.Mode = adModeReadWrite
DB.Open ("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" +
“C:\Databases\Students.mdb”)
Dim RS
Set RS = Server.CreateObject (“ADODB.Recordset”)
RS.Open “Students”, DB, adOpenStatic, adLockPessimistic
RS.AddNew
RS (“FirstName”) = “Manas”
RS (“LastName”) = “Tungare”
RS (“Email”) = “manas@manastungare.com”
RS (“DateOfBirth”) = CDate(“
RS.Update
%>
</BODY>
</HTML>
The first few lines are exactly the same as in the previous example. Note that
we set the Connection.Mode to adModeReadWrite since we are going to
insert data, which is a Write-operation. We also use the
adOpenStatic & adLockOptimistic while opening the Recordset for it to
be updateable.
The lines,
RS.AddNew
RS (“FirstName”) = “Manas”
RS (“LastName”) = “Tungare”
RS (“Email”) = “manas@manastungare.com”
RS (“DateOfBirth”) = CDate(“
RS.Update
are what do the main processing. RS.AddNew adds a new, blank record to the
database. Then you set the fields by assigning your data to the respective
fields of the Recordset. Note the short-cut syntax used in this example.
Finally, when you're done assigning all the values, execute the
Recordset.Update method to commit all changes to the record.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73