Tambah Rekod ADO

Kami boleh menggunakan perintah INSERT INTO SQL untuk menambah rekod ke dalam table di pangkalan data.

Menambah rekod ke dalam table di pangkalan data

Kami ingin menambah rekod baru ke dalam table Customers di pangkalan data Northwind. Pertama-tama, kami perlu membuat formulir yang mengandungi medan input yang perlu kami pengumpulkan data daripadanya:

<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="Tambah Baru"> 
<input type="reset" value="Batal">
</form>
</body>
</html>

Jika pengguna menekan butang kepastian, borang ini akan dihantar kepada fail yang dinamakan "demo_add.asp". Kod di dalam fail "demo_add.asp" mengandungi kod untuk menambahkan rekod baru ke table 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("Tiada keizinan untuk mengemaskini!")
else 
  Response.Write("<h3>" & recaffected & " rekod ditambahkan</h3>")
end if
conn.close
%>
</body>
</html>

Perhatian Penting

Dalam menggunaai perintah command INSERT, pastikan untuk mengambil perhatian berikut:

  • Jika tabellan mengandungi kunci utama, pastikan nilai yang ditambahkan ke medan kunci utama adalah unik dan tidak kosong (atau provider akan mengambil rekod ini, atau terjadi kesalahan).
  • Jangan ikut medan pengangkutan di perintah INSERT jika tabellan mengandungi medan pengangkutan (nilai medan ini adalah tanggung jawab provider).

Tentang medan tanpa data

Dalam pangkalan data MS Access, jika anda mengatur atribut AllowZeroLength kepada 'Ya', anda boleh memasukkan string panjang nol ('"') di medan teks, pautan hyper dan medan memo.

Komen:Bukan semua pangkalan data mendukung string panjang nol, jadi mungkin akan terjadi kesalahan apabila menambah rekod dengan medan kosong. Oleh itu, penting untuk memeriksa jenis data yang disokong pangkalan data yang anda gunakan.