|
はじめまして、よろしくお願いします。
題名の点で困っています。
状況を書かせていただきますと、
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
|
|