こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

初歩的なSQLですが・・・

私の環境はOS:Xp
     ACCESS2000です。

宜しくお願いします

今AccessVBAで作業をしているのですが、

Dim ws As DAO.Workspace
Dim DB As DAO.Database
Dim rs As DAO.Recordset
Dim sql As String

Set ws = DBEngine.Workspaces(0)
Set DB = ws.Databases(0)

sql = "select MAX(銀行コード) from 銀行テーブル ;"
Set rs = DB.OpenRecordset(sql)

Me.合計 = rs

このSQL文で銀行テーブルに入っている銀行コードの最大値を取得したいのですが、取得した後どのように記述したら「rs」から値を引っ張り出せるのでしょうか?

宜しくお願いします。

投稿日時 - 2004-12-20 09:09:33

QNo.1134429

暇なときに回答ください

質問者が選んだベストアンサー

rs.fields(0).value

または

sql = "select MAX(銀行コード) as A from 銀行テーブル ;"
としといて
rs("A").value
でもいいのではないかと。

投稿日時 - 2004-12-20 09:24:23

お礼

皆様ありがとうございました。

おかげさまで解決致しました。

初歩的な質問に丁寧に答えて頂き、本当にありがとうございました。

投稿日時 - 2004-12-20 13:26:33

ANo.1

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(3)

ANo.3

#1さんの回答でよろしいかと思います。
蛇足ですけど、こだわりがなければ、別にDMAXでもよさそうですね。
Me.合計 = DMAX("[銀行コード]","銀行テーブル")
だったかと・・・。

投稿日時 - 2004-12-20 11:34:20

ANo.2

rs.Fields(0)でどうですか?

投稿日時 - 2004-12-20 10:01:24

あなたにオススメの質問