Question

I got a chance to work in the migration project(VB to VB.NET).I was confusing in the RecordSet functionality.In our project we are taking the DataReader according to the scenario.But in the Looping cases like 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

How to convert this into VB.NET?
Either we need to write If Not reader.Read or If reader.Read.

Can any help me regarding this ?

Answer 1

I think what you might be after is the following

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

Or if you are only after one row of data, then we have:

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