
CreateObject("Scripting.Dictionary")でセットしたオブジェクトは関数の戻り値として取得できますか?
例)
---------------------------------------------
Dim RetObj
Dim RecValue
RetObj = CreateRec()
RecValue = RetObj.Item("1")
Response.Write(recValue)
Private Function CreateRec()
Dim RecSet
Set RecSet = CreateObject("Scripting.Dictionary")
RecSet.Add "1","山田"
CreateRec = RecSet
Exit Function
End Function
-------------------------------------------------
現在のエラー状況
●エラー タイプ
Microsoft VBScript 実行時エラー (0x800A01C2)
引数の数が一致していません。または不正なプロパティを指定しています。
(余談)セットしたオブジェクトを引数渡しは出来るのに戻り値としてとれないのは・・・知識不足ですが不思議です。。
ご教授をお願いいたします
No.2ベストアンサー
- 回答日時:
?
RecordSetでも取れるはずですが?
ソースがそれではよく判らないので断言は出来ませんが。
ただ、なんだったかなー。
一回別のモノに落とさないと関数の中・外の出入りが
出来なかったのがあったような。。。
はっきりエラーが出たソースを書いてもらえれば判るんですが。
ちなみに、sousi-niさんが質問に書いている関数↓ですが
------------------
Private Function CreateRec()
Dim RecSet
Set RecSet = CreateObject("Scripting.Dictionary")
RecSet.Add "1","山田"
CreateRec = RecSet
Exit Function
End Function
------------------
こう書き直せます↓。この方がシャープ。
何やってるのか判りやすいし。
------------------
Private Function CreateRec()
Set CreateRec = CreateObject("Scripting.Dictionary")
CreateRec.Add "1","山田"
End Function
------------------
ご教授ありがとうございます。別投稿でもご協力していただき大変感謝しております。私自身も調べておりますので、どうかよろしくお願いいたします。
No.1
- 回答日時:
例)
---------------------------------------------
Dim RetObj
Dim RecValue
RetObj = CreateRec()
↑ここのところを
Set RetObj = CreateRec()
とすれば取れます。
この回答への補足
ご教授ありがとうございます。
Set G_RecMap = Server.CreateObject("ADODB.Recordset")
'レコードオープン
G_RecMap.Open SQLPrm, G_Conn, 3, 3, 1
上記のようにレコードセットしたオブジェクトは返せますでしょうか?同じ要領で行うと上手く行かないのですが。。。お手数ですが、よろしくお願いします
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
実行時エラー 438になった時の...
-
Outlook.ApplicationをCreateOb...
-
なぜこんな初歩的なVBAのIf文で...
-
VBAでのエラー
-
【マクロ】エラー【#DIV/0!】が...
-
実行時エラー3001「引数が間違...
-
VB.netでのオートフィルタについて
-
ADODB.Streamを使用してUTF-8を...
-
デバッグ時はOK、デバッグ無し...
-
C言語 mallocのエラーに関する質問
-
実行時エラー -'-2147417848
-
EXCEL/VBAで、自分のPCだけエラ...
-
VB6+SQL サーバー 2000 で 実行...
-
実行時エラー9 インデックスが...
-
VBAでピボットテーブルの作成(...
-
VBA Sortメソッドについて
-
EOFError: EOF when reading a ...
-
なぜエラーになるのでしょうか...
-
実行時エラー48発生時のDLL特定...
-
『実行時エラー 5 プロシージャ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
実行時エラー 438になった時の...
-
VBAがブレークモードになっ...
-
【マクロ】エラー【#DIV/0!】が...
-
なぜこんな初歩的なVBAのIf文で...
-
VBAでのエラー
-
実行時エラー -'-2147417848
-
実行時エラー48発生時のDLL特定...
-
マクロについて教えてください...
-
ExcelVBA Range クラスの Page...
-
EXCEL VBAマクロ中断でデバッグ...
-
実行時エラー3001「引数が間違...
-
EXCEL/VBAで、自分のPCだけエラ...
-
VB6+SQL サーバー 2000 で 実行...
-
VBAのエラー発生場所をメッセー...
-
ADODB.Streamを使用してUTF-8を...
-
【Excel VBA】マクロをボタンに...
-
OLEDB.NETで接続できない
-
なぜエラーになるのでしょうか...
-
INSERT INTOステートメント構文...
-
Outlook.ApplicationをCreateOb...
おすすめ情報