分類: [Form関係] /DB系ADOを使い( [Mdb接続] [CSV接続] [Excel接続]) /[ASPでTextFileを操作] /[VBScript関数ほか]

SQL INSERT INTO文を使用する

INSERT INTO テーブル名 (フィールド１, フィールド２...) VALUES (値１,値２...)
をdb.Execute(strSQL)で発行するサンプルです。
簡単な処理の流れは、
Set db=Server.CreateObject("ADODB.Connection") で
'データアクセスには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)
接続して、ＳＱＬ文を渡しているだけでした
実行したり、ソースを見て、動作を確認してください

ボタンを押すと、INSERT INTO文を発行します

ID	F_TITLE	F_MEMO	WriteTime
6525	IE操作	UWSC使用が正解変な記事書き続けるなボケ	2009/08/10 11:17:09
6502	耳クソのおいらが	目くそ鼻くそを笑うと書き込んでみたぞ。	2009/07/27 9:19:44
6495	lemon	馬鹿	2009/07/23 15:53:51
6493	素人が偉そうにするな	COMPLETE のステートになるまでポーリングして待つコードは良く見かけますが、これはアマチュアのコーディングだと思います。プロだったらイベントで処理しましょう。	2009/07/23 1:15:45
6466	格好付けて熱弁	してるところ申し訳ないですけどIE操作のサンプルだいぶ間違ってますよタコ	2009/06/17 15:37:54
6465	生き恥を曝す	修正対応しろよボケ	2009/06/17 8:25:37
6423	&のテスト	&が&にばけるんです・・・	2009/05/30 18:13:38
6321	違いが知りたい	replace　と　insert　の違いくらい書いてほしい	2009/03/12 3:43:12
6310	参照設定ヤレよボケ	オイ三流、サンプル作るなら参照設定しろ、テメエの不良サンプルが他の掲示板で迷惑をかけてます。	2009/02/27 13:39:01
6304	'の入力	strMEMO = Replace(strMEMO, "'", "''") 'シングルコーテーションを２個に置換	2009/02/26 4:52:26
6295	能ある鷹は爪を隠す	バカな三流はネットで恥晒す。はやく記事消せよ。ネットの世界から消えろ	2009/02/25 15:23:18
6268	IE操作	UWSC使用が正解変な記事書き続けるなボケ	2009/02/14 23:14:24
6267	↓だよねぇ	↓これだから三流は。はやく記事消せよ。ネットの世界から消えろ	2009/02/14 23:09:35
6143	四ね	ネットの世界から消えてくださいよろしくお願いします。※記事を全て消せ	2008/09/25 14:51:23
6133	こう言うのもなんだけど，	最近アナタの書く記事はなんかツメが甘いよ(間違いばっか)	2008/09/09 6:41:26
6101	心を磨け	こころざしが不愉快だからもうここには来ないわ	2008/07/11 10:31:55
6045	だから	IE操作はUWSC使用が正解,変な記事書き続けるなボケってイッテンダロ	2008/05/20 22:23:23
6037	メッセージ消すなよ	よくわからない	2008/05/16 0:35:00
6035	KY	空気読め	2008/05/15 11:43:01
6028	たまに見てます	●チョー大嫌いがんばら内で四んで下さい●	2008/05/06 5:58:32
6027	こんにちわ！！いつも三流君見てます！！	ちょぉ好きだおおお（（年上さまにむかってすみせんほんとだあい好きですがんばってください！！	2008/05/05 23:03:29
6026	説明が下手	理解が難しい・・・	2008/05/04 4:57:50
6025	解らん	使えないサイトだな	2008/05/03 5:23:24
5675	IE操作	UWSC使用が正解変な記事書き続けるなボケ	2007/09/09 23:31:41
5458	aaaaaaa	aaaaa	2007/01/24 0:25:28
5351	テスト	解らん	2006/05/02 11:51:09
4876	01	02	2005/08/26 11:03:44
4872	123	456	2005/08/23 12:08:22
4857	aaa	ccc	2005/07/14 16:03:06
3357	040315テスト	入力	2004/03/15 12:39:34
275	お礼(^｡^)	いつもタメにならないメルマガありがとう	2003/04/25 11:53:22

DB内のデータを確認 DB:db026.mdb 確認用に発行したSQL:Select * From TEST Order By ID DESC ID F_TITLE F_MEMO WriteTime 6525 IE操作 UWSC使用が正解変な記事書き続けるなボケ 2009/08/10 11:17:09 6502 耳クソのおいらが目くそ鼻くそを笑うと書き込んでみたぞ。 2009/07/27 9:19:44 6495 lemon 馬鹿 2009/07/23 15:53:51 6493 素人が偉そうにするな COMPLETE のステートになるまでポーリングして待つコードは良く見かけますが、これはアマチュアのコーディングだと思います。プロだったらイベントで処理しましょう。 2009/07/23 1:15:45 6466 格好付けて熱弁してるところ申し訳ないですけどIE操作のサンプルだいぶ間違ってますよタコ 2009/06/17 15:37:54 6465 生き恥を曝す修正対応しろよボケ 2009/06/17 8:25:37 6423 &のテスト &が&にばけるんです・・・ 2009/05/30 18:13:38 6321 違いが知りたい replace　と　insert　の違いくらい書いてほしい 2009/03/12 3:43:12 6310 参照設定ヤレよボケオイ三流、サンプル作るなら参照設定しろ、テメエの不良サンプルが他の掲示板で迷惑をかけてます。 2009/02/27 13:39:01 6304 'の入力 strMEMO = Replace(strMEMO, "'", "''") 'シングルコーテーションを２個に置換 2009/02/26 4:52:26 6295 能ある鷹は爪を隠すバカな三流はネットで恥晒す。はやく記事消せよ。ネットの世界から消えろ 2009/02/25 15:23:18 6268 IE操作 UWSC使用が正解変な記事書き続けるなボケ 2009/02/14 23:14:24 6267 ↓だよねぇ ↓これだから三流は。はやく記事消せよ。ネットの世界から消えろ 2009/02/14 23:09:35 6143 四ねネットの世界から消えてくださいよろしくお願いします。※記事を全て消せ 2008/09/25 14:51:23 6133 こう言うのもなんだけど，最近アナタの書く記事はなんかツメが甘いよ(間違いばっか) 2008/09/09 6:41:26 6101 心を磨けこころざしが不愉快だからもうここには来ないわ 2008/07/11 10:31:55 6045 だから IE操作はUWSC使用が正解,変な記事書き続けるなボケってイッテンダロ 2008/05/20 22:23:23 6037 メッセージ消すなよよくわからない 2008/05/16 0:35:00 6035 KY 空気読め 2008/05/15 11:43:01 6028 たまに見てます ●チョー大嫌いがんばら内で四んで下さい● 2008/05/06 5:58:32 6027 こんにちわ！！いつも三流君見てます！！ちょぉ好きだおおお（（年上さまにむかってすみせんほんとだあい好きですがんばってください！！ 2008/05/05 23:03:29 6026 説明が下手理解が難しい・・・ 2008/05/04 4:57:50 6025 解らん使えないサイトだな 2008/05/03 5:23:24 5675 IE操作 UWSC使用が正解変な記事書き続けるなボケ 2007/09/09 23:31:41 5458 aaaaaaa aaaaa 2007/01/24 0:25:28 5351 テスト解らん 2006/05/02 11:51:09 4876 01 02 2005/08/26 11:03:44 4872 123 456 2005/08/23 12:08:22 4857 aaa ccc 2005/07/14 16:03:06 3357 040315テスト入力 2004/03/15 12:39:34 275 お礼(^｡^) いつもタメにならないメルマガありがとう 2003/04/25 11:53:22

INSERT INTOを使用したサンプル(ソースの紹介)

詳細解説は[http:/asp/backno/asp027.html]を見てください
下記、/cgi-bin/test/test027-2.aspのソース（中身）です

INSERT INTO を使ったソースコードを紹介する

表示色の説明：ASP VBScriptは <% ～ %>
キーワードはINSERT INTO です。
<%@LANGUAGE=VBScript%>
<% Response.CacheControl = "no-cache" %>
<% Response.AddHeader "Pragma", "no-cache" %>
<% Response.Expires = -1 %>
<html>
<head>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=x-sjis">
<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

  '2009/02/25 シングルコーテーション対策で、 ’’と２つ重ねる。
  strMEMO = Replace(strMEMO, "'", "''")      'シングルコーテーション２個に置換
  strTITLE = Replace(strTITLE, "'", "''")    'シングルコーテーション２個に置換

  '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
%>

最近発売の雑誌を紹介する

パソコン雑誌です。息抜きや空いた時間に読んで見ては？

Googleで関連項目を検索する

[キーワード:INSERT INTO] とサンプル|解説|Dim|Set で検索
↓で検索して他のページも確認してみてください。

あれ？私のページが検索に載ってない（笑）一度お試しを（私のページに、また戻ってきてね（爆））

リンク三流君ＡＳＰ系の解説を項目ごとにまとめてみました

まぁ、基本はデータの受け取りかなぁ。
・[Form等を使用したデータのやり取り]・・・ASPと言っても、HTMLの入力フォームからデータを受け取ります。POSTやGETでやりとりを押さえますか。

次は、データの入出力で ADOを使った(ADOで接続) と SQLの解説を少々
・[ADOでMdbファイルを使う]・・・MDBと接続して、簡単な追加・更新・削除を行った。
・[ADOでExcelと接続してみた]・・・.xlsと接続してSQLを使ってみた。
・[ADOでCSVと接続してみた]・・・.CSV テキストを読み出した。※更新・削除はできません

DBが使えるので、あまり使用しないけど、普通のテキストファイル処理
・[テキストファイル処理]・・・ファイルを開いて、書き込む。１行読み込みなどを軽く

VBScriptでFormat関数が無いなど、微妙にVBAと違うけど
[VBScript関数関係の説明]・・・少し、処理を書いてみた。
[その他処理サンプル]・・・あまり良いサンプル作れなかったけど。。。
何かの参考となれば幸いです。

その他：blogや広告↓
[日記的なblog]← あまり更新してないけど・・・
[三流なプログラムコード]← 恥ずかしいのであまり載せてないけど・・・
[通販商品の足跡を紹介] ←通販商品などを紹介してます

[Topへ戻る] －－＞[ASP系のTOPへ戻る] －－＞[記事一覧を見る]

現在時刻は、2010/03/19 9:15:13です。