| |
お礼を入れたのに、質問がありました。
>レコードが複数になるときは Do until 〜 loop を用いて配列に
>入れることもできます。
とありましたが、どこにDo until 〜 loop を入れればいいのでしょうか？
私は、下記（こもれびさんの返信を引用させて頂きました）の場所に、入れてみましたが、一件目のデータが繰り返し表示されました。
申し訳ありませんが、教えていただけると助かります。
宜しくお願いいたします。
Dim cnn as New ADODB.Connection
Dim rs as New ADODB.Recordset
Dim mySQL as String
Dim HENSU as String ' <--- 結果を入れる変数
Set cnn = currentproject.connection
mySQL = "select tblSample.shimei,tblSample.b,tblSample.c " _
& "from tblSample " _
& "where ((tblSample.age) = 30);"
rs.open mySQL,cnn,adOpenkeyset,adLockReadonly
do until条件
HENSU = rs!shimei ' 若しくは HENSU = rs.fields("shimei").value
loop
rs.close : Set rs = Nothing
cnn.close : Set cnn =Nothing
▼こもれび さん：
>こもれびです
>
>SELECT文の結果とはレコードセットをさしているのでしょうか？
>
>例）
>
>Dim cnn as New ADODB.Connection
>Dim rs as New ADODB.Recordset
>Dim mySQL as String
>
>Dim HENSU as String ' <--- 結果を入れる変数
>
> Set cnn = currentproject.connection
>
> mySQL = "select tblSample.shimei,tblSample.b,tblSample.c " _
> & "from tblSample " _
> & "where ((tblSample.age) = 30);"
>
> rs.open mySQL,cnn,adOpenkeyset,adLockReadonly
>
> HENSU = rs!shimei ' 若しくは HENSU = rs.fields("shimei").value
>
> rs.close : Set rs = Nothing
> cnn.close : Set cnn =Nothing
>
>上の例では名簿（を想定）のテーブルから年齢が30歳の方を選択
>（30歳の方が1名しか居ないということを想定）し、その方の名前
>（テーブルのフィールド名：shimei）を変数：HENSUに入れています。
>レコードが複数になるときは Do until 〜 loop を用いて配列に
>入れることもできます。
>
>こんなところでしょうか。
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
