0

移行プロジェクト（VBからVB.NET）で作業する機会がありました。RecordSet機能で混乱していました。このプロジェクトでは、シナリオに従ってDataReaderを使用していますが、dsr.EOFのようなループの場合です。

  Dim recordset As dao.RecordSet
If recordset .EOF Then
       '    '    msgbox "Please enter some number ", vbOKOnly, "Number Not Found"
       '    '    txtAdd.SetFocus
       '    '    Exit Sub
End If

これをVB.NETに変換する方法は？IfNotreader.ReadまたはIfreader.Readのいずれかを記述する必要があります。

これに関して何か助けてもらえますか？

4

1 に答える 1

1

あなたが求めているのは次のようなものだと思います

Dim reader As IDataReader
' <fill the reader with your query via an IDbCommand>
Dim dataFound As Boolean = false

Using reader = command.ExecuteQuery()
    While reader.Read()
        ' <perform your data processing here>
        dataFound = True
    End While

    If dataFound = False Then
        ' <Here you do your processing for the case where data was not found.>
    End If
End Using

または、1行のデータのみを処理している場合は、次のようになります。

Dim reader As IDataReader
' <fill the reader with your query via an IDbCommand>

Using reader = command.ExecuteQuery()
    If reader.Read() Then
        ' <perform your data processing here>
    Else
        ' <Here you do your processing for the case where data was not found.>
    End While
End Using
于 2012-04-26T10:10:35.717 に答える