ASPは本当にドキュメントが少なく困っています。
---Main.asp----------------------------------
Dim RetRec
'DB接続
Call DBOpen()
'SQL文
strSQL = "SELECT・・・・"
'レコードオープン実行
Set RetRec = RecOpen(strSQL)
'レコードカウント取得
RecCnt = RetRet.RecordCount
・
・
・
--DBCon.asp--------------------------
Public Function RecOpen(SQLPrm)
'オブジェクト宣言
Set G_RecMap = Server.CreateObject("ADODB.Recordset")
'レコードオープン
G_RecMap.Open SQLPrm, G_Conn, 3, 3, 1
'復帰値作成
RecOpen = G_RecMap
Exit Function
End Function
-----------------------------------------
エラー内容
オブジェクトでサポートされていないプロパティまたはメソッドです。: 'RecordCount'
・・・当然のことながら、復帰値をオブジェクトとして
拾っていないので、上記エラーが表示された。
-------------------------------------------
上記のようにレコードセットしたオブジェクトは返せますでしょうか?同じ要領で行うと上手く行かないのですが。。。お手数ですが、よろしくお願いします
Sessionの使用は禁止となっています。
No.2ベストアンサー
- 回答日時:
> ASPは本当にドキュメントが少なく困っています。
そうかなぁ…。MSサイトのMSDN Libraryに大抵の事は載ってますよ。
個人のサイトもたくさんあるし。。。
これでは如何でしょうか?(インデントのため全角スペース使用)
Public Function RecOpen(SQLPrm)
Set G_RecMap = Server.CreateObject("ADODB.Recordset")
G_RecMap.Open SQLPrm, G_Conn, 3, 3, 1
Set RecOpen = G_RecMap ' ** ← ここ直しました
End Function
ところで上記関数にConnectionをCreateしている箇所がないのですが
それはいいのかな?
見当違いならごめんなさいませ。頑張ってくださいm(_ _)m
ありがとうございます。この内容についてさらにご質問がございます。よろしければご協力いただけませんでしょうか?ここでの質問は内容は理解できましたので、しみきりさせていただきます。
No.1
- 回答日時:
ちなみに、そのSQL文で、値はちゃんと取れてるのですか?
関数の中に入れないで、ずらずらっと書いた場合には
ちゃんとRecordSetは取れているのでしょうか?
話はそれからです。
参照渡しとスコープの問題かなーという気もちょっとしますが、
まずは上記の確認をすることですね。
-----
えー、ASPの本はその辺の本屋に行けば簡単なものから
懇切丁寧なものまで、たくさんあるはずですよ(^^)。
この回答への補足
>ちなみに、そのSQL文で、値はちゃんと取れてるのですか?
はい、確認は取れています。
>関数の中に入れないで、ずらずらっと書いた場合には
>ちゃんとRecordSetは取れているのでしょうか?
RecOpen(strSQL)関数内のレコードセットのオブジェクト
をSession渡しした場合、Recordcountは取れました。
[Set Session("gRec") = Server.CreateObject("ADODB.Recordset")]
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) access count数を変数に格納 2 2022/03/30 19:21
- Visual Basic(VBA) Excel VBAで並べ替えをしたい 3 2023/02/25 09:31
- Visual Basic(VBA) Excelで下記のようにマクロを作ったところ、一回目は実行できたのですが、二回目以降「実行時エラー1 1 2022/03/25 08:08
- Visual Basic(VBA) エクセルVBA(実行時エラー438)の対処法を教えてもらえないでしょうか 3 2023/04/22 13:43
- Visual Basic(VBA) VBA★PDFをPDFアプリで印刷しようと思っていますが上手くゆきません 1 2022/06/06 22:04
- Visual Basic(VBA) ExcelからAccessのテーブルに書き込む時に時間がかかる 1 2022/10/14 20:38
- Visual Basic(VBA) エクセルVBA Workbook変数に変数を使ったファイル名を格納したい 5 2023/06/13 14:46
- Visual Basic(VBA) VBA リボンののリカバリーでオーバーフローエラーになります 2 2023/07/04 19:07
- Visual Basic(VBA) Csvファイルの最終行を取得する構文はこれであっていますか?オブジェクトは、このプロパティまたはメソ 3 2022/12/26 14:38
- Visual Basic(VBA) outlook マクロが終了しません。 1 2022/09/02 11:14
このQ&Aを見た人はこんなQ&Aも見ています
-
外出時に「待たせる妻」vs イライラする「待つ夫」は日本だけ?見習いたい海外事情
夫の家事参加に積極的なイメージのある海外でも、同様の事例はあるのか。結婚カウンセラーの佐竹悦子さんに伺ってみた。
-
ADO オブジェクトの渡し方
Visual Basic(VBA)
-
ADOを使ったDBアクセス後のメモリ解放
その他(データベース)
-
レコードセットにnullの場合
Visual Basic(VBA)
-
-
4
On ErrorでエラーNoが0
Visual Basic(VBA)
-
5
access vbaにてテンポラリーテーブルが作りたいです。
Access(アクセス)
-
6
Accessで2種類のデータベースを結合する方法
その他(データベース)
-
7
サブフォームに対してGoToRecordするには?
その他(Microsoft Office)
-
8
実行時エラー 3265「要求された名前、または序数
Visual Basic(VBA)
-
9
アクセスVBAで既に開いているエクセルを閉じたい
Yahoo!ショッピング
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
worksheetFunctionクラスのVloo...
-
「Columns("A:C")」の列文字を...
-
エクセルのVBAの標準モジュール...
-
AccessVBAで「dim dbs as datab...
-
UserForm1.Showでエラーになり...
-
VBScriptでファイルの日時順(降...
-
実行時エラー 3265「要求された...
-
VBAで既に開いている別アプリケ...
-
エクセルVBAで2つの画像を比較...
-
EXCEL VBA オートシェイプナン...
-
VBAについてです。 初心者です...
-
VB6 ファイルのリネームの仕方
-
オブジェクト名が同じ図形の変更
-
エクセルVBAでFor each文
-
VBScriptでの起動済みのIEの操作
-
ある文字列が全て数字であるか...
-
Excelでフィルタをかけると警告...
-
VBからPDFファイル自動生成...
-
osversioninfoのオブジェクトが...
-
Excel VBA グラフを任意sheetに...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
worksheetFunctionクラスのVloo...
-
「Columns("A:C")」の列文字を...
-
エクセルのVBAの標準モジュール...
-
実行時エラー 3265「要求された...
-
VBAで既に開いている別アプリケ...
-
VBAからPDFファイルにパスワー...
-
ある文字列が全て数字であるか...
-
VBAで Set wb = Sheets(1).Cop...
-
VBからPDFファイル自動生成...
-
PowerPointVBAでスライドマスタ...
-
エクセルVBAでcode128のバー...
-
VBで引数にDictionaryオブジェ...
-
EXCEL VBA オートシェイプナン...
-
エクセルマクロエラー「'Cells'...
-
テキストボックス中の文字列の...
-
VBScriptでファイルの日時順(降...
-
Excelでフィルタをかけると警告...
-
上下の位置揃えについて
-
Excel VBAでWordの複数ファイル...
-
EDINETの情報をEXCELにダウンロ...
おすすめ情報