Recordset.recordcount（DAO-mdb） (ID:120745)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 お世話になります。 DAOでmdbファイルに接続しておりまして、レコードの総件数を出力しているのですが、なぜか、1件になります。実際には、20000件程度あるのですが．．． AccessのSQLビューに、同じSQL文を入力すると、ちゃんと表示するんですが、 VBで操作すると1件．．． どなたか、対処方法をご存知の方、教えてください。 ----------中略------------------ Dim DBase As DAO.Database Dim RecSet As DAO.Recordset Dim strSQL AS String Dim hogehoge AS Integer strSQL = "SELECT * FROM hoge" Set DBase = DBEngine.Workspaces(0).OpenDatabase(DBPath, True, True) Set RecSet = DBase.OpenRecordset(strSQL) hogehoge = Recset.recordcount --------中略（解放処理）---------------