前回、指示をされた内容ででテストを試みましたがやはり、結果は-1
Set db1=Server.CreateObject("ADODB.Connection")
db1.Provider="Microsoft.Jet.OLEDB.4.0"
db1.ConnectionString=Server.MapPath("../master.mdb")
db1.Mode=1
db1.Open
'
Set rs1=Server.CreateObject("ADODB.Recordset")
Rs1.Pagesize = 5
'
keyword = "ABC"
'
SQL1a = "SELECT top 5 * FROM dbFILE WHERE dbTABEL Like '%" & Keyword & "%'"
Set Rs1=db1.Execute(SQL1a)
Rs1.CursorType = adOpenKeySet
intP = Rs1.RecordCount
Response.Write "RecordCount = " & intp & "<BR>"
MSDNの説明でRecordCountなど参照しましたが理解不足でしょうか ?
宜しく、お願いします。
No.1ベストアンサー
- 回答日時:
AccessってadOpenKeySetをサポートしていなかったような・・・、って試したわけではないので保証できませんが(^^;;
直接コード書いているので動作保証できませんが
以下のようにすれば動くような気がします
#エラー出たらすいません
Set db1=Server.CreateObject("ADODB.Connection")
db1.Provider="Microsoft.Jet.OLEDB.4.0"
db1.ConnectionString=Server.MapPath("../master.mdb")
db1.Mode=1
db1.Open
keyword = "ABC"
SQL1a = "SELECT top 5 * FROM dbFILE WHERE dbTABEL Like '%" & Keyword & "%'"
Set rs1=Server.CreateObject("ADODB.Recordset")
rs1.Open SQL1a, db1, adOpenStatic, adLockReadOnly, adCmdText
rs1.Pagesize = 5
intP = Rs1.RecordCount
Response.Write "RecordCount = " & intp & "<BR>"
rs1.Close
Set rs1=Nothing
db1.Close
Set db1=Nothing
あと各定数(adOpenStaticなど)は別途宣言する必要があります。
hequil さん 何度も助けて頂き、本当に有難うごさます。
何とか以下のようなリストで思い通りの結果を得られました。
これが怪しくて adOpenStatic, adLockReadOnly うまく変換されていない
ようです。
Set rs1=Server.CreateObject("ADODB.RecordSet")
Set db1=Server.CreateObject("ADODB.Connection")
db1.Provider="Microsoft.Jet.OLEDB.4.0"
db1.ConnectionString=Server.MapPath("../master.mdb")
db1.Mode=1
db1.Open
'
SQL1a = "SELECT top 10 * FROM ma01pf WHERE ma01mesg Like '%" & aryKey & "%'"
rs1.open SQL1a,db1,3,3
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Access(アクセス) 実行時エラー3131 FROM 句の構文エラーです について 7 2022/06/13 15:45
- Access(アクセス) docmd.gotorecordを起動するには 5 2022/06/17 15:20
- Access(アクセス) DoCmd.SearchForRecord が動かない時の解決方法 3 2022/07/22 15:31
- Visual Basic(VBA) access count数を変数に格納 2 2022/03/30 19:21
- Visual Basic(VBA) データベースから絞り込んでデータを読み込み 1 2023/02/21 19:51
- SQL Server SQL ServerでDBを構築。これは開発? 4 2022/05/28 14:10
- Visual Basic(VBA) Excelで下記のようにマクロを作ったところ、一回目は実行できたのですが、二回目以降「実行時エラー1 1 2022/03/25 08:08
- MySQL PHP 画像のアップロード Qiita 2 2022/11/28 04:44
- PHP php my adminより取り出したデータ表示 2 2022/06/15 11:56
- Access(アクセス) アクセス テーブルの空白を変数に置換するボタンが作りたい 4 2022/07/08 11:19
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
実行時エラー3131 FROM 句の構...
-
SQL文が実行できません
-
VBAをつかってクエリの情報を抽...
-
SQL文の実行に失敗しました???
-
PHP(PDO)でDBの情報を完全一...
-
PHPでバインドメカニズムを使え...
-
テキストボックスに入れた内容...
-
LocalのNotesメールDBをVBAで参...
-
Call to undefined method MDB2...
-
エクセルVBAについて
-
PHP&MySQLでの文字列+数列の一...
-
Q&Aサイトを作成していてURLの...
-
VB.NET エラーになる箇...
-
Resource id #3 をフィールドの...
-
php データ削除
-
MySQLでデータベースにデータin...
-
PHPで[]の使い方について
-
アラートでyes noを作りたいです。
-
phpのエラーについてです
-
PHPのプルダウンメニューにDBの...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
実行時エラー3131 FROM 句の構...
-
VBAをつかってクエリの情報を抽...
-
テキストボックスに入れた内容...
-
SQL文が実行できません
-
エラー3011
-
LocalのNotesメールDBをVBAで参...
-
in 'where clause'のエラーの理由
-
codeigniter 複数モデルでトラ...
-
PEAR でprepareメソッドがエラーに
-
SELECT文を発行して、ACCESSよ...
-
PHP5でpostgresqlのデータベー...
-
PHP(PDO)でDBの情報を完全一...
-
PDOで取得される値がすべて文字...
-
VB.NET
-
データフォームウィザードで追...
-
Accessのテーブルへ複数の主キ...
-
VBSの中で書くSQL文の記...
-
ExcelVBAでAccessのデータを検...
-
SELECT COUNTで取得した結果の表示
-
SQL文の実行に失敗しました???
おすすめ情報