Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

17252 / 76732

←次へ　｜　前へ→


	【64937】Re:MsSQL ODBC接続を利用した複数レコードの取得

neptune - 10/3/27(土) 22:29 -


	引用なし

	パスワード

▼初心者さん：
えーと、追記
レコードセットが空でないことを保障するには

>'レコード取得
>rs=cn.Execute("SELECT * FROM test")

if rs.bof=false and rs.eof = false then
'RecordCountは.CursorLocation = 3ならここで取れるかもしれない。
'取得レコード数確認
Msgbox rs.RecordCount

>'レコード分ループ
>Do Until rs.EOF
>　Cells(i.1)=rs("num1")
>　rs.MoveNext
>　i=i+1
>Loop
>
>'取得レコード数確認
>Msgbox rs.RecordCount
>
>'接続を閉じる
>cn.Close
end if

1 hits

▼

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