☰

ADODB recordset.openは重複レコードです

tag-icon • tag-icon microsoft-excel vba
ADODB recordset.openは重複レコードです

Excel VBA recordset.open コマンドがレコード数を 2 倍に返します

このコードは何年も機能していましたが、Windows 10 と Excel 2016 にアップグレードしたところ、この問題が発生しています。

答え1

誤って重複レコードが入力されたため ( as you have written in Comments above)、レコードを削除する代わりに、一意のレコードを読み取ることができます。

以下は、一意のレコードを取得するのに役立つ可能性のある VBA コード行です。

rs.Open "SELECT Distinct ColumnName AS C FROM TableName

または

strSQL = "SELECT Distinct(COLNAME) from [SheetName$] "

関連情報