| |
すいません。
rs.MoveNextを使い、解決できました。
ありがとうございました。
また質問の際は、宜しくお願いいたします。
▼こもれび さん：
>こもれびです
>
>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 を用いて配列に
>入れることもできます。
>
>こんなところでしょうか。
>
>▼初心者 さん：
>>SQLのSELECT文の結果を、VBAの変数の中に入れる方法がわかりません。
>>（実際、テーブルの内容を操作する（insertinto文などで）方法はわかるのですが・・・）
>>こちら初心者ですので、上記質問が可能かもわかりません。
>>可能であれば、ぜひ教えていただきたいです。
>>宜しくお願いします。
|
|
初心者
- 04/10/11(月) 21:52 -
