Excel VBA質問箱 IV

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

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


17264 / 76732 ←次へ | 前へ→

【64925】MsSQL ODBC接続を利用した複数レコードの取得
質問  初心者  - 10/3/26(金) 23:08 -

引用なし
パスワード
   はじめまして、よろしくお願いします。
題名の点で困っています。
状況を書かせていただきますと、

MySQLを利用したDBでテーブル名は'test'、項目は'num1'のみでレコードが5つあります。
この状況で下記VBAを実行した場合、1つのレコードしか取得することができません。
複数のレコードを取得したい場合にはどのようにしたらいいでしょうか?
カーソルを次レコードにしようとNextと記載してもエラーが返ってきます。
ただ、COUNT(*)を同処理で取得しているため、接続方法などは変更しない手段をご教授いただけると幸いです。
---------------------------------------------------------------------
Dim cn As Variant
Dim rn As Variant

Srt cn=CreateObject("ADODB.Connection")
cn.Open "dsn=MySQL;uid=root;pwd=***"
cn.CursorLocation = 3

rs=cn.Execute("SELECT * FROM test")
Cells(1.1)=rs("num1")

cn.Close
1 hits

【64925】MsSQL ODBC接続を利用した複数レコードの取得 初心者 10/3/26(金) 23:08 質問
【64927】Re:MsSQL ODBC接続を利用した複数レコード... neptune 10/3/26(金) 23:22 発言
【64929】Re:MsSQL ODBC接続を利用した複数レコード... 初心者 10/3/26(金) 23:59 発言
【64937】Re:MsSQL ODBC接続を利用した複数レコード... neptune 10/3/27(土) 22:29 発言
【64956】Re:MsSQL ODBC接続を利用した複数レコード... 初心者 10/3/29(月) 21:53 お礼
【64964】Re:MsSQL ODBC接続を利用した複数レコード... neptune 10/3/30(火) 16:46 発言
【64968】Re:MsSQL ODBC接続を利用した複数レコード... 初心者 10/3/30(火) 22:52 発言

17264 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free