出来るのだＡＳＰ Ｑ＆Ａ掲示板（過去ＬＯＧ） 　訪問数 52046 昨日 889 今日 776
     【PR】 パソコン入門からIT専門書まで幅広く取り揃えています。セブン-イレブン受取り手数料無料のセブンアンドワイ。
Topに戻る 掲示板に戻る 検索 削除 管理者
[1351] テーブルの文字を取得って出来ますか？
投稿者：cozyさん 2002/01/08 20:10:45
はじめまして。
初心者で参考書などを見ながら四苦八苦していて、どうしても解らないので投稿させていただきました。
今、Access2000でデータｰベースを作っています。ごくごく簡単なデータベースです。VBScriptとHTMLを使いIEからデータベースを操作できるものを作っています。
dbの中身をテーブルで一覧表示させ、そのテーブルのはじに編集、削除、詳細というボタンを付けて、それぞれの処理に飛ばしたいのですが、そこでテーブルに一覧表示されている文字を取得したいのですが、そんなことって出来るのでしょうか？
初心者のもので恥ずかしいのですが、ソースを載せますのでよろしくお願いします。

<%@ LANGUAGE="VBSCRIPT" %>
<html>
<head>
<title>トスネット</title>
</head>
<body>

<table>
<tr>
<td>全件表示</td>
<td width="150" align="right"><a href="index.htm">メイン画面へ</a></td>
</tr>
</table>
<br>
<table border="1" cellpadding="4">
<tr>
<th colspan="3"></th>
<th>内部ID番号</th><th>登録日付</th><th>お客様名</th><th>担当者名</th><th>内容</th>
</tr>

<%
Dim work

'=========================================================
'１、データベースを開く
'２、データベースからデータを取り出す
'=========================================================
Dim Conn,SQL,RS
db1=server.mappath("db1.mdb")
DBName="Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & db1
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.open DBName
SQL = "select * from トスネット"
Set RS = Server.CreateObject("ADODB.Recordset")
RS.Open SQL, Conn,3,3

'=========================================================
'３、取り出したデータをHTMLに書き出す
'=========================================================
response.write RS.recordcount & "件が登録されています"
Do until rs.eof
%>

<tr>
<form method="post" action="edi.asp">
<td>
<input type="hidden" name="id" value=<%=id%>>
<input type="submit" value="編集">
</td>
</form>
<form method="post" action="del.asp">
<td>
<input type="hidden" name="id" value=<%=id%>>
<input type="submit" value="削除">
</td>
</form>
<form method="post" action="show.asp">
<td>
<input type="hidden" name="id" value=<%=id%>>
<input type="submit" value="詳細">
</td>
</form>
<td align="right"><%=rs("id")%></td>
<td><%=rs("date")%></td>
<td><%=rs("name1")%></td>
<td><%=rs("name2")%></td>
<td>
<%
work = rs("work")
if len(work) > 20 then
response.write left(work,20)&"..."
else
response.write work
end if
%>
</td>
</tr>

<%
rs.movenext
loop

'=========================================================
'４、データベースを閉じる
'=========================================================
rs.close
Conn.close
%>

</table>
</body>
</html>

テーブルの文字を取得って出来ますか？ 　 cozyさん [2002/01/08 20:10:45] [1351]
　 Re:テーブルの文字を取得って出来ますか？ 　 Tomitomiさん [2002/01/09 0:35:58] [1352]
　 　 Re:テーブルの文字を取得って出来ますか？ 　 cozyさん [2002/01/09 10:21:04] [1353]

TreeBBS For ASP V.0.1.3
Program By ＹａｓＮｅｔ