直りました。Openの仕方が悪かったみたい。<Accessでレコードセットが「-1」となってしまう
Private Sub ADOtest() Dim rs as ADODB.Recordset Set rs = New ADODB.Recordset ↓ここ変えた rs.Open "T_テスト", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
MsgBox rs.RecordCount
rs.Close Set rs = Nothing End Sub |
これで出来た。
参考にしたページです。
アクセスVBA講座_ADO_Recordsetオブジェクトの作成
また、値に『’』が入ったヤツがあったから、それは↓。
0件のコメント