Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
5847 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【48573】ＡｃｃｅｓｓのＤＢからデータを取得したい 陽子 07/4/23(月) 13:35 質問[未読]
【48574】Re:ＡｃｃｅｓｓのＤＢからデータを取得し... ウッシ 07/4/23(月) 13:40 発言[未読]
【48575】Re:ＡｃｃｅｓｓのＤＢからデータを取得し... 陽子 07/4/23(月) 14:31 質問[未読]
【48576】Re:ＡｃｃｅｓｓのＤＢからデータを取得し... neptune 07/4/23(月) 15:09 回答[未読]
【48584】Re:ＡｃｃｅｓｓのＤＢからデータを取得し... かみちゃん 07/4/23(月) 23:41 発言[未読]
【48573】ＡｃｃｅｓｓのＤＢからデータを取得した...
質問  陽子  - 07/4/23(月) 13:35 -
引用なし
パスワード
   ＥｘｃｅｌのＶＢＡで下記のように記述
して実行したのですが、どうしても
１レコード目の情報しか取得できません。
何か足りないのでしょうか？

for i = 2 to Count
for j = 1 to 1
　cells(i,1).value = rs.fields(j-1)
next j
next i

ＤＢの中身は下記の通りです。

おーいお茶
生茶
濃い生茶
　・
　・
　・


結果は、
おーいお茶
おーいお茶
おーいお茶
　　・
　　・
　　・

どなたか教えて頂けますでしょうか。
宜しくお願いします。
【48574】Re:ＡｃｃｅｓｓのＤＢからデータを取得...
発言  ウッシ  - 07/4/23(月) 13:40 -
引用なし
パスワード
   こんにちは

MoveNextしてないからだと思いますけど、バージョンによっては
CopyFromRecordsetも使えます。
【48575】Re:ＡｃｃｅｓｓのＤＢからデータを取得...
質問  陽子  - 07/4/23(月) 14:31 -
引用なし
パスワード
   ウッシさん、お返事ありがとうございます。

実は、ＤＢから取得したデータをTEXTBOXに受け渡して
表示しています。
なので、CopyFromRecordsetでは全レコードを取得しますので、
使用していないです。
MoveNextの使い方をもう少し詳しく教えて頂けますでしょうか。
（HELP機能が使えないので。。。）
すみません、宜しくお願いします。
【48576】Re:ＡｃｃｅｓｓのＤＢからデータを取得...
回答  neptune  - 07/4/23(月) 15:09 -
引用なし
パスワード
   ▼陽子 さん：
こんにちは

>実は、ＤＢから取得したデータをTEXTBOXに受け渡して
>表示しています。
後で言うのなら先に言いましょう。サンプルもそれなりのものを
書きましょう。
for i = 2 to Count
for j = 1 to 1
　cells(i,1).value = rs.fields(j-1)
next j
rs.movenext　　'追加
next i
【48584】Re:ＡｃｃｅｓｓのＤＢからデータを取得...
発言  かみちゃん  - 07/4/23(月) 23:41 -
引用なし
パスワード
   こんにちは。かみちゃん　です。

横から失礼します。

>CopyFromRecordsetでは全レコードを取得しますので、

これは、基にしているRecordsetで条件を絞り込めばいいだけの話です。

>MoveNextの使い方をもう少し詳しく教えて頂けますでしょうか。
>（HELP機能が使えないので。。。）

HELPは、VBAを扱うには、非常に参考になる情報です。
機能が使えないではなく、使えるように環境を整えるようにしませんか？

なお、AccessMDBからのデータ取得については、DAO（Data Access Object ）を
使う方法ですが、以下が参考になるかと思います。
ｈｔｔｐ://www.vbasekai.com/tipsdao.html
（先頭４文字は、全角になっていますので、半角にしてください。）
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
5847 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free