ACCESSのテーブルをHTMLファイルで出力したいと考えています。
VBAでプログラムを作成すればいいのでしょうか。
ACCESSははじめたばかりでよくわかりません。
丸投げのようで恐縮ですが、宜しくお願い致します。
***************************************
テーブル1
***************************************
ID 名前 住所
1 伊藤 愛知
2 加藤 大阪
3 稲垣 東京
…
***************************************
2.html
***************************************
<html>
<body>
<table>
<tr>
<td>ID</td>
<td>名前</td>
<td>住所</td>
</tr>
<tr>
<td>
…
ここにテーブル1のデータを出力したい
…
</table>
</body>
</html>
***************************************
2.htmlのファイルを出力するようなことをしたいと考えています。
宜しくお願いします。
No.2ベストアンサー
- 回答日時:
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なったら脱出します
No.1
- 回答日時:
単純にHTMLに落とすだけなら上のような方法があるみたいです。(自分はVBAのプロじゃないのであんまし詳しくは回答できませんが。
質問者さんの言うような
HTMLファイルの中に、自在にテーブルのデータを表示したい
のでしたら、ASPだとかCGI、PHPあたりを勉強することになるでしょう。
回答ありがとうございます。
テーブルと書きましたが、クエリの結果を出力したいと考えています。
また、出力するファイル名が2.htmlとなっていますが、
フォームの画面でファイル名を入力して、
その名前がファイル名になるような感じにもしたいです。
可能でしょうか。宜しくお願い致します。
***************************************
テーブル1
***************************************
ID 名前 住所
1 伊藤 愛知
2 加藤 大阪
3 稲垣 東京
…
***************************************
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
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
php データ削除
-
テーブルの最後のレコードしか...
-
ACCESSのテーブルをHTMLファイ...
-
SQL1回で、平均と合計を両方出...
-
エクセルVBAについて
-
VBAをつかってクエリの情報を抽...
-
MySQLでデータベースにデータin...
-
実行時エラー3131 FROM 句の構...
-
円マークが付加されて保存され...
-
VBA ACCESS SQL...
-
DBで検索結果に該当するデータ...
-
insert1つの処理でもトランザ...
-
Pro*Cの構文エラー
-
phpにて出欠登録管理を作成して...
-
phpのエラーについてです
-
sortable ギブアップです…助け...
-
テキストボックスに入れた内容...
-
LocalのNotesメールDBをVBAで参...
-
テーブルに入っているデータと...
-
縦に長い<table>でなく横に長い...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
php テーブルを作れない
-
ACCESSのテーブルをHTMLファイ...
-
php データ削除
-
MySQLにHTMLタグを挿入したい
-
SQL1回で、平均と合計を両方出...
-
MySQLで0で検索できない
-
ファーストサーバのレンタルサ...
-
GROUP_CONCATで条件指定
-
MySQL+PHPでリストから詳細表示
-
テーブルの最後のレコードしか...
-
PHP + MySQLを使用して詳細画面...
-
mysql - 出力を縦表示
-
MySQLでデータベースにデータin...
-
実行時エラー3131 FROM 句の構...
-
VBAをつかってクエリの情報を抽...
-
JAVA SQLServerException 列名 ...
-
Q&Aサイトを作成していてURLの...
-
<VB.NET>INSERT文でDBにデータ...
-
テキストボックスに入れた内容...
-
SQL文が実行できません
おすすめ情報