ASP,VBSでAccessデータベース操作 そのC Accessファイルの検索、抽出

Accessファイルを抽出条件に従って値を取り込む。

ASPでVBSを記述してAccessファイルのオープンができた。

しかし、抽出条件を指定して、値を取り込みたい。

単純なSQL文を埋め込めば良いので、すぐに変更できた。

プログラムを書いたらものすごくなった。

[test3.asp]
<%@Language="VBScript" %>
<html>
<head>
<title>ドキュメント情報の表示</title>
<body>
<%
Set db=Server.CreateObject("ADODB.Connection")
db.Provider="Microsoft.Jet.OLEDB.4.0"
db.Mode=1
db.ConnectionString=Server.MapPath("./ha_repo.mdb")
db.Open
Set rs=db.Execute("Select 番号,題目,登録日 From ha_repo_table WHERE 番号=3726")
Response.Write "<table border='1'>"

Response.Write "<tr>"
for i=0 to rs.Fields.Count-1
Response.Write "<th>" & rs.Fields.Item(i).Name & "</th>"
Next
Response.Write "</tr>"

Do until rs.EOF
Response.Write "<tr>"
for i=0 to rs.Fields.Count-1
Response.Write "<td>" & rs.Fields.Item(i).Value & "</td>"
Next
Response.Write "</tr>"
rs.MoveNext
Loop

Response.Write "</table>"

rs.close
db.close

Set db=Nothing

%>
</body>
</html>


赤字の部分を変更すればよい。
Set rs=db.Execute("Select 番号,題目,登録日 From ha_repo_table WHERE 番号=3726")

ExecuteでSQL文が実行できるようだ。

ha_repo_tableテーブルで番号が3726である行の、番号,題目,登録日を抽出。


SQL文はここまでにしておいて後で覚えることとしよう。



ASPでAccess操作TOP