需要 VB.NET 中的记录集行为 w/ADO 帮助

Question

这里是 VB.NET 新手。

我已经（通过这个网站）学习了如何通过以下方式协商数据集：

For Each dRow In quanDS.Tables(0).Rows
  'do something to each row
Next

我现在需要找出循环遍历数据集中返回的记录子集 - 这是我需要转换的 VB6 示例：

strSQL = "select * from tblDQ order by xid, xcode, xDOS"
rsMaster.Open strSQL, conDB, adOpenDynamic, adLockOptimistic
rsMaster.MoveFirst

Do While Not rsMaster.EOF
    strxID = Trim(rsMaster!xID)
    strxCode = Trim(rsMaster!xcode)
    dblQuan = rsMaster!units
    Do While Trim(rsMaster!xID) = strxID And Trim(rsMaster!xcode) = strxCode
        rsMaster!unitdif = rsMaster!units - dblQuan
        rsMaster.Update
        dblQuan = rsMaster!units
        rsMaster.MoveNext
        If rsMaster.EOF Then
            Exit Do
        End If
    Loop
Loop

rsMaster.关闭

任何帮助都将不胜感激！

Answer 1

你可以直接翻译。 rs!fieldName 语法在 VB.NET 中转换为 row("fieldName")。

不过，如果您使用 LINQ 会更容易。

Answer 2

将其转换为 SQLDataReader 以替换记录集将非常简单。基本上，语法是

    using conn as new sqlconnection({connection string})
   using cmd as new sqlcommand("select * from tblDQ order by xid, xcode, xDOS", conn)
      cmd.connection.open()
      using reader as SQLDataReader = cmd.ExecuteDataReader()
          while reader.read
                  do your thing here, referencing reader("field")
          end while
      end using  'dispose of the reader
    end using  'dispose of teh command
end using  'close and dispose of the connection