accessからレコードを取得するには？ (ID:146632)

名前

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

本文 Dim CN As New ADODB.Connection Dim RS As New ADODB.Recordset Dim database As String = "sample.mdb" Dim name As String Dim no As Integer Dim SQL As String no = Val(Me.TextBox1.Text) CN.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;DataSource=" & database CN.Open() SQL = "SELECT * FROM member WHERE no = " & no RS.Open(SQL, CN, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockOptimistic) name = RS.Fields("name").Value BOF と EOF のいずれかが True になっているか、または現在のレコードが削除されています。要求された操作には、現在のレコードが必要です。 実行すると上記のエラーがでて困っています。accessのテーブル構造はno(数値型）name(テキスト型）で見たところ、noに対するレコードも存在しaccessのクエリを実行してもちゃんと結果がでます。どなたかご教授お願いいたします!!