Menambahkan Record ADO

Kami dapat menggunakan perintah INSERT INTO SQL untuk menambahkan catatan ke tabel dalam database.

Menambahkan catatan ke tabel dalam database

Kami berharap menambahkan catatan baru ke tabel Customers dalam database Northwind. Pertama-tentu, kami harus membuat suatu formulir yang berisi bidang input yang perlu kami kumpulkan data dari sana:

<html>
<body>
<form method="post" action="demo_add.asp">
<table>
<tr>
<td>CustomerID:</td>
<td><input name="custid"></td>
</tr><tr>
<td>Company Name:</td>
<td><input name="compname"></td>
</tr><tr>
<td>Contact Name:</td>
<td><input name="contname"></td>
</tr><tr>
<td>Address:</td>
<td><input name="address"></td>
</tr><tr>
<td>City:</td>
<td><input name="city"></td>
</tr><tr>
<td>Postal Code:</td>
<td><input name="postcode"></td>
</tr><tr>
<td>Country:</td>
<td><input name="country"></td>
</tr>
</table>
<br /><br />
<input type="submit" value="Tambahkan Baru"> 
<input type="reset" value="Batal">
</form>
</body>
</html>

Ketika pengguna menekan tombol konfirmasi, formulir ini akan dikirim ke berkas yang dinamai "demo_add.asp". Berkas "demo_add.asp" mengandung kode untuk menambahkan rekord baru ke tabel Customers:

<html>
<body>
<%
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open "c:/webdata/northwind.mdb"
sql="INSERT INTO customers (customerID,companyname,"
sql=sql & "contactname,address,city,postalcode,country)"
sql=sql & " VALUES "
sql=sql & "('" & Request.Form("custid") & "',"
sql=sql & "'" & Request.Form("compname") & "',"
sql=sql & "'" & Request.Form("contname") & "',"
sql=sql & "'" & Request.Form("address") & "',"
sql=sql & "'" & Request.Form("city") & "',"
sql=sql & "'" & Request.Form("postcode") & "',"
sql=sql & "'" & Request.Form("country") & "')"
on error resume next
conn.Execute sql,recaffected
if err<>0 then
  Response.Write("Tidak ada izin untuk memperbarui!")
else 
  Response.Write("<h3>" & recaffected & " rekord ditambahkan</h3>")
end if
conn.close
%>
</body>
</html>

Perhatian Penting

Pada saat Anda menggunakan perintah INSERT command, perhatikan hal berikut:

  • Jika tabel memiliki primary key, pastikan nilai yang ditambahkan ke field primary key adalah unik dan tidak kosong (jika tidak, provider tidak akan menambah record ini, atau terjadi kesalahan).
  • Jika tabel memiliki field otomatis, jangan ikutkan field ini dalam perintah INSERT (nilai field ini ditangani oleh provider).

Tentang field tanpa data

Dalam database MS Access, jika Anda mengatur properti AllowZeroLength menjadi "Yes", Anda dapat memasukkan string panjang nol ("") di kolom teks, hyperlink, dan kolom memo.

Keterangan:Tidak semua database mendukung string dengan panjang nol, jadi mungkin terjadi kesalahan saat menambahkan record dengan field kosong. Oleh karena itu, penting untuk memeriksa tipe data yang didukung database yang Anda gunakan.