命令を変数に応じて変化させるには？

質問

「テーブル１」というテーブルの「データ」というフィールドにA～Jまで１０個データが格納されていたとします。
このデータを変数 DATA01～DATA10 にそれぞれ格納したいと思っています。

下記ソースでは、レコードの終端までループしても、DATA01に「テーブル１」の１レコード目の値、"A"しか格納できませんが、これをDATA02に"B",DATA03に"C"・・・と順々に格納するにはどうしたら良いのでしょうか？

それぞれの変数に応じた命令を一つ一つ書くのではなく、Countの値に応じて命令そのものを変化させて行いたいと思っています。他の言語ではわかるのですが、ＶＢではどうするのかわかりません。
ご指導程お願い致します。

Private Sub テスト_Click()
　　Set DB = CurrentDb
　　Set RS = DB.OpenRecordset("テーブル１")
　　Count = 1
　　Do Until RS.EOF
　　　DATA01 = RS!データ
　　　RS.MoveNext
　　　Count = Count + 1
　　Loop　　
End Sub

回答No.1

itohh · ベストアンサー

こんにちは。itohhといいます。

配列にするのではいけないのでしょうか？

Dim Data(10) As String

Count = 0
Do Until RS.EOF
　DATA(Count) = RS!データ
　RS.MoveNext
　Count = Count + 1
Loop

配列がダメなときは。

Count = 1
Do Until RS.EOF
　Select Case Count
　Case 1
　　DATA01 = RS!データ
　Case 2
　　DATA02 = RS!データ
　　：
　　：
　　：
　End Select
　RS.MoveNext
　Count = Count + 1
Loop

では、如何でしょうか？

お礼

すばやいご回答ありがとうございます！！！
配列を使った方法があるとは知りませんでした！
あの、ついでにお聞きしてよろしいでしょうか？
例としてあげましたのは、変数に読みこむフィールドを「データ」に固定し、レコードを順々に変えていましたが、今度はレコードは固定で、フィールドを変化させたいのです　データ１、データ２、データ３と複数フィールドがあったとして、それを変数に順々に入れていきたいのです。それをCaseなどを使わないで変化させるにはどうすれば良いのでしょうか？
ソースまで例示して頂かなくても、ヒントとなるキーワードを教えて頂ければどうにかなるかもしれません。
よろしくお願いします。m(_ _)m

回答No.3

itohh

こんにちは。itohhといいます。

う～ん、たぶん出来ないと思います。
今まで、そういう特殊なことは、ＶＢでやったことがないですねぇ。

お力になれず、申し訳ありません。

お礼

いえ。大変助かりました。今までのどにつっかかっていたものはとれたような爽快感です。なお、アドバイスにしたがって試してみたところ、望んでいたことができました。
本当にありがとうございました。

回答No.2

itohh

こんにちは。itohhといいます。

select データ１, データ２, データ３ from テーブル１
という形でデータ検索した場合、
RS!データ１
RS!データ２
RS!データ３
と使用することが多いと思いますが、
RS.Fields(0)　　＜－－データ１という意味
RS.Fields(1)
RS.Fields(2)
としても参照できます。

ですから、０～２のインデックスのところをCountにして見てください。

詳しいことは、MSDNライブラリの「ADO　APIリファレンス」「Field オブジェクト」
を参照してください。

補足

ありがとうございます！まだ試していませんが、おそらく上手く行くと思います。本当にありがとうございます。
ところで、本当に度々申し訳ないのですが、
私が以前覚えた他の言語では

通常　

MsgBox(DATA)

・・・と書くところを、

COMMAND "Msg" & "Box(DATA)"

としても同じ動作をするというような便利な関数がありました。（上記はあくまで例でCOMMANDは架空の関数です）
ＶＢにはそういった関数（上記の例でいうとCOMMAND）はないのでしょうか？
あるか、ないか、それだけでも結構です。

質問はこれで最後にしますので
よろしくお願いしますm(_ _)m