![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?8acaa2e)
ADOで現在のレコードの次のレコードの値も取得するには?
アクセスに対してADOでデータを取得しているのですが
例えばテーブルに
フィールド1
あああ
いいい
ううう
と入ってる時に、1レコード目のあああの値を取得しているときに、同時に次のレコードのいいいの値も取得することは可能ですか?
Sub Sample()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Set cn = CurrentProject.Connection
rs.Open "SELECT * FROM テーブル1", cn, adOpenStatic, adLockPessimistic
For i = 1 To rs.RecordCount
MsgBox rs("フィールド1") '現在のレコード
MsgBox rs("フィールド1") + 1 '次のレコード
rs.MoveNext
Next
rs.Close: Set rs = Nothing
cn.Close: Set cn = Nothing
End Sub
これだとダメなようです。
あああ
いいい
が表示されるようにしたいのですが、どうすればいいか教えてください。
No.2ベストアンサー
- 回答日時:
rs.MoveNextなどでカレントレコードを変更しないかぎりは次のレコードの値を取得することはできません。
よくある手法で先読み法というのがあります。
1つ前の値を変数に退避しておく方法です。
Dim Field1 As String
Field1 = rs("フィールド1")
rs.MoveNext
For i = 2 To rs.RecordCount
MsgBox Field1
MsgBox rs("フィールド1")
Field1 = rs("フィールド1")
rs.MoveNext
Next
No.1
- 回答日時:
あああ
しかない場合の例外はどうする?
いまあるレコードが
あああ
いいい
ううう
えええ
なら、
あああ
いいい
いいい
ううう
ううう
えええ
で良いですか?
if rs.RecordCount > 2 then
For i = 1 To rs.RecordCount-1
MsgBox rs("フィールド1") '現在のレコード
rs.MoveNext
MsgBox rs("フィールド1") '次のレコード
Next
else
MsgBox rs("フィールド1") '現在のレコード
rs.MoveNext
MsgBox rs("フィールド1") '次のレコード
endif
でどうでしょう?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) access count数を変数に格納 2 2022/03/30 19:21
- PHP クエリObjectをforeachで回す時に、次のレコードへ移動せずに次のレコードを取得したい 2 2022/07/28 15:29
- Access(アクセス) docmd.gotorecordを起動するには 5 2022/06/17 15:20
- Access(アクセス) DoCmd.SearchForRecord が動かない時の解決方法 3 2022/07/22 15:31
- Access(アクセス) チェックボックスにチェックが入った後の挙動 1 2022/08/21 12:39
- Access(アクセス) アクセスの更新クエリでカレントレコードのみ更新したい 1 2022/06/02 23:32
- Access(アクセス) 実行時エラー3131 FROM 句の構文エラーです について 7 2022/06/13 15:45
- Visual Basic(VBA) ExcelからAccessのテーブルに書き込む時に時間がかかる 1 2022/10/14 20:38
- Visual Basic(VBA) データベースから絞り込んでデータを読み込み 1 2023/02/21 19:51
- Visual Basic(VBA) Accessフォームで全レコードを指定のExcelのセルへ転送し印刷する方法について 2 2022/09/08 18:23
このQ&Aを見た人はこんなQ&Aも見ています
-
「環境が人を育てる」って本当?環境によって人格や生き方は本当に変わるのか
環境が人生に与える影響は実際どれほどのものなのか、専門家の田宮由美さんに伺った。
-
前のレコードの値を自動で入れたい
PowerPoint(パワーポイント)
-
2つ目のレコードの値を取得するには?
Access(アクセス)
-
レコードセット(ADO.Recordset)で処理レコードは何番目?
Visual Basic(VBA)
-
-
4
Access サブフォームでの選択行の取得
その他(データベース)
-
5
レコードを保存するコード アクセスvba
その他(Microsoft Office)
-
6
カレントレコードが無い事を判定させる方法
Visual Basic(VBA)
-
7
Access 最後のレコードに到達するまでループ処理を行う方法
Access(アクセス)
-
8
Accessのレポート上のテキストボックス値を設定したい
その他(データベース)
-
9
日付型のフィールドに空白を入れる方法を教えてください
その他(データベース)
-
10
新規レコード行を非表示にしたい
Access(アクセス)
-
11
アクセスでテキストボックスの値が空白だったら
Access(アクセス)
-
12
テキストボックスにクエリ結果を表示させたい
その他(データベース)
-
13
レコードが存在しなかった場合
Microsoft ASP
-
14
SQL文で パラメータが少なすぎます エラー
Access(アクセス)
-
15
Accessでレコードを別テーブルへコピーするには
Access(アクセス)
-
16
Accessでテーブルの値をテキストボックスに代入するには?
Access(アクセス)
-
17
Access VBAでタブコントロールで選択するタブをしていするには。
Access(アクセス)
-
18
YES/NO型の値
Excel(エクセル)
-
19
ACCESS2010のVBAでフォーム内クエリのフィールド値を取得したい
Visual Basic(VBA)
-
20
Accessを開きなおすとテキストボックスの値がエラー#Name?になる
その他(データベース)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ACCESSのフォームで次のレコー...
-
差込印刷で顧客別に複数行のデ...
-
ラベルをクリックしてレコード...
-
ACCESSでオフセットを求める方法
-
アクセスデータベースのUnicode...
-
access レポートで罫線...
-
ACCESSで空白行を追加
-
VSAM
-
PSQLで-- More --を表示しない方法
-
accessのマクロで「一時変数設定」
-
Accessのレポートの集計に条件...
-
FM8で文字列の連結
-
アクセスのレポートのヘッダー...
-
「#エラー」の回避
-
アクセスのレポートを印刷する...
-
アクセスで入力したデータの順...
-
Accessのレポート機能で空白に...
-
Accessで値がnullの場合は計算...
-
Accessクエリで特定の行を削除...
-
Access2007でSQLの複数列副問い...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
差込印刷で顧客別に複数行のデ...
-
ACCESSのフォームで次のレコー...
-
Accessのフォームへ、記録者の...
-
ADOで現在のレコードの次のレコ...
-
Accessのレポートの集計に条件...
-
日付の加算・減算ってできますか?
-
accessのマクロで「一時変数設定」
-
ACCESSでオフセットを求める方法
-
ラベルをクリックしてレコード...
-
ACCESSでのランダムのレ...
-
ACCESSのレコード操作で1つ前...
-
PSQLで-- More --を表示しない方法
-
アクセスでのエクセルでいう行...
-
ファイルメーカでの条件付き画...
-
VSAM
-
ファイルメーカーのポータル内...
-
ファイルメーカーで最大シリア...
-
Accessで写真(JPEG)管理がした...
-
ファイルメーカーでレコード複...
-
ACCESSで空白行を追加
おすすめ情報