2

これがコードです。

Private Sub txtNProdname_Click()

Set Rs = New ADODB.Recordset

With Rs
.ActiveConnection = Conn
.CursorLocation = adUseClient
.CursorType = adOpenStatic
.LockType = adLockPessimistic
.Source = "SELECT proddescription FROM products WHERE prodsupplier=" & "'" &       txtNsupplier.Text & "' AND prodname=" & "'" & txtNProdname.Text & "'"
.Open

 txtNdescription.Text = Rs("proddescription")

 End With

End Sub

エラー：

Either BOF or EOF is True, or the current record has been deleted.Requested operation requires a current record.

カウは私を助けますか？それがなくてANDも動作するようですが、置くとエラーが発生します。

4

1 に答える 1

4

レコードセットを開いた後、使用する前に最初のレコードに移動する必要があります。

Rs.Open
If Rs.EOF = False Then
   Rs.MoveFirst
   txtNdescription.Text = Rs("proddescription")
End If
于 2013-03-24T15:06:25.093 に答える