asked on

What is causing the DBNull error in my VB.net application

I have a VB.net application that has been working well. I added an additional function to it and it still works well on my development machine, which uses Windows 7 Enterprise OS. But when I deploy it to the target machine, Windows Server 2008 R2, I get this error message: Operator '-' is not defined for type DBNull. I have attached a screen shot of the message box. Again, I get this error on theServer 2008 machine, but not on the Windows 7 machine.

To my knowledge, I have not DBNull datatypes defined. A search using the Find & Replace function in Visual Studio for DBNull comes up empty.

What can be causing this error? How can I track it down? How can I eliminate it?

T
DBNull-ErrMsg.docx

ASKER CERTIFIED SOLUTION

it_saige

membership

This solution is only available to members.

To access this solution, you must be a member of Experts Exchange.

Start Free Trial

T Hoecherl

ASKER

Here is the code:

Private Sub Main_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Dim cn As SqlClient.SqlConnection = New SqlClient.SqlConnection("Data Source = TEESPEECEE;Initial Catalog = HLDY;Persist Security Info= True;User ID=sa;Password=123!")
'Dim cn As SqlClient.SqlConnection = New SqlClient.SqlConnection("Data Source = HOCSQL;Initial Catalog = HLDY;Persist Security Info= True;User ID=sa;Password=Great Plains!")
Dim strUser = Environment.UserName
Dim intSecurity, intSS, intHrs, intAmtScore, intProfit, intLoss, intMonthly, intAnnual, intPRDates As Integer

Dim cmd As SqlClient.SqlCommand = New SqlClient.SqlCommand
cmd.CommandType = CommandType.Text
cmd.Connection = cn
cmd.CommandTimeout = 0
cn.Open()

cmd.CommandText = "SELECT SECURITY FROM PCT_HOL_SECURITY WHERE USERID = '" & strUser & "'"
intSecurity = -cmd.ExecuteScalar()

cmd.CommandText = "SELECT SS FROM PCT_HOL_SECURITY WHERE USERID = '" & strUser & "'"
intSS = -cmd.ExecuteScalar()

cmd.CommandText = "SELECT STOREHRS FROM PCT_HOL_SECURITY WHERE USERID = '" & strUser & "'"
intHrs = -cmd.ExecuteScalar()

cmd.CommandText = "SELECT AMTSCORE FROM PCT_HOL_SECURITY WHERE USERID = '" & strUser & "'"
intAmtScore = -cmd.ExecuteScalar()

cmd.CommandText = "SELECT PROFIT FROM PCT_HOL_SECURITY WHERE USERID = '" & strUser & "'"
intProfit = -cmd.ExecuteScalar()

cmd.CommandText = "SELECT LOSS FROM PCT_HOL_SECURITY WHERE USERID = '" & strUser & "'"
intLoss = -cmd.ExecuteScalar()

cmd.CommandText = "SELECT MONTHLY FROM PCT_HOL_SECURITY WHERE USERID = '" & strUser & "'"
intMonthly = -cmd.ExecuteScalar()

cmd.CommandText = "SELECT ANNUAL FROM PCT_HOL_SECURITY WHERE USERID = '" & strUser & "'"
intAnnual = -cmd.ExecuteScalar()

cmd.CommandText = "SELECT PRDATES FROM PCT_HOL_SECURITY WHERE USERID = '" & strUser & "'"
intPRDates = -cmd.ExecuteScalar()

If intSecurity = 1 Then btnSecurity.Enabled = True
If intSS = 1 Then btnSS.Enabled = True
If intHrs = 1 Then btnStoreHrs.Enabled = True
If intAmtScore = 1 Then btnAmtScore.Enabled = True
If intProfit = 1 Then btnCStoreProfit.Enabled = True
If intLoss = 1 Then btnCStoreLoss.Enabled = True
If intMonthly = 1 Then btnMonthly.Enabled = True
If intAnnual = 1 Then btnAnnual.Enabled = True
'If intPRDates = 1 Then btnPRDates.Enabled = True

End Sub