数値のMAXの値を取得したい ADO VBA

質問

アクセスです。
ADOで該当のフィールドの数値のMAXの値を取得するにはどうすればいいですか？

テーブルの番号フィールドには、
1
2
3
4
5
と入っているのですが、
この場合、一番大きい値は５なので
MAX関数のようなもので５を返したいのですが
ADOにそのようなプロパティはありますか？

オブジェクトブラウザーでRecordsetを見てみましたが
見つけられませんでした。

Sub Sample()

Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset

Set cn = CurrentProject.Connection

rs.CursorLocation = adUseClient
rs.Open "SELECT * FROM T_test", cn, adOpenStatic, adLockPessimistic
rs.Sort = "番号 DESC"

Debug.Print rs("番号").Value

rs.Close: Set rs = Nothing
cn.Close: Set cn = Nothing
End Sub

これで同じような動きは出来ますが、
もっとシンプルにできませんか？

回答No.2

imogasi · ベストアンサー

ＡＤＯで、エクセルのデータを使っていますが、ご参考にしてください。
ポイントは、下記モジュールのＳＱＬ分の、strSql⁼の部分です。
データベースの指定部分は、.mdbなりに変えてください。
例データ　
SheetIのＡ１：Ｄ８に
社員no 氏名 所属 年齢
12 山田 総務 23
34 木村 総務 34
56 笠原 工事 36
78 吉田 人事 41
63 池田 サービス 26
33 鈴木 工事 41
38 今井 工事 41
があり、この中の最高齢のレコードを探します。
結果は４１歳の３人（吉田、鈴木、今井）です。
ーー
標準モジュールに
Private Sub test16()
Dim adoCON As New ADODB.Connection
Dim adoRS As New ADODB.Recordset
Dim strSQL As String
Dim odbdDB As Variant

'データベースのパスを取得（ExcelブックをDBとする）
odbdDB = ActiveWorkbook.Path & "\SQL例１.xlsm"
'データベースに接続する
Set adoCON = New ADODB.Connection
adoCON.Open "Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};" _
& "DBQ=" & odbdDB
'カーソルをクライアント側に設定
adoRS.CursorLocation = adUseClient

'---
strSQL = "SELECT A.氏名,A.所属,A.年齢 FROM [Sheet1$] AS A WHERE A.年齢 = (SELECT MAX(B.年齢) FROM [Sheet1$] AS B);"
'----
'レコードセットを開く
adoRS.Open strSQL, adoCON, adOpenDynamic

'テーブルを読み込む
Do Until adoRS.EOF

MsgBox "氏名=" & adoRS.Fields(0).Value & ",所属=" & adoRS.Fields(1).Value & ",年齢=" & adoRS.Fields(2).Value
adoRS.MoveNext
Loop

'クローズ処理
adoRS.Close
Set adoRS = Nothing
adoCON.Close
Set adoCON = Nothing
End Sub
結果はMsgboxの行に出ますので、変数にでも入れて（x=adoRS.Fields(0).Value ，など）、何かに使ってください。
ーーー
上記例の、４１歳の３人のレコードを捉えました。ＡＣＣＥＳＳにもご存じのように、集合関数のＭＡＸ関数はあります。しかし
MAＸ(年齢）では、最高齢は４１歳ということは、簡単にＳＱＬで組めて求まりますが、
質問者のニーズでは、レコード的に、誰（氏名）で、その他情報（所属など）はどうなっているか、必要でしょう。
ＳＱＬは集合論的に処理するが、結局レコード処理に行き着かざるを得ないニーズが多いだろうとおもう。
ＳＱＬの処理系により、欠課が画面に出ても、それをその後の処理で何かに使いたいときは、はたと困ってしまうのでは。
ーー
またＳＱＬでむつかしい点は、
SQLでは、
SELECT A.氏名,A.所属,A.年齢 ,MAX(A.年齢）FROM ・・というような書き方はできませんので上記のようになります（「相関クエリ」（第１法））
そのほかのやり方（書き方）もあるようです。InnerJoinを使う（第２法）
ーー
質問ではＳＱＬを使いたいようだと解して上記をやってみましたが、
（第３法）いっそのこと各レコードを１つづつ（MoveNext)捉えて（シーケンシャルに）、今までの年齢の最大値と今回の年齢値を比較して、今回のものが大きければ、今までの年齢の最大値を今回のものに置き換えて,最後のレコード（rs.EOF)までそのロジックを繰り返す（最大値を求めるアルゴリズムを使う)方法もあると思います。
ーー
エクセルの関数なら簡単なのに、と思ったものです。
ーー
Googleなどで「sql 最大値」で照会して、出てくる記事を読んでください。

お礼

ご回答ありがとうございます。

回答No.1

noname#212058

> MAX関数のようなもので５を返したいのですが
> ADOにそのようなプロパティはありますか？

プロパティはありません。
"SELECT MAX(cn) FROM T_test" を実行すると、cn 列の最大値が入った1行の RecordSet が取れますので、そこから取得します。

お礼

ご回答ありがとうございます。