Computing textbox values and saving them

Question

1.00/5 (1 vote)

See more:

I am Trying to make a system that counts the number of enrollees
My Code actually computes the values of the textboxes but when i press the save button it says

Conversion from string "Update requires a valid UpdateCo" to type 'Integer' is not valid.

Can anyone please help me how

What I have tried:

This is my code the Add Button

Dim con As New System.Data.OleDb.OleDbConnection("Provider = Microsoft.jet.OleDB.4.0;Data Source =  " & Application.StartupPath & "\planning.mdb;")
Try
    ElementaryBindingSource.EndEdit()
    ElementaryTableAdapter.Update(PlanningDataSet.Elementary)
    Me.Update()
    MessageBox.Show(" Data Added Successfully")
Catch ex As Exception
    Error (ex.Message)
End Try

And this is for the compute button

Dim ans As Integer
ans = TMTextBox.Text
TMTextBox.Text = Val(KMTextBox.Text) + Val(G1MTextBox.Text) + Val(G2MTextBox.Text) + Val(G3MTextBox.Text) + Val(G4MTextBox.Text) + Val(G5MTextBox.Text) + Val(G6MTextBox.Text)

Posted 4-Aug-20 22:33pm

Beginner213456

Updated 9-Aug-21 20:19pm

Garth J Lancaster

v2

Add a Solution

Comments

Sandeep Mewara 5-Aug-20 5:32am

Error is not clear on what you got. Can you share the exact error?

Seems data type conversion error with your code.

Beginner213456 5-Aug-20 19:53pm

Conversion from string "Update requires a valid UpdateCo" to type 'Integer' is not valid.

that is the exact error that pops up

Maciej Los 5-Aug-20 5:55am

Dim ans As Integer
ans = TMTextBox.Text 'string is not integer!

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Maciej Los · Accepted Answer · 2020-08-05T00:00:00

Solution 1

An error occurs in this line:

VB.NET

Dim ans As Integer
ans = TMTextBox.Text 'string is not integer!

Please, do not use Val[^] to get integer value, because it's vb specific.
Rather than it, use: Int32.Parse Method (System) | Microsoft Docs[^] or Int32.TryParse Method (System) | Microsoft Docs[^]

[EDIT]
Usage:

vb.next

Dim tboxes As List(Of TextBox) = New List(Of TextBox) With {KMTextBox, G1MTextBox, G2MTextBox, G3MTextBox, G4MTextBox, G5MTextBox, G6MTextBox}

Dim result As Integer = 0
For Each txt As TextBox In tboxes
	Dim tmpVal As Integer = 0
	Dim success As Boolean = Int32.TryParse(txt.Text, tmpVal)
	If success Then result += tmpVal
Next
TMTextBox.Text = result.ToString()

Posted 5-Aug-20 0:00am

Maciej Los

Updated 5-Aug-20 20:59pm

v2

Comments

Beginner213456 5-Aug-20 20:02pm

Can you please give me an example

i tried

KTTextBox.Text = int32.typeparse(kmtextbox.Text) + int32.tryparse(kftextbox.Text)

but it says

Overload resolution failed because no accessible 'TryParse' accepts this number of arguments.

Sandeep Mewara 6-Aug-20 1:21am

Seems you did not open the reference documents at all. TryParse take two arguments, it outs the value and returns boolean if success or not.

Dim number As Integer
         Dim success As Boolean = Int32.TryParse(value, number)

Sandeep Mewara 6-Aug-20 1:21am

+5

Maciej Los 6-Aug-20 2:19am

Thank you, Sandeep.