（泣）VBscriptでinnerhtmlを使って表示したい・・・

解決済

質問者：komarimono
質問日時：2008/11/07 00:32
回答数：1件

VBscriptをつかってHTA上で実行した結果をHTMLへ動的に表示させたいのですがうまく出来ずに悩んでおります。一応VBの部分はちゃんと出来ていることは確認していますが表示が全くダメです。
どなたか教えて下さい。

Option Explicit

Dim objAccess
Dim objDB
Dim objRS
Set objAccess = CreateObject("Access.Application")
objAccess.Visible = True
objAccess.OpenCurrentDatabase("c:\happy\island.mdb")
Set objDB = objAccess.CurrentDb
Set objRS = objDB.OpenRecordset("SELECT COUNT(*) AS 件 FROM 住所録テーブル")
WScript.echo "件数=" & objRS("件数")
objRS.Close
Set objRS = Nothing
Set objDB = Nothing
Set objAccess = Nothing

件数をWScript.echoではなくinnerhtmlで表示したいです。
またSQLを("SELECT * FROM 住所録テーブル")にした場合データをレコードセットで抽出し必要なデータを表にして表示をしたいのですが・・・（これもinnerhtmlを使いたい）

通報する

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

質問の本文を隠す

回答 (1件)

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

No.1ベストアンサー

回答者： redfox63
回答日時：2008/11/07 02:04

お使いのコードを

Sub MyProc
End Sub
でくくっておきます

BODYタグのOnLoadで呼び出すようにします
<body onload="MyProc()">
といった具合です
件数を表示したいタグを記述します
<DIV id="myData"></div>
といった具合で

スクリプトの WScript.Echoを

dim objData
Set objData = document.GetElementById("myData")
objData.innerText = "件数= " & objRS("件数")

といった具合にしましょう

Access.Applicationを起動するよりADODB.ConnectionやADODB.Recordsetを使ったほうがいいように思います
Access自体を表示したいのなら別ですけど・・・