# Add integer variable to get total

Hello,
I'm trying to add two numbers together to get a total.
strInst1Fee is a string taken from sqldatareader from a MS SQL money column, but it reads as a string. I want to add \$9.00 to that amount, but the \$9.00 comes from another database query, so it could change to a different amount.

When I do this, it works:

Dim PriceTot As Integer
If some variable = 1 Then
PriceTot = strInst1Fee + 9
End If

PriceTot = 49

This is what I want to do but it does not work:
Dim PriceTot As Integer
If some variable = 1 Then
PriceTot = strInst1Fee + strMonthlyFee
End If

PriceTot = 49.00009.0000
but it cannot convert it to an integer, so I get error.

The code below is what I want, but it gives error.

Why does it not add the 2 numbers together like the 1st example? And how do I get it to add the 2 numbers to get 49, when using strInst1Fee + strMonthlyFee?

``````'get fees from teacher
Dim sql As String = "Select * From Teacher where TeacherID = @TeacherID"
Dim conn As New SqlConnection(strConn)
Dim Cmd As New SqlCommand(sql, conn)
conn.Open()
strTeacherID = objDR("TeacherID").ToString()
strInst1Fee = objDR("Inst1Fee").ToString()
strInst2Fee = objDR("Inst2Fee").ToString()
strInst3Fee = objDR("Inst3Fee").ToString()
strInst4Fee = objDR("Inst4Fee").ToString()
strInst5Fee = objDR("Inst5Fee").ToString()
strInst6Fee = objDR("Inst6Fee").ToString()
strInst7Fee = objDR("Inst7Fee").ToString()

End While

conn.Close()

Dim sql2 As String = "Select * From Admin where TeacherID = @TeacherID"
Dim conn2 As New SqlConnection(strConn2)
Dim Cmd2 As New SqlCommand(sql2, conn2)
conn2.Open()
strMonthlyFee = objDR2("MonthlyFee").ToString()

End While

conn2.Close()

'get fee for instrument from total of teacher fee plus admin fee
'for monthly recurring billing
Dim PriceTot As Integer
If Teacher1.SelectedValue.ToString() = 1 Then
PriceTot = strInst1Fee + strMonthlyFee
ElseIf Teacher1.SelectedValue.ToString() = 2 Then
PriceTot = strInst2Fee + strMonthlyFee
ElseIf Teacher1.SelectedValue.ToString() = 3 Then
PriceTot = strInst3Fee + strMonthlyFee
ElseIf Teacher1.SelectedValue.ToString() = 4 Then
PriceTot = strInst4Fee + strMonthlyFee
ElseIf Teacher1.SelectedValue.ToString() = 5 Then
PriceTot = strInst5Fee + strMonthlyFee
ElseIf Teacher1.SelectedValue.ToString() = 6 Then
PriceTot = strInst6Fee + strMonthlyFee
ElseIf Teacher1.SelectedValue.ToString() = 7 Then
PriceTot = strInst7Fee + strMonthlyFee
End If
``````
LVL 1
###### Who is Participating?

EACommented:
use convert
declare @s1 varchar(128), @s2 varchar(128)

select @s1='\$49.0000', @s2='9.0000'

select convert(money, @s1)+convert(money, @s2)
0

Commented:
Try this:

PriceTot = Val(strInst1Fee) + Val(strMonthlyFee)

If strMonthlyFee comes with \$ sign as the first character, then try this:

PriceTot = Val(strInst1Fee) + Val(strMonthlyFee.SubString(1))

0

Author Commented:
I clicked on accept multiple solutions, but it made me close it???? something buggy is going on
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.