Q&A
利用している新/旧のAccessのバージョンはそれぞれ何ですか？
人が作ったシステムを古いサーバーから別のサーバーに移行する作業をしています。
test.mdbファイルからSQL文を使って必要な情報を表示するコードです。
問題のエラー文 ADODB.Recordset エラー '800a0cb3' 現在の Recordset はブックマークをサポートしてません。プロバイダーか、選択されたカーソルタイプの限界の可能性があります。 test.asp, 行 51
エラーの出た部分
rs.AbsolutePosition=cnt
ここからどのように修正したらいいか分からず、困っています。
記述以外に必要な情報があれば追記します。よろしくお願いします。
追記情報.
新サーバーにAccessは入っていません。
旧サーバーのAccessはMicrosoft(R) Access 97です。
以下このエラーになるまでに試したことを記載します。
ADODB.Connection エラー '800a0e7a' プロバイダーが見つかりません。正しくインストールされていない可能性があります。 test.asp, 行 49
エラーの出た部分
db.Open
対処したこと
db.Provider="Microsoft.Jet.OLEDB.4.0"
から
db.Provider="Microsoft.ACE.OLEDB.12.0"
に変更しました。
Microsoft Access Database Engine エラー '80040e37' 入力テーブルまたはクエリ '×××××' が見つかりませんでした。そのテーブルやクエリが存在していること、または名前が正しいことを確認してください。 test.asp, 行 50
エラーの出た部分
rs.Open "SELECT * FROM ××××× WHERE parent=0 ORDER BY sdat DESC",db,3,2
対処したこと
test.mdbファイルの保存形式を
Access97形式から
Access2003形式に保存して置き換えました。
以上を行い、問題のエラー文になりました。
追記.コード全体
ASP
1<%@Language="VBScript" %> 2<html> 3<head> 4</head> 5<body bgcolor="ffffff"> 6<BR><center> 7<BR> 8<P align="center"> 9<FONT size="+1" face="ＭＳ ゴシック" color="#666666"><B>｢全体について｣投稿ページ</B></FONT> 10</P> 11 12<table width="95%" cellspacing="10"> 13<% 14Sub disp(ByVal rss) 15 Do While Not rss.EOF 16 Response.Write "<tr><td bgcolor='#FFF7F7'>" 17 Response.Write "<div style='text-indent:" & rss("level")*20 & "px'>" 18 If rss("title")="削除済" Then 19 Response.Write rss("id") & "：<span style='color:#FF99AA'>削除済</span> " 20 Response.Write "(" & FormatDateTime(rss("sdat"),0) & ") " 21 Else 22 Response.Write " ┗ "&rss("id") & "：<a href='q&a_003.asp?id=" & rss("id") & "'>" 23 Response.Write rss("title") & "</a> " 24 Response.Write rss("nam") & "(" & FormatDateTime(rss("sdat"),0) & ") " 25 If rss("flg") < 4 then 26 Response.Write " <img src='イラスト.gif'> " 27 End If 28 End If 29 Response.Write "</div></td></tr>" 30 SQL_S="SELECT * FROM Ｑ－表示 Where parent=" & rss("id") & " ORDER BY sdat ASC" 31 Set rs_s=db.Execute(SQL_S) 32 If rs_s.EOF=False Then Call disp(rs_s) 33 rss.MoveNext 34 Loop 35End Sub 36If Request.QueryString("cnt")="" Then 37 cnt=1 38 page=1 39Else 40 cnt=CInt(Request.QueryString("cnt")) 41 tmpCnt=cnt-15 42 page=CInt(Request.QueryString("page")) 43End If 44Set db=Server.CreateObject("ADODB.Connection") 45Set rs=Server.CreateObject("ADODB.Recordset") 46db.Provider="Microsoft.ACE.OLEDB.12.0" 47db.Mode=3 48db.ConnectionString=Server.MapPath("master.mdb") 49db.Open 50rs.Open "SELECT * FROM Ｑ－表示 WHERE parent=0 ORDER BY sdat DESC",db,3,2 51rs.AbsolutePosition=cnt 'エラーの出た部分 52Do While Not rs.EOF 53 Response.Write "<tr><td bgcolor='#F5FFFF'>" 54 If rs("title")="削除済" Then 55 Response.Write rs("id") & "：<span style='color:#FF99AA'>削除済</span> " 56 Response.Write "(" & FormatDateTime(rs("sdat"),0) & ") " 57 Else 58 Response.Write rs("id") & "：<a href='q&a_003.asp?id=" & rs("id") & "'>" 59 Response.Write rs("title") & "</a> " 60 Response.Write rs("nam") & "(" & FormatDateTime(rs("sdat"),0) & ") " 61 If rs("flg") < 4 then 62 Response.Write " <img src='イラスト.gif'> " 63 End If 64 End If 65 Response.Write "</td></tr>" 66 SQL1="SELECT * FROM Ｑ－表示 Where parent=" & rs("id") & " ORDER BY sdat ASC" 67 Set rs1=db.Execute(SQL1) 68 If rs1.EOF=False Then Call disp(rs1) 69 rs.MoveNext 70 cnt=cnt+1 71 If cnt=page*15+1 Then Exit Do 72Loop 73Response.Write "</table>" 74Response.Write "<div align='center'>" 75If page>1 Then 76 Response.Write "<a href='q&a_001.asp?cnt=" & tmpCnt & "&page=" & page-1 77 Response.Write "'><img src='next.gif' alt='前ページへ' border='0' /></a> " 78End If 79Response.Write " <a href='q&a_002.asp'><img src='note.gif' width='40' height='40'" 80Response.Write " alt='新規作成' border='0'/></a> " 81If Not rs.EOF Then 82 Response.Write " <a href='q&a_001.asp?cnt=" & cnt & "&page=" & page+1 83 Response.Write "'><img src='prev.gif' alt='次ページへ' border='0' /></a>" 84End If 85Response.Write "</div>" 86%> 87<BR> 88<BR> 89</body> 90</html> 91
新サーバーにAccessは入っていません。
旧サーバーのAccessはMicrosoft(R) Access 97です。
えーと、accessを使用してAccessのデータを移行しようとしているんですね？
で、その場合のAccessのバージョンが違うって事？
もし、mdbファイルを参照、修正などする場合は他のPCから新サーバーに入って操作します。
えーと、新サーバーにaccessは無いのですよね？
「新サーバーに入って」とはリモートデスクトップですか？
それとも、新サーバーにaccessのファイルが入っていて、共有として参照するって事ですか？
Accessのデータだけではなく、システムすべてを新サーバーにコピーして稼働調整を行っています。
古いサーバーは使用しなくなる予定です。
新サーバーにAccessは入れずに使用します。
システム構成として、旧サーバーのファイル資産を新サーバーに移動するというのは分かりましたが、その際のaccessのファイルは、どのように参照するのでしょうか？
旧のシステムではサーバーに入っていたaccessを経由して利用していたのでしょうか？
そもそもaccessを作り変えている意図が分かりません。
accessのプログラムもバージョンアップするのは、accessのバージョンを上げて使用するからですよね？
リモートデスクトップです。
新サーバーにAccessのファイルが入っており、リモートデスクトップでAccessの入ったPCから操作します。複数のPCから操作する可能性があるためAccessのバージョンはバラバラになってしまう可能性があります。
ですが、基本は直接mdbファイルを操作するのではなく社内Webから対象のURLにアクセスしてそこでファイルの一部をSQLで表示することになります。
Accessnoプログラムのバージョンアップをしたのは、試行錯誤の結果うまくいった時があったので今回も試したのですが、もし不要なら元のバージョンのファイルのまま使用しても大丈夫です。
リモートデスクトップでサーバーに入るなら、accessが必要になるのはサーバーですよ
> 社内Webから対象のURLにアクセスしてそこでファイルの一部をSQLで表示
これはAccessで行うのではないですよね。
構成がいまいちわかりません。
エラー自体は、必要なバージョンのaccessが入っていないのに実行しているように見えるので、構成を確認したいのですけど。
すいません勘違いしていました。リモートデスクトップで入るのではなく、操作PCでネットワークから新サーバーのフォルダにアクセスして操作PCのAccessでmdbファイルを開きます。
こちらは、普段使用する操作ではなく、もし必要ならという意味です。
普段の操作ではAccessを使わずにASPファイルでデータベース接続してSQL文でファイルを操作します。
> Accessを使わずにASPファイルでデータベース接続してSQL文でファイルを操作します。
では質問で行おうとしているのは何のための処理ですか？
Aspでの処理の事なら、該当バージョンのAccessがインストールされている必要があると思いますけど、新構成ではaccessはどこにもインストールしていないのではないですか？
AccessのファイルをAccessプログラムを使わずに使用できる処理だと思っています。
知識不足で申し訳ないのですが、mdbファイルはデータベースファイルで合っていますよね？
一緒に考えていただき、ありがとうございます。申し訳ありませんが、今日はこの辺で終了して明日また考え直したいと思います。ありがとうございました。
＞Aspでの処理の事なら、該当バージョンのAccessがインストールされている必要があると思いますけど、新構成ではaccessはどこにもインストールしていないのではないですか？
Accessプログラムがなくても動作すると思っていました。また調べなおしてみます。
エラーが出ている行のみ提示しても再現できません。
再現できる最低限のコードを提示しては？
コード全体を追記しました。
それほど長いコードではないので良かったですが、こういう掲示板では、コードを整理して投稿するようにしてください。
Ｑ－表示 はクエリーかと思いますが、master.mdb に存在していますか？
全角文字が問題になることもあるので、名称を変更するとどうでしょうか？
>こういう掲示板では、コードを整理して投稿するようにしてください。
申し訳ないです、以後気を付けます。
>Ｑ－表示 はクエリーかと思いますが、master.mdb に存在していますか？
master.mdbにＱ－表示は存在しています。
>全角文字が問題になることもあるので、名称を変更するとどうでしょうか？
『Ｑ－表示』から『QHyouji』に変更して試しましたが、同じエラーが出ました。
同じエラーというのは「 入力テーブルまたはクエリ '×××××' が見つかりませんでした。そのテーブルやクエリが存在していること、または名前が正しいことを確認してください。 」ですか？
それともタイトルのエラーですか？
タイトルのエラーです。
こちらです。
「現在の Recordset はブックマークをサポートしてません。プロバイダーか、選択されたカーソルタイプの限界の可能性があります。」
rs.AbsolutePosition=cnt 'エラーの出た部分
この部分をコメントアウトするとエラーにならず、旧サーバーの時と同じようmaster.mdbの内容が表示されました。
この部分が無くても問題は起こらないでしょうか？
cntの中身はループごとに1，2，3...と増えていました。
こちらでは再現できていないのですが、rs.Open "SELECT ～" の前に
rs.CursorLocation = 3
を入れるとどうでしょうか？
＞rs.CursorLocation = 3
こちらを入れるとエラーがなくなりmaster.mdbの内容も表示されました。
「AbsolutePosition」
https://docs.microsoft.com/ja-jp/office/client-developer/access/desktop-database-reference/absoluteposition-property-ado
なので、CursorLocation がダメだったら、MoveNext を繰り返し実行する手もあります。
微妙にレスがすれ違いましたが、動いたならよかったです。
提案してくださったものと比較してどの方法がいいか試してみます。
ありがとうございました。
最後に質問とは関係なくこのサイトの仕様なんですが、回答ではない部分で解決したのですがベストアンサーってどうしたらいいですか？
出来レースっぽいですが回答欄に書いときます。
＞出来レースっぽいですが回答欄に書いときます。
助かったのは事実ですので。
ありがとうございます。
回答2件
0
ベストアンサー
rs.Open "SELECT ～" の前に
rs.CursorLocation = 3 ' adUseClient
を入れてみてください。
ダメだったら、AbsolutePosion をやめて、MoveNext を繰り返し実行して、カレントレコードを移動してください。
(両方動くなら AbsolutePosition のほうが速いと思われます。)
投稿2020/06/02 08:03
総合スコア2696
お二方ともご教授ありがとうございました。
こちらの方法で解決しましたのでベストアンサーを送らせていただきます。
データベースエンジンですが、accessをインストールしなくても標準で含まれていました。
この点は訂正しておきます。
プログラムの変更を極力少なくするためには、古い版(jet)をインストールしないと駄目な点は変わりありませんが。
混乱させてしまって申し訳ありません。
Jet OLEDB は、たしか 32bit バージョンが標準で入ってたと思いますよ。
ACE 12.0が下位互換があるので、jetも必要ないみたいですね。
＞saziさん
注目するべき点、また単語の意味など、調べることが出来たので助かりました。
コードの大部分がわからないことだらけで、一から調べていると時間がかかりすぎてしまい、ピンポイントで問題の原因と解決を調べています。穴だらけの知識の私に付き合っていただいてありがとうございました。
0
なんか構成がしっかり構築されていない感じですね。
AccessのファイルをAccessプログラムを使わずに使用できる処理だと思っています。
Accessのデータファイルにアクセスする側には最低ドライバーがあればいいですけど、accessのファイル構造にアクセスするには、データベースエンジンが必要です。
97とかだとjetですけど、以降はACEです。
それはインストールされていないと駄目です。
以下参考
ASP.NETからAccessを使用してPDF作成した２（Access Visual Studio設定）
AccessがインストールされていないPCでmdb・accdbを見る方法
Microsoft Access（.mdb、.accdb）のODBC、OLEDBドライバーに関するまとめ
投稿2020/06/01 08:44
編集2020/06/01 08:51総合スコア25300
事前にMicrosoft Access データベース エンジン 2010 再頒布可能コンポーネントをインストールしていました。参考にも貼っていただいている、
Microsoft Access（.mdb、.accdb）のODBC、OLEDBドライバーに関するまとめ
というサイトを参考にしています。
新サーバーのODBCデータソースアドミニストレーター（64ビット）で確認するとドライバーに
Microsoft Access Driver (*.mdb, *.accdb) が入っています。ファイルがACEODBC.DLLとなっているのですがACEとはこれのことですか？
> Microsoft Access データベース エンジン 2010 再頒布可能コンポーネントをインストール
これはドライバーです。どこにインストールしたのですか？構成的には新サーバーであるべきですが。
ACEはデータベースエンジンです。ドライバーではありません。
新サーバーにインストールしています。
Access本体のプログラムを購入しないと手に入らないものですか？
リンク先を見て下さい。
ただ、データベースはaccessである必要があるのですか？
SQLserverの無償版とかフリーのデータベースは視野に入れないのですか？
＞データベースはaccessである必要があるのですか？
必ずしもAccessである必要は無いかもしれませんが、できるだけソースコードをいじらずに出来たらと思い、旧サーバーと同じようにしています。
稼働調整ができることがわかればAccessの購入も会社に申請すれば可能なのでこのままAccessを使用したいと考えています。
> できるだけソースコードをいじらずに出来たら
現状とは同じで、新サーバーの環境に合わせるという方向性ですよね。
なのにAccessは不要と思われたのはなぜなのでしょうか？
新サーバーにAccess97をインストールして動作するかどうかは試されたのですか？
それが一番変更が少なくて済むはずですけど。
動作するなら旧のAccessのライセンスが使えるはずですし。
＞Accessは不要と思われたのはなぜなのでしょうか？
Accessが不要と思ったのはここには記載していませんが、他の部分でMicrosoft Access Driver (*.mdb, *.accdb)を使ってmdbファイルの中身を読み込むことが出来ていたからです。なくても動作するならわざわざ購入する必要は無いのかと思っていました。
＞動作するなら旧のAccessのライセンスが使えるはずですし。
旧サーバーのAccessのライセンスが使えるのは失念していました。
根本的に知識不足、経験不足だと思っています。
新サーバーにAccess97をインストールして動作するか試してみます。
旧のライセンスを使ってインストールするのも経験がないので、調べながらやることになり、結果の報告は遅くなると思います。
Access97のサポートは終了していますから、それでも良ければという前提ですけど。
あなたの回答
tips
プレビュー
