ACCESSのテーブルをHTMLファイルで出力したい

解決済

質問者：smorgas030
質問日時：2007/11/13 13:45
回答数：2件

ACCESSのテーブルをHTMLファイルで出力したいと考えています。
VBAでプログラムを作成すればいいのでしょうか。
ACCESSははじめたばかりでよくわかりません。
丸投げのようで恐縮ですが、宜しくお願い致します。

***************************************
テーブル１
***************************************
ID　名前　住所
１　伊藤　愛知
２　加藤　大阪
３　稲垣　東京
…

***************************************
2.html
***************************************
<html>
<body>
<table>
<tr>
<td>ID</td>
<td>名前</td>
<td>住所</td>
</tr>
<tr>
<td>
…
ここにテーブル１のデータを出力したい
…

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

2.htmlのファイルを出力するようなことをしたいと考えています。
宜しくお願いします。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (2件)

ベストアンサー優先
最新から表示
回答順に表示

No.2ベストアンサー

回答者： anotherone
回答日時：2007/11/14 11:33

Private Sub コマンド_Click()

myHTM = "<!DOCTYPE HTML PUBLIC '-//W3C//DTD HTML 4.01 Transitional//EN'>" _
& vbCrLf & "<html><meta http-equiv='Content-Type' content='text/html; charset=shift_jis'>" _
& vbCrLf & "<head><title>トップページ</title></head><body><table>"

mySQL = "SELECT t1名前.番号, t1名前.名前, t2年令.年令 " _
& "FROM t1名前 INNER JOIN t2年令 ON t1名前.番号 = t2年令.番号;"

Set myRS = CurrentDb.OpenRecordset(mySQL)
Do
'番号か　項目名で　指定します
MsgBox myRS(0).Name & " : " & myRS(0).Value
'どちらの方法でも　同じように　データが取り出せます
MsgBox myRS("名前").Name & " : " & myRS("名前").Value
'Nameは項目名　Valueは項目の内容です
myHTM = myHTM & vbCrLf & "<tr><td>" & myRS(0).Value _
& "</td><td>" & myRS(1).Value _
& "</td><td>" & myRS(2).Value & "</td></tr>"
myRS.MoveNext
If myRS.EOF Then Exit Do
Loop
myHTM = myHTM & vbCrLf & "</table></body></html>"
MsgBox myHTM
Set myRS = Nothing
End Sub

2つのテーブル　t1名前 t2年令　の項目3つをHTMLにします
連続して処理する時は　Doループや　Forループを使います
条件になるまで実行して　無くなったら脱出　として処理します

writeは　HTMLを作成してから　最後に1回だけでもいいと思います

Set myRS = CurrentDb.OpenRecordset(mySQL)
クエリの結果を　レコードセット　という入れ物に入れます

myRS.MoveNext　で順番に取り出すことができます　(次のレコードに進む)
Do　から　Loop　の間を　繰り返して実行しています
If myRS.EOF Then Exit Do　終わりにEndOfFileなったら脱出します
　

- 0
- 件

通報する

この回答へのお礼

ありがとうございます。
教えていただいたとおりにやったらできました。

通報する

お礼日時：2007/11/14 16:14

No.1

回答者： STICKY2006
回答日時：2007/11/13 16:41

http://www.moug.net/tech/acvba/0090017.htm

単純にHTMLに落とすだけなら上のような方法があるみたいです。（自分はVBAのプロじゃないのであんまし詳しくは回答できませんが。

質問者さんの言うような
HTMLファイルの中に、自在にテーブルのデータを表示したい

のでしたら、ASPだとかCGI、PHPあたりを勉強することになるでしょう。

- 0
- 件

通報する

この回答へのお礼

回答ありがとうございます。

テーブルと書きましたが、クエリの結果を出力したいと考えています。
また、出力するファイル名が2.htmlとなっていますが、
フォームの画面でファイル名を入力して、
その名前がファイル名になるような感じにもしたいです。
可能でしょうか。宜しくお願い致します。

***************************************
テーブル１
***************************************
ID　名前　住所
１　伊藤　愛知
２　加藤　大阪
３　稲垣　東京
…

***************************************
2.html
***************************************

Private Sub test_Click()
Dim fNAME As String
fNAME = "c:2.html"
Open fNAME For Output As #1
Print #1, "<html>"
Print #1, "<head>"
Print #1, "<title>トップページ</title>"
Print #1, "</head>"
Print #1, "<body>"
…
ここにクエリの結果を入れたいと考えています。

…
Print #1, "</body>"
Print #1, "</html>"

Close #1 '閉じる
End Sub