Hi I have a excel VB Program that pulls info from a database. My code for the function in question is below. This code WAS working for years, now i am getting an error: "Error converting datatype nvarchar to bigint" Why would this happen all of a sudden and what is the fix?
Public Function GetGiftCardsRedeem(iColumn As Integer, sFrom As String, sTo As String)
Dim rsResults As New ADODB.Recordset
Dim sSQL As String
Dim iRecordCount As Integer
' Assign the Connection object.
rsResults.ActiveConnection = gcnnDB
' Extract the required records.
sSQL = "Select Sum(dTotalAmount) as TotalAmount from GiftCardTransactions where dtCreated between '" & sFrom & " 00:00:00' and '" & sTo & " 23:59:59'"
sSQL = sSQL & " and CONVERT(BigINT, sCCNumber) Between 800110110000 and 800110159999" '800110110000
sSQL = sSQL & " and not sCCNumber is null and sCCNumber <> ''"
rsResults.Open sSQL, gcnnDB, adOpenStatic, adLockReadOnly, adCmdText
If Not rsResults.EOF Then
'Let's Cycle through the records..
'We need to move last and then move back first to get a correct recordCount.
DoEvents: DoEvents
Sheet1.Cells(MTD_FREEGIFTCARDS_QTY_ROW, iColumn) = rsResults.Fields("TotalAmount").Value
End If
rsResults.Close
End Function