Mysql＆Vb.net'读取器关闭时无效的读取尝试'

debugcn 发表于 Dev

用户名

我从mysql数据库收集数据并将其放入DataView控件时遇到了此错误。这是我的代码：

    Private Function PopulateActivity()
    Dim loginStatement As String = "SELECT * FROM activity WHERE id = @userid"

    Dim cmd As MySqlCommand = New MySqlCommand(loginStatement, mainconn)
    cmd.Parameters.AddWithValue("@userid", LoggedInUser.ID)

    Dim drMyAcount As MySqlDataReader = cmd.ExecuteReader()

    Dim rowCount As Integer = 0
    Dim rowAmount As Integer = 0
    'gets count of rows returned from mysql query'
    Using dt As New DataTable
        dt.Load(drMyAcount)
        rowAmount = dt.Rows.Count
    End Using
    'adds an entry for each item returned from the mysql query'
    Do While rowCount < rowAmount
        drMyAcount.Read() 'HERE IS WHERE ERROR OCCURS'
        Dim tempDateTime As String = drMyAcount.Item("dateTime")
        Dim tempInfo As String = drMyAcount.Item("info")
        Dim tempBalChanges As String = drMyAcount.Item("balChange")
        Dim tempToFrom As String = drMyAcount.Item("toFrom")
        ActivityView.Rows.Add(tempDateTime, tempInfo, tempBalChanges, tempToFrom)
        rowCount = rowCount + 1
    Loop
    drMyAcount.Close()
    Return 0
    End Function

我不知道为什么会这样，但是它给了我一个“阅读器关闭时尝试阅读无效”的错误之一：

drMyAccount.Read()

线...

我希望在这个主题上有任何帮助！非常感谢...

斯科特·塞尔比（Scott Selby）

dt.Load()在使用datareader之前，先取出，然后对行进行计数。DataReader具有以下内置属性.HasRows

if (drMyAcount.HasRows)            
    while (drMyAcount.Read())            
         Dim tempDateTime As String = drMyAcount.Item("dateTime")
         Dim tempInfo As String = drMyAcount.Item("info")
         Dim tempBalChanges As String = drMyAcount.Item("balChange")
         Dim tempToFrom As String = drMyAcount.Item("toFrom")
         ActivityView.Rows.Add(tempDateTime, tempInfo, tempBalChanges, tempToFrom)
         rowCount = rowCount + 1 //you can still count rows in the loop
    Loop

本文收集自互联网，转载请注明来源。

如有侵权，请联系[email protected] 删除。