Dazed and Confused!

Hello everyone, and happy holidays,
I have encountered a problem and I am trying to find a work around do to time constraints. Here is the code that I am running:

strData = "Select Min(num1) as MinVal from Table1"
strReader = strCmd.ExecuteReader
While strReader.Read
varMin = strReader.Item("MinVal")
End While
strReader.Close()



When I run the code I get the IndexOutOfRange Exception. I get this exception due to the fact that Min(num1) is a negative value. It is supposed to be and will be negative the majority of the time. Does anyone know how I can get around this?

I don't see where you are declaring your variables and objects, so I will assume you have declared and initialized them correctly. Try this:

VB Code:

strData = "SELECT Min(num1) FROM Table1"
strReader = strCmd.ExecuteReader
While strReader.Read
varMin = strReader.Item(0)
' If varMin is a string then use varMin = strReader.Item(0).ToString
End While
strReader.Close()

More of your code is needed to help beyond that.

You shouldn't be using a DataReader to get a single value. You should be calling the ExecuteScalar method of your Command. It will return an Object reference that you can cast as an Integer using CInt.

Now, there is nothing in that code that will throw an IndexOutOfRangeException as far as I can see. Are you using varMin somewhere later in your code, as an index into an array or collection? That's where that type of exception is likely to be thrown. If that's the case than your logic must be flawed because you can't possibly have a negative index in an array or collection.

Thanks Guys, it's working now. I greatly appreciate it!
:wave: