Taffs Taffs - 8 months ago 47
Vb.net Question

Error if DBnull, ms-access

I'm trying to SUM columns in access database, and it somewhat works.

are dates. Lets say I have records with dates 15/11/2016, and another one with 19/11/2016. If I select 'OdDate' as 15/11/2016 and 'DoDate' as 19/11/2016 it works, it sums the records. The problems come when I select from 15/11/2016 to lets say... 20/11/2016, in this case, scalar returns records from 19/11/2016, it ignores the records in 15/11/2016. And If I select few days further, then it throws error dbnull.

I know why it throws dbnull error, what I want to know is, why does it ignore records with 15/11/2016 when I select from 15/11/2016 to 20/11/2016, why doesn't it throw dbnull error, there are no records with 20/11/2016 date. Instead it only returns the records in 19/11/2016.

Dim provider As String
Dim dataFile As String = My.Application.Info.DirectoryPath
provider = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source ="
dataFile = ("Database\Baza-Original.accdb")

Dim SqlQry1 As String = "SELECT SUM(Column2 + Column3 + Column4) FROM [Table] WHERE Column1 = @1 BETWEEN Column5 = @2 AND Column6 = @3"

Using myconnection As New OleDbConnection(provider & dataFile)

Dim cmd1 As New OleDbCommand(SqlQry1, myconnection)
cmd1.Parameters.AddWithValue("@1", CB.SelectedItem)
cmd1.Parameters.AddWithValue("@2", OdDate.Value.Date)
cmd1.Parameters.AddWithValue("@3", DoDate.Value.Date)

If cmd1.ExecuteScalar() Then

Dim field As Int32

field = cmd1.ExecuteScalar()
LBL.text = field

MsgBox("msg1. ", MsgBoxStyle.Information, "successful")
MsgBox("msg2. ", MsgBoxStyle.Critical, "Unsuccessful!")
End If

End Using

Answer Source

Although the BETWEEN operator looks temptingly simple to use, you have to be careful with it. On top of that, comparing dates is done strictly mathematically as opposed to what we might regard as the way to do it in human.

Also, AddWithValue can give unexpected results and should never be used because it is not worth the effort to make code that lets it work - Can we stop using AddWithValue() already?

SELECT SUM(Column2 + Column3 + Column4)
FROM [Table]
WHERE Column1 = @1
AND Column5 >= @2 AND Column6 < @3

and in the code to set the parameters:

cmd1.Parameters.Add(New OleDbParameter With {.ParameterName = "@3", .OleDbType = OleDbType.Date, .Value = OdDate.Value.Date.AddDays(1)})