次のページにてクラスモジュールを使ったレコードセット
の取得についてかかれています。
http://www.happy2-island.com/access/gogo04/capte …
http://www.happy2-island.com/access/gogo04/capte …
http://www.happy2-island.com/access/gogo04/capte …
ここでは単一レコードが前提になっているようですが、複数
レコードをループしながら値を取得する場合はどうすればいいの
でしょうか?
No.3ベストアンサー
- 回答日時:
接続設定からレコード操作までをクラスにまとめたって感じだけど、VBA でそこまでする必要があるのかなぁと。
その前に質問者は ADODB.Recordset 型のオブジェクト変数を扱ったことがあり、カレント レコードを移動するとかも経験済みか?
と、一応聞いてみる。
Dim objDB As New MDBAccess
つまり objDB は MDBAccess クラスである。
MDBAccess クラスも独自のクラスである。
MDBAccess クラスの説明ページ
http://www.happy2-island.com/access/gogo04/capte …
このページには ExecSelect() メソッドの説明も書かれている。
説明によれば ExecSelect() メソッドを実行すると、レコードセットを変数 objADORS に格納する、と書いてある。
変数 objADORS についても同じページ内に説明が書いてある。
説明によれば objADORS は単なる ADODB.Recordset である、と。
外部から objADORS にアクセスするには MDBAccess の GetRS プロパティーを使うらしい。
GetRS は単純に objADORS 内で持っている ADODB.Recordset 型の objADORS を返すだけ。
しかし MDBAccess クラスにカレント レコードを移動するメンバーが実装されていないので、GetRS で受け取ったレコードセットの Fields プロパティー等で取得できるのはカレント レコードの情報だけ。
GetRS が ADODB.Recordset を参照渡しでまんま返しているので、GetRS.Fields("name").Value とか使えるわけで、それなら GetRS.MoveNext とかも使えるはず。
Dim objDB As New MDBAccess
Dim strSQL As String
strSQL = "SELECT * FROM tbl01"
If objDB.ExecSelect(strSQL) Then
' ここから
Do Until objDB.GetRS.EOF
Debug.Print objDB.GetRS.Fields("hoge").Value
objDB.GetRS.MoveNext
Loop
' ここまで
End If
とやる。
または、
Dim objDB As New MDBAccess
dim strSQL as String
strSQL = "SELECT * FROM tbl01"
If objDB.ExecSelect(strSQL) Then
' ここから
Dim myRS As ADODB.Recordset
Set myRS = objDB.GetRS
Do Until myRS.EOF
Debug.Print myRS.Fields("hoge").Value
myRS.MoveNext
' ここまで
Loop
End If
ありがとうございます。
>接続設定からレコード操作までをクラスにまとめたって感じだけど、VBA でそこまでする必要があるのかなぁと。
どうなんでしょうねぇ。
>その前に質問者は ADODB.Recordset 型のオブジェクト変数を扱ったことがあり、カレント レコードを移動するとかも経験済みか?
と、一応聞いてみる。
これはいつもやってます。
>Do Until objDB.GetRS.EOF
>Debug.Print objDB.GetRS.Fields("hoge").Value
>objDB.GetRS.MoveNext
>Loop
これですね。同じようなのを書いたつもりでしたがそのときは動きませんでした。
参考にさせていただきながら書き直したら、動きました。
また、よろしくお願いします。
No.2
- 回答日時:
よくは見てないけど初心者が参考にするには懲りすぎたコードのようです。
フォームに「次に」「前に」というボタンを作って
この流れならGetNext、GetPreviousというメソッドも作らないと使いづらいでしょうね。
RecordSetはOpen(取得できた)ときに複数あれば最初のレコードに位置づけられます。無ければEOF(Rs.EofがTrueになる){Rs:取得したRecordset}
この「位置づけられた」行(レコード)にカーソルがあるという言い方をします。
カーソルの移動はMovenext、MovePrevious、Movelast、MoveFirsrtで行います(MoveNext以外はあまり使わない)
この回答への補足
こんにちは。
標準モジュールではいつもやっているんですが。
やっているといってもExcelからクエリを発行
してSheet上にレコード値を表示するという感じ
です。Access自体はあまり使っていません。
標準モジュール内のコードをクラスを使うことで
シンプルにできないかと考えました。
今回はSQLSERVERへの接続でやっているんですが
一応、レコードはとれています。ただ、前後に動
けないんです。
どうしたものかと思いまして。
No.1
- 回答日時:
あんたが書いたURLのどこをみればいいの?ようわからん。
自分がどうしたらどうなったとか、こういうコードでできますか?
って書いたらどう?
「レコードセットの取得」は単一レコードになるかも知れない、レコードが無いかもしれない、複数になるかもしれない、それを前提にコードを書くことはない。
あのURLも単一レコードを前提にしてないですよ。
クラスモジュールで書いたものを引用する前に標準モジュールでテストしてみたらどうです?
この回答への補足
すみません・・・
http://www.happy2-island.com/access/gogo04/capte …
のここの部分なんですが・・・
複数レコードあった場合、どうループさせるのかと思いまして。
'SQLの組み立て
strSQL = ""
strSQL = strSQL _
& "SELECT * " _
& " FROM アドレス帳テーブル" _
& " WHERE レコードキー =" _
& Forms("アドレス帳メニュー").一覧.Form("レコードキー").Value
'SELECTの実行と結果判定
If objDB.ExecSelect(strSQL) = True Then
'SELECTが成功したときはフォームのコントロールへ取得した内容をセットする
Me.漢字氏名.Value = objDB.GetRS.Fields("漢字氏名").Value
Me.カナ氏名.Value = objDB.GetRS.Fields("カナ氏名").Value
Me.性別.Value = objDB.GetRS.Fields("性別コード").Value
Me.関係.Value = objDB.GetRS.Fields("関係コード").Value
Me.生年月日.Value = objDB.GetRS.Fields("生年月日").Value
Me.職業.Value = objDB.GetRS.Fields("職業").Value
Me.郵便番号.Value = objDB.GetRS.Fields("郵便番号").Value
Me.都道府県.Value = objDB.GetRS.Fields("都道府県コード").Value
Me.住所.Value = objDB.GetRS.Fields("住所").Value
Me.電話番号.Value = objDB.GetRS.Fields("電話番号").Value
Me.FAX番号.Value = objDB.GetRS.Fields("FAX番号").Value
Me.携帯等電話番号.Value = objDB.GetRS.Fields("携帯等電話番号").Value
Me.PCメールアドレス.Value = objDB.GetRS.Fields("PCメールアドレス").Value
Me.携帯メールアドレス.Value = objDB.GetRS.Fields("携帯メールアドレス").Value
Me.備考.Value = objDB.GetRS.Fields("備考").Value
'非表示フィールドです。更新時のレコード特定に使います。
Me.レコードキー.Value = objDB.GetRS.Fields("レコードキー").Value
'SELECTが失敗したとき
Else
'登録失敗メッセージ
MsgBox "DBエラーが発生しました", vbOKOnly + vbExclamation, "呼び出し失敗"
'フォームを閉じる
DoCmd.Close acForm, "登録内容変更"
End If
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) ExcelからAccessのテーブルに書き込む時に時間がかかる 1 2022/10/14 20:38
- PHP if(preg_match("/[^0-9]/",$gu_d)){意味を教えてください。 1 2022/05/06 05:37
- SEO googleサーチコンソールで、重複URLが多数発生、その修正方法について 2 2023/06/23 16:15
- Visual Basic(VBA) access count数を変数に格納 2 2022/03/30 19:21
- Excel(エクセル) EXCELの外部データ取得ができない 1 2023/03/23 09:03
- その他(住宅・住まい) 私の自宅にも、全く同じ型式のロスナイが取り付けられています。 これって実際に業者に依頼したら費用は幾 2 2022/09/19 18:11
- PHP 画像ファイルの名前をそのままURLにする 3 2022/10/16 11:18
- その他(パソコン・スマホ・電化製品) EXCELのSUMPRODUCT関数について 2 2022/09/21 17:30
- ドライブ・ストレージ B550M Pro4マザーにM.2_SSD取付に関して 2 2023/04/15 02:07
- PHP ここでの ②if($su_d<>"")の比較演算子 を使う理由は 1 2022/03/26 02:33
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
日付型のフィールドに空白を入れる方法を教えてください
その他(データベース)
-
Access サブフォームでの選択行の取得
その他(データベース)
-
Accessのフィールド名に半角括弧を使ってしまった
Visual Basic(VBA)
-
-
4
ADO オブジェクトの渡し方
Visual Basic(VBA)
-
5
アクセスVBAで既に開いているエクセルを閉じたい
Yahoo!ショッピング
-
6
Accessでフィールド名を変数(文字列)で・・・
Access(アクセス)
-
7
ADOのCursorLocationプロパティ
Visual Basic(VBA)
-
8
アクセスで入力したデータの順番が変わってしまいます
その他(ビジネス・キャリア)
-
9
ACCESS 複数のフォームから同一テーブル参照
Access(アクセス)
-
10
ADOでRecordsetオブジェクトをレコードソースに設定したい
その他(データベース)
-
11
Accessの画面更新を一時的に停止する方法。
その他(データベース)
-
12
エクセルVBAでmeに相当するものは?
Excel(エクセル)
-
13
ACCESS VBAでインポート定義の場所
Access(アクセス)
-
14
自作関数を含んだクエリをエクセルからADODBで呼び出すとエラーになる
その他(データベース)
-
15
ACCESSでの改行コード
その他(データベース)
-
16
accessでイベントを中止するようなコマンドはあるのでしょうか?
その他(データベース)
-
17
Access2010 「演算子がありません」エラー
その他(データベース)
-
18
親フォームからサブフォームのレコードソースを設定
Access(アクセス)
-
19
[VBA] ADOの Clone と AddNew
その他(プログラミング・Web制作)
-
20
Access終了時にマクロまたはVBAの実行したい
その他(Microsoft Office)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ファイル書込みで一行もしくは...
-
Access を×ボタンで閉じ...
-
レコードが存在しなかった場合
-
DataGridViewの内容をDBに反映...
-
差し込み印刷のレコード数について
-
JSPのNULLレコード表示について...
-
アクセスでレポートの1印刷内...
-
Access でレコードセレクタが押...
-
サブレンジ分割されたNDB(富士...
-
カレントレコードが無い事を判...
-
レコードセット(ADO.Recordset)...
-
Accessでレコードの更新を任意...
-
ADO VBA 実行時エラー3021
-
ACCESSで大量の更新を行うと「...
-
ワードの差込印刷で教えて下さ...
-
VBでコピー時間を表示したい。
-
SYLKファイルフォーマットについて
-
Accessデータシートビューの行...
-
ヘッダレコードとトレーラレコ...
-
最終レコードのレコード番号の...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ADO VBA 実行時エラー3021
-
カレントレコードが無い事を判...
-
レコードが存在しなかった場合
-
ファイル書込みで一行もしくは...
-
DataGridViewの内容をDBに反映...
-
差し込み印刷のレコード数について
-
ワードの差込印刷で教えて下さ...
-
レコードセット(ADO.Recordset)...
-
アクセスでレポートの1印刷内...
-
JSPのNULLレコード表示について...
-
Access でレコードセレクタが押...
-
Line Inputで文字化け(助けて...
-
ヘッダレコードとトレーラレコ...
-
DataGridViewの、選択されてい...
-
サブフォームに新規レコードを...
-
ACCESSで大量の更新を行うと「...
-
[VBA] ADOの Clone と AddNew
-
DataGridViewにてセル以外をク...
-
サブレンジ分割されたNDB(富士...
-
VB6.0のIsNull関数に相当するもの
おすすめ情報