Form.OrderByOnで初期化に失敗する

Question

いつもお世話になっております。

SQL = "SELECT A, B, C, D, E, F, IIF(IsNUll([G],'')<>'',1,0) AS G " _
   & " FROM table_a " _
   & " WHERE A = '" & メインフォームのデータ & "'"
rs.CursorLocation = adUseClient
rs.Open SQL, サーバー接続, adOpenDynamic, adLockReadOnly
Set Me.サブフォーム名.Form.Recordset = rs.Clone

rs.Close

サブフォーム名.Form.OrderBy = "A,B"
サブフォーム名.Form.OrderByOn = True '// こいつが悪さをしている

サーバーに接続してレコードを取得し、その内容をサブフォームに表示するプログラムです。
サブフォーム名.Form.OrderByOn = Trueを実行すると、データプロバイダー初期化できませんでした。
というエラーが表示されます。
→レコードの件数を確認するとサーバーの件数と一致するのでSQLの実行自体は上手くいっています。

どこに原因がありますでしょうか？
SELECTで取得するカラム数を増やしてから今回の事象が発生しました。

IIFを使用しているのが原因なのでしょうか？

ご教授のほどよろしくお願いします。

★追記①★
SQL文のNzをIsNUllに変更いたしました。

Answer 1

AccessのフォームやレポートはDAOのレコードセットと連結するのが前提で設計されてます。レコードセットプロパティにテーブル名やSQLを設定したときは、DAOのレコードセットと連結されます。

この質問のコードでADOレコードセットと連結させることはできますが、FilterプロパティやOrdeByプロパティはADOレコードセットと連結させたときは使用できません。

前の質問にも回答しましたが、レコードセットプロパティにSQLを設定すれば、FilterプロパティやOrdeByプロパティを使用できます。SQLのIN句を利用すれば外部データベースにも接続できます。

Comments

[Chandler_Bing]

ありがとうございます。

サブフォーム名.Form.OrderBy = "A,B"
サブフォーム名.Form.OrderByOn = True '// こいつが悪さをしている
を使用せずに、

SQL = "SELECT A, B, C, D, E, F, IIF(NZ([G],'')<>'',1,0) AS G " _
& " FROM table_a " _
& " WHERE A = '" & メインフォームのデータ & "'"

にORDER BY を指定すると
rs.Open SQL, サーバー接続, adOpenDynamic, adLockReadOnlyの部分で
データベースに接続できないとう旨のエラーが出てしまいます。

[hatena19]

接続先のデータベースはなんですか。Access？　SQL SERVER？ ・・・・

[Chandler_Bing]

SQL SERVERになっております。

[hatena19]

NZはAccess独自の関数なのでSQL SERVERでは使えません。
前の質問で回答もらってますよね。

[Chandler_Bing]

すみません。
質問文にあやまりがありました。（※訂正します。）

こちらIS NULL を使用しております。
Form.OrderByOnを削除するとソートはされませんが、レコードは取得できます。
これはなぜなのでしょうか？

[hatena19]

上の回答にも書きましたが、ADOレコードセットとの接続では OrderBy OrderByOn の機能は使えません。

[Chandler_Bing]

ありがとうございます。理解不足ですみません。
ADOレコードセットとの接続 = アクセスのデータベースではなく、サーバー側からのデータ取得ということでしょうか？

その場合に、OrderBy や OrderByOn が使えないとなると、どのようにしてレコードを並べ替えればよいのでしょうか？？

[hatena19]

DAOレコードセットをRecordsetプロパティに設定するか、レコードセットプロパティにSQLを設定すれば、OrderBy OrderByOn を遣えます。

ADOのレコードセットを使いたい場合は、ADOのレコードセットを開く時に、SQLで ORDER BY で並べ替えてそれをレコードセットに設定することになります。あるいは、ADOレコードセットのSORTプロパティで並べ替えてから、フォームのRecordsetプロパティに設定することになります。

[Chandler_Bing]

>SQLで ORDER BY で並べ替え

つまり以下の形ですよね？

SQL = "SELECT A, B, C, D, E, F, IIF(IsNUll([G],'')<>'',1,0) AS G " _
& " FROM table_a " _
& " WHERE A = '" & メインフォームのデータ & "'" _
& " ORDER BY A, B"
rs.CursorLocation = adUseClient
rs.Open SQL, サーバー接続, adOpenDynamic, adLockReadOnly
Set Me.サブフォーム名.Form.Recordset = rs.Clone

これでもエラーがでるよのですが、hatena19様からみて上記だと動くはずという認識でしょうか？

[hatena19]

SQLに間違いがなければ動くという認識ですが。
SQL SERVERとの接続は経験がないので、これ以上の回答は私には難しいです。

[Chandler_Bing]

行けました。。。。

サブフォーム名.Form.OrderBy = "A,B"
↑こいつもコメントアウトし、SQL文にORDER BY 句を付与で動きました。
お騒がせ致しました。