アクセスでADOを使っているのですが、
Sub test()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Set cn = CurrentProject.Connection
rs.CursorLocation = adUseClient
rs.Open "SELECT * FROM Q1", cn, adOpenStatic, adLockPessimistic
rs.Sort = "受付日 DESC"
For i = 1 To rs.RecordCount
・
・
・
このようなコードを作っていますが、
rs.Sortの部分で、「並べ替えを適用できません」になります。
レコード数は、15000件くらいです。
なぜ並べ替えができないのでしょうか?
しょうがないからクエリで最初から並べ替えしておきますが、原因を教えてください。
No.1ベストアンサー
- 回答日時:
おかしな所は見当たらないですね。
こちらでも検索してみましたが、ソートするフィールドの型によってもその実行時エラーが
発生するみたいですね。(メモ型らしいですけど)
直接的な解決策ではありませんが、ORDER BY句を指定するのはダメですか?
Sub test()
Dim cn As ADODB.Connection'ここでNewするのはやめましょう。
Dim rs As ADODB.Recordset
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
Set cn = CurrentProject.Connection
'rs.CursorLocation = adUseClient 不要
rs.Open "SELECT * FROM Q1 ORDER BY 受付日 DESC ;", cn, adOpenStatic, adLockPessimistic
For i = 1 To rs.RecordCount
recordsetを取得してから並び替える必要があるならダメですが、そうでないなら
ORDER BY句で対応された方がいいのではないでしょうか。
Q1(クエリ)に例えば受付日が昇順に設定されていても、ADOで開く時のORDER BY句が優先されます。
お探しの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
- Access(アクセス) 実行時エラー3131 FROM 句の構文エラーです について 7 2022/06/13 15:45
- Access(アクセス) DoCmd.SearchForRecord が動かない時の解決方法 3 2022/07/22 15:31
- その他(Microsoft Office) 1の行を固定した上でVBAを用いて日付順に自動並べ替え 2 2022/06/06 15:09
- Visual Basic(VBA) 正規表現を用いての並び替え 7 2022/04/04 09:27
- Visual Basic(VBA) データベースから絞り込んでデータを読み込み 1 2023/02/21 19:51
- Excel(エクセル) VBA フォルダ見える化のコードについて 2 2023/06/19 15:04
- Visual Basic(VBA) エクセル VBAについて 2 2022/05/16 16:33
- Visual Basic(VBA) コード名シートA列と集計シートA列のコードが一致したら、コード名シートA5からk12の範囲をコピーし 1 2022/08/29 23:46
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
アクセスVBAで既に開いているエクセルを閉じたい
Yahoo!ショッピング
-
ACCESS クエリーでソートの不具合
その他(データベース)
-
日付型のフィールドに空白を入れる方法を教えてください
その他(データベース)
-
-
4
ACCESSでデータ読み取り専用を解除する方法
その他(データベース)
-
5
Access 最後のレコードに到達するまでループ処理を行う方法
Access(アクセス)
-
6
ADOのCursorLocationプロパティ
Visual Basic(VBA)
-
7
Access 昇順・降順で並び替えできない
その他(データベース)
-
8
Accessの画面更新を一時的に停止する方法。
その他(データベース)
-
9
「RunSQL」と「Execute」の違い
Access(アクセス)
-
10
アクセス VBAで列の入れ替え データシートビュー
その他(Microsoft Office)
-
11
SQL文で パラメータが少なすぎます エラー
Access(アクセス)
-
12
Accessでレコードを別テーブルへコピーするには
Access(アクセス)
-
13
Access レポートを開く時、2つの条件で昇順で並び替え
Access(アクセス)
-
14
ACCESSでVBAから選択クエリの抽出条件を指定したい
Access(アクセス)
-
15
ACCESSでコントロールソースの変更
Access(アクセス)
-
16
MS Accessでフォームの「開く時」と「読込み時」のイベントの違い
Access(アクセス)
-
17
AccessのSQL文で1件のみヒットしたら終了させる構文。
その他(データベース)
-
18
ACCESSテーブルを RecordSet以外で1レコードづつ読む方法
Visual Basic(VBA)
-
19
Access サブフォームでの選択行の取得
その他(データベース)
-
20
クエリ表示と、ADOで抽出したレコードセットが違う
Access(アクセス)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
2つ目のレコードの値を取得す...
-
ACCESSで視覚的タイムテーブル...
-
Access 追加クエリについて
-
日付と文字列を条件としてDLook...
-
テーブルのデータ型の変更がで...
-
Access 2010で実行時エラー3061
-
Accessのフィールド名に半角括...
-
accessでフィールド追加のあと...
-
ADOX フィールドのRequiredプ...
-
Access Dcount関数で引数が指定...
-
クリスタルレポートで文字列の...
-
Access VBA 添付型フィールド
-
Accessの画像挿入のVBAコード
-
実行時エラー'9':インデックス...
-
クリスタルレポート(8.5)の書式...
-
DataTableに特定のフィールドが...
-
アクセス ADO Null以外のレコ...
-
SQLの構文エラー
-
2次元のdictionary
-
INT64対応のprintf系関数はあり...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
accessでフィールド追加のあと...
-
Accessのフィールド名に半角括...
-
INT64対応のprintf系関数はあり...
-
テキストファイルのフィールド...
-
2つ目のレコードの値を取得す...
-
DataTableに特定のフィールドが...
-
Access 2010で実行時エラー3061
-
Access VBA 添付型フィールド
-
日付と文字列を条件としてDLook...
-
AccessのDAOでフィールド名を配...
-
ACCESSで日別集計をする場合
-
Accessの画像挿入のVBAコード
-
アクセスでADO 並べ替えが適用...
-
クリスタルレポートで文字列の...
-
オートナンバー型を抽出条件に...
-
ACCESSデータベースにV...
-
テーブルのデータ型の変更がで...
-
ADOでNullフィールドの抽出
-
Access クエリで変数を参照する...
-
AccessVBAで他テーブルのデータ...
おすすめ情報