| |
こもれびです
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/10(日) 22:30 -
