VBscriptでAccessに接続。
PC1ではDBの検索結果が表示されますが
PC2では表示されません。
PC1はWindows XP Pro IIS Access 2000
PC2はWindows server 2003 IIs Access 2000
当然ながらソースは同じです。
プログラムの問題でしょうか。
それともなにか設定の問題でしょうか。
VBscript 部分
<%
'==========================================================================================================
Dim objCon
Dim objRS
Dim strSQL
'=======================================
dim objfs
dim strFDIRNAME
Set objFS = Server.CreateObject("Scripting.FileSystemObject")
strFDIRNAME = Server.MapPath(".") 'フォルダー名取得
'=======================================
'##### コネクションオブジェクトの生成 #####
Set objCon = Server.CreateObject("ADODB.Connection")
'##### 接続用パレメータの設定 #####
objCon.Provider = "Microsoft.Jet.OLEDB.4.0"
Set objRS = Server.CreateObject("ADODB.Recordset")
'##### MDBの絶対パス指定 #####
objCon.ConnectionString =strFDIRNAME & "\" & "meibo.mdb"
'##### コネクションのオープン #####
objCon.Open
'##### SQLの作成 #####
strSQL = "select DISTINCT 社員名 from TABLE "
'##### レコードセットのオープン #####
objRS.Open strSQL, objCon, 3
Recnm=objRS.RecordCount
Do Until objRS.EOF
%>
<OPTION value="<%=objRS("社員名").value%>"><%=objRS("社員名").value%></OPTION>
<%
'##### 次のレコードを参照 #####
objRS.MoveNext
Loop
end if
%>
<%
'##### コネクションのクローズ #####
objCon.Close
'##### コネクションオブジェクトの解放 #####
Set objCon = Nothing
'================
%>
No.2ベストアンサー
- 回答日時:
WinServer2003ファミリーの場合 IISの規定値でASPは禁止されています
IISの管理コンソールで『Webサービスの拡張』をクリックして
右ペインにある『Active Server Pages』を選択『許可』ボタンをクリック
と言った手順を踏んでみましょう
IISのヘルプにもこの辺りは記述されていますよ
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) ExcelからAccessのテーブルに書き込む時に時間がかかる 1 2022/10/14 20:38
- Visual Basic(VBA) このVBAでExcelアプリケーションを作成は必要ですか? 3 2023/07/19 21:13
- Visual Basic(VBA) VBAが止まります。 2 2022/09/02 14:02
- その他(開発・運用・管理) Windowsバッチファイルでリモートデスクトップを自動ログインするが確認画面が出る対処方法 1 2022/12/19 15:48
- Visual Basic(VBA) access count数を変数に格納 2 2022/03/30 19:21
- Excel(エクセル) EXCELの外部データ取得ができない 1 2023/03/23 09:03
- Visual Basic(VBA) VBAでoutlook365が起動しません。 4 2022/08/25 13:31
- Visual Basic(VBA) エクセルのマクロを使ってメールを送る方法について教えてください 2 2022/03/29 01:36
- Visual Basic(VBA) VBAが止まります。 3 2022/08/31 14:09
- Visual Basic(VBA) Excelで下記のようにマクロを作ったところ、一回目は実行できたのですが、二回目以降「実行時エラー1 1 2022/03/25 08:08
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
worksheetFunctionクラスのVloo...
-
「Columns("A:C")」の列文字を...
-
VBS 指定のフォルダ内の最新の...
-
横軸ラベルの追加に関するエラ...
-
上下の位置揃えについて
-
マクロ初心者です。 インデック...
-
Word、VBAでの取り消し線文字の...
-
VBA:オートシェイプの線の長...
-
Excel2007 VBA ラジオボタン Ca...
-
エクセルVBAでテキストボックス...
-
VBAで既に開いている別アプリケ...
-
VBscriptでAccessに接続。PCで...
-
オブジェクトが見つかりません
-
エクセルのVBAの標準モジュール...
-
エクセルから表をパワーポイン...
-
パソコンへの「Dropbox...
-
ユーザーフォームを表示中にシ...
-
ユーザーフォームのテキストボ...
-
カメラスクロールするのを動画...
-
IF文に時間(何時から何時ま...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
worksheetFunctionクラスのVloo...
-
「Columns("A:C")」の列文字を...
-
実行時エラー 3265「要求された...
-
VBAで既に開いている別アプリケ...
-
エクセルのVBAの標準モジュール...
-
エクセルマクロエラー「'Cells'...
-
Excelでフィルタをかけると警告...
-
VBAで Set wb = Sheets(1).Cop...
-
VBAからPDFファイルにパスワー...
-
テキストボックス中の文字列の...
-
エクセルVBAでcode128のバー...
-
EXCEL VBA オートシェイプナン...
-
VBAで作成するメール(開封確認...
-
PowerPointVBAでスライドマスタ...
-
ある文字列が全て数字であるか...
-
エクセルVBAで配列内に空白デー...
-
[VBA]CDOメッセージ送信エラー
-
オブジェクトが見つかりません
-
UserForm1.Showでエラーになり...
-
上下の位置揃えについて
おすすめ情報