[三流君] −−＞ [ＡＳＰで遊ぶ、失敗する] −−＞ [バックナンバー一覧]
−−＞ No.033 SQL UPDATE文でデータを更新する

SQL UPDATE文でデータを更新する

本文(発行内容)

＜SQL UPDATE文でデータを更新する＞

こんにちは、Ｋｅｎ３です。

今回は、またまたＳＱＬ文で、
ＵＰＤＡＴＥ文を使用して、データを更新
してみたいと思います。

と言っても、たいしたことないのでご安心を。

/*
 * １．文法は簡単 
*/

書き方は、簡単で、
Update テーブル名 SET 項目=値 Where 条件
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
で、ＯＫです。
なんかあっけないよね。

UPDATE KANSOU
 Set F_MEMO = '更新テストです。', WriteTime = #2003/01/12 22:28:25#
  Where ID=6
みたいな感じで使います。

/*
 * ２．またまた、ＩＤフィールドを使って、更新データを選択する
*/

データベース名:db029.mdb
テーブル名:KANSOU
フィールド
ID        オートナンバー型
F_KUBUN   テキスト型  ASP,VBA,GUCHI,24Hと４つの区分
F_NO      整数型      0:は全体に対して、１〜はＸ話にする
F_MEMO    テキスト型  一言メッセージ
WriteTime 日付型      書き込み日付

なんてデータベースを使用してます。

またまた、フィールドＩＤを使用して、
更新データを特定し、更新処理を行ってみます。
（テーブルに重複しないＩＤがある、なんとなくわかってきましたか？)

IDが５番のデータを更新するには、
Update KANSOU Set F_MEMO = 'もっとガンバレ' Where ID = 5
とＳＱＬを発行します。

更新は、テーブルと項目、条件を頭に思い浮かべれば、なんか出来そうですね。

/*
 * ３．更新データのボタンを作る
*/
データを一覧表示して、横に更新のボタンを付けて処理を行います。

簡単な仕様
test033-1.asp
で、
データの一覧表示と更新ボタンを付ける
データの修正エリアを作成する。
ボタンが押されたら、test033-2.asp更新処理を呼ぶ

test033-2.asp
フィールドの隠し項目で更新するＩＤと内容を受け取る
ＳＱＬのUpdate文を発行する。

この、表示・入力（test033-1）と更新実行部（test033-2）を作成します。

テストは、
http://www.ken3.org/cgi-bin/test/test033-1.asp
で確認可能です。実行しながらソースを見てください。

-- test033-1.asp
ここでは、データの一覧表示と更新ボタンのフォームを作ります

<%@LANGUAGE=VBScript%>
<html>
<head>
<title>フォームに更新のボタンを作成します</title>
</head>
<body>
<h2>フォームに更新のボタンを作成します</h2>
test033-1.asp<br>
<hr>
<%  '関数をコールする
    Call TEST_MAKE_DATA()
%>
<HR>
終了です。<br>
<A href="test029-1.asp">データ確認と登録</a><br>
<A href="test032-1.asp">データ削除</a><br>

<% Call OUT_SRC("") 'ソースの表示関数を呼ぶ %>

</body>
</html>

<% 'データ表示と削除ボタン生成
Sub TEST_MAKE_DATA()

  '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("db029.mdb")

  'やっとデータベースを開ける
  db.open

  'SQL文を作る
  strSQL = "Select * From KANSOU "  '感想(KANSOU)テーブルから全項目(*)セレクト
  strSQL = strSQL & "ORDER BY WriteTime DESC"              '並べ替えは時間の降順

  'お約束のレコードセットの作成 SQL文の発行
  Set rs = db.Execute(strSQL)

  'データの表示をテーブルで行う
  Response.Write "<TABLE Border='1'>"

  '見出しをバカっぽく、そのまま書き込む
  Response.Write "<TR>"
  Response.Write "<TD>アクション</TD>"
  Response.Write "<TD>日付</TD>"
  Response.Write "<TD>区分</TD>"
  Response.Write "<TD>NO.</TD>"
  Response.Write "<TD>感想</TD>"
  Response.Write "</TR>"

  'お約束のＥＯＦまでループは(データが無くなるまでループ)、
  Do While rs.EOF = False   'レコードセットの.EOFがFalseの間
    'フォームを作成する
    Response.Write "<FORM ACTION='test033-2.asp' METHOD='POST'>"
    Response.Write "<TR>"   '内容を表示する、行開始のタグ＜ＴＲ＞
    Response.Write "<TD>"
       'IDを隠し項目(UPDATE_ID)にする
    Response.Write "<INPUT type='hidden' NAME='UPDATE_ID' VALUE='"
    Response.Write rs.Fields.Item("ID") & "'>" 
       'ボタンは普通に作成する
    Response.Write "<INPUT TYPE='submit' VALUE='更新'>"
    Response.Write "</TD>"
    '中身を表示
    Response.Write "<TD>" & rs.Fields.Item("WriteTime") & "</TD>"
    Response.Write "<TD>" & rs.Fields.Item("F_KUBUN") & "</TD>"
    If rs.Fields.Item("F_NO") = 0 Then '0の全体かチェック
      Response.Write "<TD>全体</TD>"
    Else
      Response.Write "<TD>" & rs.Fields.Item("F_NO") & "</TD>" 'NO表示
    End If
    Response.Write "<TD>" & rs.Fields.Item("F_MEMO") & "<br>"
    Response.Write "修正: <INPUT TYPE='text' NAME='UPD_MEMO' SIZE=40>"
    Response.Write "</TD>"
    Response.Write "</TR>"
    Response.Write "</FORM>"    'フォームを閉じる
    '次のレコードにポインタを移動する
    rs.MoveNext    'これを忘れると悲惨なことに、、、
  Loop

  Response.Write "</TABLE>"  'テーブルは終わりです

  '開いていたレコードセットを閉じる
  rs.Close

  'データベースも閉じようよ
  db.Close

  'お行儀よくオブジェクトも開放しましょう（通常は自動的に解放されるけど）
  Set db = Nothing

End Sub
%>

ポイントは、フォーム作成で、
^^^^^^^^^^^
    'フォームを作成する
    Response.Write "<FORM ACTION='test033-2.asp' METHOD='POST'>"
    Response.Write "<TR>"   '内容を表示する、行開始のタグ＜ＴＲ＞
    Response.Write "<TD>"
       'IDを隠し項目(UPDATE_ID)にする
    Response.Write "<INPUT type='hidden' NAME='UPDATE_ID' VALUE='"
    Response.Write rs.Fields.Item("ID") & "'>" 
       'ボタンは普通に作成する
    Response.Write "<INPUT TYPE='submit' VALUE='更新'>"
    Response.Write "</TD>"
    '中身を表示
    Response.Write "<TD>" & rs.Fields.Item("WriteTime") & "</TD>"
    Response.Write "<TD>" & rs.Fields.Item("F_KUBUN") & "</TD>"
    If rs.Fields.Item("F_NO") = 0 Then '0の全体かチェック
      Response.Write "<TD>全体</TD>"
    Else
      Response.Write "<TD>" & rs.Fields.Item("F_NO") & "</TD>" 'NO表示
    End If
    Response.Write "<TD>" & rs.Fields.Item("F_MEMO") & "<br>"
    Response.Write "修正: <INPUT TYPE='text' NAME='UPD_MEMO' SIZE=40>"
    Response.Write "</TD>"
    Response.Write "</TR>"
    Response.Write "</FORM>"    'フォームを閉じる
の
       'IDを隠し項目(UPDATE_ID)にする
    Response.Write "<INPUT type='hidden' NAME='UPDATE_ID' VALUE='"
    Response.Write rs.Fields.Item("ID") & "'>" 
２行と、
    Response.Write "修正: <INPUT TYPE='text' NAME='UPD_MEMO' SIZE=40>"
で、
type='hidden'を使用して隠し項目にVALUEでＩＤを保存し、
TYPE='text' NAME='UPD_MEMO'で更新内容を保存、
更新ボタンが押されたら、
ACTION='test032-2.asp'
へIDと更新内容のデータが渡ります。

-- test033-2.asp
さて、データが渡ってきてからの処理ですね。
<%@LANGUAGE=VBScript%>
<html>
<head>
<title>更新のＳＱＬ UPDATE文を発行する</title>
</head>
<body>
<h2>更新のＳＱＬ UPDATE文を発行する</h2>
test033-2.asp<br>
<hr>
<%  '関数をコールする
    Call TEST_UPDATE_DATA()
%>
<HR>
終了です。<br>
<A href="test033-1.asp">再度更新選択処理へ</a><br>
<A href="test032-1.asp">削除処理へ</a><br>
<A href="test029-1.asp">データ確認と登録</a><br>

</body>
</html>

<% '更新処理
Sub TEST_UPDATE_DATA()

  '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("db029.mdb")
  'やっとデータベースを開ける
  db.open

  'IDを条件にSQL UPDATE文を作る
  strSQL = "UPDATE KANSOU"  '感想(KANSOU)テーブルを更新するので
  strSQL = strSQL & " Set F_MEMO = '" & Request.Form("UPD_MEMO") & "'"
  strSQL = strSQL & ", WriteTime = #" & Now & "#"
  strSQL = strSQL & " Where ID=" & Request.Form("UPDATE_ID")

  '中身を表示する
  Response.Write "発行するSQLは[" & strSQL & "]です"

  'SQL文の発行
  db.Execute(strSQL)

  'データベースも閉じようよ
  db.Close
  'お行儀よくオブジェクトも開放しましょう（通常は自動的に解放されるけど）
  Set db = Nothing

End Sub
%>

ポイントは、
^^^^^^^^^^^
  'IDを条件にSQL UPDATE文を作る
  strSQL = "UPDATE KANSOU"  '感想(KANSOU)テーブルを更新するので
  strSQL = strSQL & " Set F_MEMO = '" & Request.Form("UPD_MEMO") & "'"
  strSQL = strSQL & ", WriteTime = #" & Now & "#"
  strSQL = strSQL & " Where ID=" & Request.Form("UPDATE_ID")
で
まず、メモデータを更新するので、
" Set F_MEMO = '" & Request.Form("UPD_MEMO") & "'"
と、フォームから送られた値を使用してます。
次に、更新日付をセットしたいので、
", WriteTime = #" & Now & "#"
と、Now関数で現在時刻を取得し、＃で囲ってます（日付型指定）
Request.Form("UPDATE_ID")の隠し項目で送られて来たデータを使用して条件、
" Where ID=" & Request.Form("UPDATE_ID")
を作成し、UPDATE文を作成してます。

  'SQL文の発行
  db.Execute(strSQL)
作成したＳＱＬ文を.Executeで発行します。

テストは、
http://www.ken3.org/cgi-bin/test/test033-1.asp
で確認可能です。
データ遠慮無く更新して遊んでください。

/*
 * ４．終わりの挨拶
*/

今回は、軽く、SQLのUPDATE文でした。

単体じゃなく、そろそろつなげて１本システムもどきを作りたいですね。
そんな話しの続きは（自分のメルマガ宣伝）
http://www.ken3.org/backno/backno_guchi28.html#142
で、[トンネルの話、貫通後、横に広げるのは簡単？]
といいかげんなこと書いてます。お時間のある人は見て笑ってください。

素朴な疑問あったら、気軽に、
メール、掲示板に書き込んでくださいね。

ＡＳＰ、ＶＢＳｃｒｉｐｔ勉強中の三流プログラマーのＫｅｎ３でした。

フィードバック

ASP系の→[掲示板]←を覗く、質問を書き込む

評価・感想

No.033を読んだ満足度(評価)は？
5満足（参考になった）
4まぁまぁ（一部参考になった）
3普通（どちらとも言えない）
2なんかなぁ（期待と違った）
1不満（読んで損した気分）
 作者に感想・質問を送る場合は下記に気軽に書いてください
あなたのお名前（ニックネーム） さん

作者からの返信は、 不用 E-mail で受信したい
＊質問・感想はメルマガで紹介する場合があります

三流君の主なリンク先

[アクセスランキング] [サイトマップ] [リンク先・相互リンク先など]
ＡＳＰで遊ぶ、失敗する 掲示板 バックナンバー 登録と解除
三流プログラマー 業務の愚痴 掲示板 バックナンバー 登録と解除
ＶＢＡで楽しくプログラミング 掲示板 バックナンバー 登録と解除
コンビニのオモテとウラ話 掲示板 バックナンバー 登録と解除
www.ken3.org(サイト内)から Google を利用して、 を

Ken3の日記(weblog) -- [広告・副収入系] [プログラマー業務の愚痴] [VBA系の話題] [ASP系の話題] [コンビニ系ネタ] [その他]

その他 宣伝広告