小编vim*_*van的帖子

这是我的代码,它给出了错误,查询返回特定项的值.

同样在数据库端查询返回行,即使我已经设置条件,如果读者有行然后只将它分配给一个变量,但仍然会抛出一个错误,例如.

dqty = sqlreader("qty")

码:

Private Function checkquantity(ByVal code As String, ByVal quan As Integer) As Boolean
    sqlcommand.CommandText = "select sum(qty) as qty from pos_stock_balance where item_code='" & code & "'"
    sqlcommand.Connection = AppsCon
    sqlreader = sqlcommand.ExecuteReader
    If sqlreader.HasRows Then

        dqty = sqlreader("qty")
        sqlreader.Close()

    Else
        sqlreader.Close()
    End If
    If quan > dqty Then
        Return False
    Else
        Return True

    End If
End Function