出来るのだＡＳＰ Ｑ＆Ａ掲示板（過去ＬＯＧ） 　訪問数 52046 昨日 889 今日 776
     【PR】 パソコン入門からIT専門書まで幅広く取り揃えています。セブン-イレブン受取り手数料無料のセブンアンドワイ。
Topに戻る 掲示板に戻る 検索 削除 管理者
[2099] ASPからACCESSモジュール起動
投稿者：北岳さん 2002/05/23 20:31:32
私はかって、
「Excel97では、Auto_Openマクロ（＝モジュール）を書き、ASPからはそのXLSファイルを開くだけにすれば、簡単。」
という趣旨を、
TRY!ASPの#38987番、「ASPからEXCELマクロ起動」 に書きましたが、
ACCESSも同じことと思います。
　
ACCESSは実は、昔次の方法を使っていました。
Access97には、Auto_Openモジュールがないので、代わりにAutoExcecマクロ（≠モジュール）からモジュールを呼んで、
あとは終了までの一連のモジュールを実行させました。ASPは、特定のmdbファイルを開くだけです。
　
私は、
①個々のモジュールを呼ぶのは書くのが面倒なのでやりたくありません。×
②やるなら昔やったように、AutoExec経由にします△。しかし、
③ACCESSのマクロ＆モジュールは全部ASPで書き直し、ASP内でSQL文を発行したら、格段に処理が早くなりました。◎
つまり、一番普通の方法がベスト、という、つまらない結論を得ました。
　
ところでご質問の、①ACCESSの中の特定モジュールをASPから呼ぶスクリプトは、どうなるんでしょうか。
Try!ASPのFAQ#41（AKIOさん）を参考に、興味本位でやってみたら・・・できました。（殆ど流用ですが。）
　
---------------- 1.asp -----------------
<%
dim basp
set basp=Server.CreateObject("basp21")
dim ac
Set ac = CreateObject("Access.Application")
ac.OpenCurrentDatabase("d:\alias\a.mdb")
basp.sleep 10
ac.run "test1" 'module1.test1は不可でした
basp.sleep 10
ac.DoCmd.Quit 2
set basp=nothing
set ac=nothing
%>
　
---------------- d:\alias\a.mdb ----------
(module1)
Option Explicit
Sub test1()
Open "d:\1.txt" For Output As #1
Print #1, "ACCESSのマクロ－じゃない、モジュールで作ったファイルです"
Close #1
End Sub
-------------------------------------------
　
NT4サーバのD:\ に、1.txtファイルができましたが、・・・
この方法は使わないことをお勧めします。（笑）

AccessのモジュールをASPで使いたい・・・。 　 かずさん [2002/05/23 17:17:37] [2094]
　 Re:AccessのモジュールをASPで使いたい・・・。 　 たまコさん [2002/05/23 17:28:18] [2097]
　 ASPからACCESSモジュール起動 　 北岳さん [2002/05/23 20:31:32] [2099]

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