ADO レコードを追加
SQL の INSERT INTO コマンドを使用して、データベース内のテーブルにレコードを追加できます。
データベース内のテーブルにレコードを追加する
Northwind データベースの Customers テーブルに新しいレコードを追加したいと思います。まず、データを収集するための入力フィールドを含むフォームを作成する必要があります。
<html>
<body>
<form method="post" action="demo_add.asp">
<table>
<tr>
<td>CustomerID:</td>
</tr><tr>
<td>Company Name:</td>
</tr><tr>
<td>Contact Name:</td>
</tr><tr>
<td>Address:</td>
</tr><tr>
<td>City:</td>
</tr><tr>
<td>Postal Code:</td>
</tr><tr>
<td>Country:</td>
</tr>
</table>
<br><br>
<input type="submit" value="Add New">
<input type="reset" value="Cancel">
</form>
</body>
</html>
<body>
<form method="post" action="demo_add.asp">
<table>
<tr>
<td>CustomerID:</td>
</tr><tr>
<td>Company Name:</td>
</tr><tr>
<td>Contact Name:</td>
</tr><tr>
<td>Address:</td>
</tr><tr>
<td>City:</td>
</tr><tr>
<td>Postal Code:</td>
</tr><tr>
<td>Country:</td>
</tr>
</table>
<br><br>
<input type="submit" value="Add New">
<input type="reset" value="Cancel">
</form>
</body>
</html>
ユーザーが確認ボタンを押すと、このフォームは "demo_add.asp" というファイルに送信されます。ファイル "demo_add.asp" には、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("No update permissions!")
else
Response.Write("<h3>" & recaffected & " record added</h3>")
end if
conn.close
%>
</body>
</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("No update permissions!")
else
Response.Write("<h3>" & recaffected & " record added</h3>")
end if
conn.close
%>
</body>
</html>
重要な注意事項
INSERT コマンドを使用する際は、以下の点に注意してください。
- テーブルに主キーが含まれる場合は、主キーフィールドに追加する値が一意で空でないことを確認してください（そうしないと、プロバイダーはこのレコードを追加しないか、エラーが発生します）。
- テーブルに自動番号フィールドが含まれる場合は、INSERT コマンドにこのフィールドを含めないでください（このフィールドの値はプロバイダーが管理します）。
データなしのフィールドについて
MS Access データベースでは、AllowZeroLength プロパティを "Yes" に設定すると、テキスト、ハイパーリンク、メモフィールドに長さゼロの文字列 ("") を入力できます。
注記：すべてのデータベースが長さゼロの文字列をサポートしているわけではないため、空白フィールドを持つレコードを追加するとエラーが発生する場合があります。したがって、使用しているデータベースがサポートするデータ型を確認することが重要です。
その他の拡張