直りました。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オブジェクトの作成

また、値に『’』が入ったヤツがあったから、それは↓。

教えて! Watch sqlに記述できない文字

カテゴリー: プログラミング

0件のコメント

コメントを残す

アバタープレースホルダー

メールアドレスが公開されることはありません。 が付いている欄は必須項目です

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください