INSERT INTO を 使った ソースコードを紹介する表示色の説明：ASP VBScriptは <% 〜 %>
キーワードはINSERT INTO です。
<%@LANGUAGE=VBScript%>
<html>
<head>
<title>SQL INSERT INTO文を使用する</title>
</head>
<body>
<h1>SQL INSERT INTO文を使用する</h1>
<strong>INSERT INTO</strong> テーブル名 (フィールド１, フィールド２...) VALUES (値１,値２...)<br>
をdb.Execute(strSQL)で発行するサンプルです。<br>
<b>簡単な処理の流れは</b>、<br>
Set db=Server.CreateObject("ADODB.Connection") で<br>
'データアクセスにはJet.OLEDB.4.0を使うことを設定<br>
db.Provider = "Microsoft.Jet.OLEDB.4.0"<br>
'次に、接続ＤＢの位置を渡すので、Server.MapPathで変換して渡す<br>
db.ConnectionString = Server.MapPath("db026.mdb")<br>
'データベースを開ける<br>
db.open<br>
'SQL INSERT INTO 文を作る<br>
strSQL = "<strong>INSERT INTO</strong> TEST (F_TITLE, F_MEMO, WriteTime) VALUES ("<br>
strSQL = strSQL & "'" & strTITLE & "'" 'タイトル<br>
strSQL = strSQL & ",'" & strMEMO & "'" 'メモ<br>
strSQL = strSQL & ", #" & now & "#)" '現在時刻、日付型は＃で囲む<br>
'SQL文を発行<br>
db.Execute(strSQL)<br>
<b>接続して、ＳＱＬ文を渡しているだけでした<br>
実行したり、ソースを見て、動作を確認してください</b><br>
<% '頭で、入力パラメーターがあるかチェックする
if IsEmpty(Request.Form("TITLE")) = True Then
'そのまま下のHTMLを実行
%>
<br>
ボタンを押すと、INSERT INTO文を発行します<br>
<FORM ACTION="test027-2.asp" METHOD="POST">
タイトル：<% Randomize : zz = Chr(&h22) & "TITLE" & Int(Rnd * 999) & Chr(&h22) %>
<INPUT TYPE="text" SIZE="20" NAME="TITLE" VALUE=<%=zz%>>
<br>
メモ：
<INPUT TYPE="text" SIZE="80" NAME="MEMO" VALUE="好きな文字を入れてください">
<br>
<INPUT TYPE="submit" VALUE="SQL INSERT INTO文 発行">
←db026.mdb(Access MDB) へ データを追加します
</FORM><br>
<% 'データが入力されていたら、
else
'書き込み関数を呼ぶ(外側に出したかったので)
Call TEST_WRITE(Request.Form("TITLE"), Request.Form("MEMO"))
end if 'Ｉｆ文もここで終わり
%>
</body>
</html>
<% 'データを受け取り、ＤＢへ書き込む
Sub TEST_WRITE(strTITLE, strMEMO)
'ADO DB Connection オブジェクトを作成する、英文そのままじゃん
Set db=Server.CreateObject("ADODB.Connection")
'.Provider？プロバイダー？通信会社？じゃなくって
'データアクセスにはJet.OLEDB.4.0を使うことを設定
db.Provider = "Microsoft.Jet.OLEDB.4.0"
'次に、接続ＤＢの位置を渡すので、Server.MapPathで変換して渡す
db.ConnectionString = Server.MapPath("db026.mdb")
'やっとデータベースを開ける
db.open
'SQL INSERT INTO 文を作る
strSQL = "INSERT INTO TEST (F_TITLE, F_MEMO, WriteTime) VALUES ("
strSQL = strSQL & "'" & strTITLE & "'" 'タイトル
strSQL = strSQL & ",'" & strMEMO & "'" 'メモ
strSQL = strSQL & ", #" & now & "#)" '現在時刻、日付型は＃で囲む
'SQL文を発行
db.Execute(strSQL)
Response.Write "<hr>発行する（した）ＳＱＬ文は<br><strong><font color='green'>"
Response.Write strSQL & "</font></strong><br>です<hr>"
'データベースも閉じようよ
db.Close
'お行儀よくオブジェクトも開放しましょう（通常は自動的に解放されるけど）
Set db = Nothing
End Sub
%>
| 最近発売の雑誌を紹介する
スポーツ系の雑誌です。プログラマーさん運動不足になってませんか？
- Soccer clinic (サッカークリニック) 2008年 06月号
- 格闘技通信 2008年 6/8号
- 404 - ドキュメントが見つかりません。
- Sports Graphic Number (スポーツ・グラフィック ナンバー) 2008年 5/22号
- SWIMMING MAGAINE (スイミング・マガジン) 2008年 06月号
- Major LEAGUE (メジャー・リーグ) 2008年 06月号
- SOFT BALL MAGAZINE (ソフトボールマガジン) 2008年 06月号
- ダイバー 2008年 06月号
- Clara (クララ) 2008年 06月号
|