Как преобразовать код в VB 6 в VB.NET?

Question

У меня появилась возможность работать в проекте миграции (VB на VB.NET). Я запутался в функциональности RecordSet. В нашем проекте мы берем DataReader в соответствии со сценарием. Но в случаях Looping, таких как 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? Либо нам нужно написать If Not reader.Read или If reader.Read.

Может ли кто-нибудь помочь мне в этом отношении?

Answer 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 

Или, если вы только после одной строки данных, то мы имеем:

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