ADOとの連携でデータの挿入を行う方法について説明します。
本サンプルコードは、INSERT文実行後、Webページ上で完了を知らせます。
アプリケーションの手順
コネクションを接続します。詳細は、“D.4.1 接続および切断”を参照してください。
Commandオブジェクトを生成します。
Command.ActiveConnectionプロパティに手順1で生成したConnectionオブジェクトを設定します。
Command.CommandTextプロパティにINSERT文を設定します。
Command.CommandTypeプロパティにadCmdTextを設定します。
Command.ExecuteメソッドでINSERT文を実行します。
コネクションを切断します。
オブジェクトを破棄します。
エラー処理については、“D.4.10 エラー処理”を参照してください。
<%@ language="vbscript" %>
<!-- #include file = "adovbs.inc" -->
<html>
<head>
<title>データの挿入</title>
</head>
<body bgcolor="White">
<b>データの挿入</b>
<hr>
<%
'宣言
Dim OBJdbConnection
Dim OBJdbCommand
'Connectionオブジェクトの生成
Set OBJdbConnection = Server.CreateObject("ADODB.Connection")
OBJdbConnection.ConnectionString = "DSN=DSN01;UID=USER01;PWD=PASS01"
'1. コネクション接続
OBJdbConnection.Open
'2. Commandオブジェクトの生成と設定
Set OBJdbCommand = Server.CreateObject("ADODB.Command")
OBJdbCommand.ActiveConnection = OBJdbConnection
OBJdbCommand.CommandText = _
"INSERT INTO TESTTBL VALUES(401,1000.025,DATE'2007/04/10','INSERT DATA')"
OBJdbCommand.CommandType = adCmdText
'3. INSERT文実行
OBJdbCommand.Execute
'メッセージの表示
Response.Write "行を挿入しました<br>"
'4. コネクション切断
OBJdbConnection.Close
'5. オブジェクトの破棄
Set OBJdbCommand = Nothing
Set OBJdbConnection = Nothing
%>
<hr>
</body>
</html>