Add integer variable to get total

Posted on 2010-09-17
Last Modified: 2012-05-10
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 strConn As String = "Data Source=mydatasource;Integrated Security=false;Initial Catalog=mycatalog;user ID=mysuer;Password=mypassword"

        Dim sql As String = "Select * From Teacher where TeacherID = @TeacherID"

        Dim conn As New SqlConnection(strConn)

        Dim objDR As SqlDataReader

        Dim Cmd As New SqlCommand(sql, conn)

        Cmd.Parameters.Add(New SqlParameter("@TeacherID", Instrument1.SelectedValue.ToString()))


        objDR = Cmd.ExecuteReader(System.Data.CommandBehavior.CloseConnection)

        While objDR.Read()

            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


        'get monthly admin fee to add to teacher fee

        Dim strConn2 As String = "Data;Integrated Security=false;Initial Catalog=mycatalog;user ID=usr;Password=password"

        Dim sql2 As String = "Select * From Admin where TeacherID = @TeacherID"

        Dim conn2 As New SqlConnection(strConn2)

        Dim objDR2 As SqlDataReader

        Dim Cmd2 As New SqlCommand(sql2, conn2)

        Cmd2.Parameters.Add(New SqlParameter("@TeacherID", Instrument1.SelectedValue.ToString()))


        objDR2 = Cmd2.ExecuteReader(System.Data.CommandBehavior.CloseConnection)

        While objDR2.Read()

            strMonthlyFee = objDR2("MonthlyFee").ToString()

        End While


        '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

Open in new window

Question by:mlg101
LVL 11

Accepted Solution

Larissa T earned 250 total points
ID: 33704656
use convert
declare @s1 varchar(128), @s2 varchar(128)

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

select convert(money, @s1)+convert(money, @s2)
LVL 17

Assisted Solution

Zhaolai earned 250 total points
ID: 33704680
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))


Author Comment

ID: 33704714
I clicked on accept multiple solutions, but it made me close it???? something buggy is going on

Featured Post

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

The Delta outage: 650 cancelled flights, more than 1200 delayed flights, thousands of frustrated customers, tens of millions of dollars in damages – plus untold reputational damage to one of the world’s most trusted airlines. All due to a catastroph…
If you need to start windows update installation remotely or as a scheduled task you will find this very helpful.
Familiarize people with the process of retrieving data from SQL Server using an Access pass-thru query. Microsoft Access is a very powerful client/server development tool. One of the ways that you can retrieve data from a SQL Server is by using a pa…
Viewers will learn how the fundamental information of how to create a table.

895 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

11 Experts available now in Live!

Get 1:1 Help Now